第一篇：高中VB教案1

選修一：程序設(shè)計(jì)基礎(chǔ)

?課程內(nèi)容標(biāo)準(zhǔn)及教材分析：?

1.了解程序在計(jì)算機(jī)中的作用，知道程序設(shè)計(jì)語(yǔ)言的產(chǎn)生和發(fā)展趨勢(shì)。2.了解VB程序設(shè)計(jì)環(huán)境，知道在VB程序設(shè)計(jì)環(huán)境中創(chuàng)建程序的一般步驟和方法。

3.了解VB程序設(shè)計(jì)語(yǔ)言的基本知識(shí)，包括簡(jiǎn)單語(yǔ)句格式及其功能，數(shù)據(jù)類型、變量、常量、表達(dá)式和函數(shù)。

4.初步理解順序、分支、循環(huán)程序三種基本結(jié)構(gòu)，能讀懂簡(jiǎn)單的程序。5.學(xué)會(huì)在VB程序設(shè)計(jì)環(huán)境中創(chuàng)建、運(yùn)行、修改簡(jiǎn)單程序的操作。6.了解程序設(shè)計(jì)的基本思想與方法。?課時(shí)安排：?

10課時(shí)，由于是選修教材且爭(zhēng)取在有限的時(shí)間內(nèi)完成，所以課時(shí)計(jì)劃可能會(huì)有變動(dòng)。?第1課時(shí)?

?課題?：VB基礎(chǔ)知識(shí)（界面、控件及屬性）?課型?：任務(wù)型演示課（無(wú)板書）

?教學(xué)目的?：通過(guò)本節(jié)的教學(xué)應(yīng)使學(xué)生掌握VB6.0的啟動(dòng)及界面操作，并能獨(dú)立完成應(yīng)簡(jiǎn)單應(yīng)用程序界面的設(shè)計(jì)。?教學(xué)重點(diǎn)?：認(rèn)識(shí)VB環(huán)境，學(xué)會(huì)使用控件 ?教學(xué)難點(diǎn)?：控件的使用及屬性的設(shè)置 ［教學(xué)工具］：多媒體機(jī)房及相關(guān)的軟硬件環(huán)境 ［教學(xué)方法］：講授法、演示法、任務(wù)驅(qū)動(dòng) ［教學(xué)過(guò)程］： ?引入?：截至上節(jié)課我們完成了必修部分的所有學(xué)習(xí)內(nèi)容，其中包括信息的獲取、處理（處理文本信息和數(shù)據(jù)信息）、表達(dá)（演示文稿表達(dá)信息）和應(yīng)用，掌握了基本的操作要求。從這節(jié)課開始我們將進(jìn)行選修部分《程序設(shè)計(jì)基礎(chǔ)》的學(xué)習(xí)，學(xué)習(xí)使用程序來(lái)解決實(shí)際問(wèn)題。?描述?：

一、計(jì)算機(jī)語(yǔ)言的發(fā)展歷程

計(jì)算機(jī)語(yǔ)言（Computer Language）指用于人與計(jì)算機(jī)之間通訊的語(yǔ)言。計(jì)算機(jī)語(yǔ)言是人與計(jì)算機(jī)之間傳遞信息的媒介。

計(jì)算機(jī)程序設(shè)計(jì)語(yǔ)言的發(fā)展，經(jīng)歷了從機(jī)器語(yǔ)言、匯編語(yǔ)言到高級(jí)語(yǔ)言的歷程。

計(jì)算機(jī)語(yǔ)言主要分為三類：

低級(jí)語(yǔ)言、高級(jí)語(yǔ)言(如VB,VC等)、專用語(yǔ)言。

VB的由來(lái)：一位叫“比爾”，一位叫“鮑爾”的十分要好的同學(xué)都喜歡打游戲，但是隨著游戲玩的時(shí)間長(zhǎng)了，他們發(fā)現(xiàn)這些游戲都沒(méi)有什么意思，于是他們倆便開始研究自己編寫游戲，于是也就誕生了Basic程序設(shè)計(jì)語(yǔ)言，在當(dāng)時(shí)個(gè)人計(jì)算機(jī)正處于發(fā)展階段很多廠家都對(duì)他們的程序感興趣，于是“比爾”就注冊(cè)了公司來(lái)賣這個(gè)Basic程序，而這個(gè)公司就是今天大名鼎鼎“微軟”而“比爾”就是世界首富“比爾〃蓋茨”，隨著Basic語(yǔ)言的不斷發(fā)展和更新就形成了現(xiàn)在我們學(xué)習(xí)的Visual Basic語(yǔ)言，其中Visual的意思是“可視的”，這也就意味著現(xiàn)在的Visual Basic是一種簡(jiǎn)潔明了，所見即所得的程序設(shè)計(jì)語(yǔ)言。?演示?：

二、認(rèn)識(shí)Visual Basic

演示VB的啟動(dòng)，并結(jié)合啟動(dòng)后的界面講解VB的界面構(gòu)成，重點(diǎn)講解“工具箱”中各“控件”的作用，并演示一些常用“控件”如“Label”、“CommandButton”、“Text”的使用及其“屬性”的修改與設(shè)置。演示“工程資源管理器”窗口、“屬性”窗口、“窗體布局”窗口及“工具箱”的顯示與隱藏的方法與操作步驟。

標(biāo)題欄 標(biāo)準(zhǔn)按鈕

菜單欄

工具箱

工程資源

管理器

屬性窗口

工作區(qū)

窗體布局

?演示?：

三、使用工具箱控件設(shè)計(jì)軟件界面

演示“標(biāo)簽（Label）”、“按鈕（CommandButton）”、“文本框（TextBox）”等常用控件的使用并分別修改其“Caption”、“Text”屬性。?演示?：

四、學(xué)習(xí)任務(wù)

在了解以上知識(shí)后，請(qǐng)學(xué)生獨(dú)立設(shè)計(jì)應(yīng)用程序界面，要求同學(xué)參考圖例設(shè)計(jì)《簡(jiǎn)易計(jì)算器》的界面。

?要求?：請(qǐng)同學(xué)們參照作業(yè)發(fā)布網(wǎng)頁(yè)的圖例獨(dú)立設(shè)計(jì)《簡(jiǎn)易計(jì)算器》程序界面并以你的“姓名＋計(jì)算器”為文件名保存工程并提交作業(yè)。?演示?：VB工程保存方法

VB工程保存方法和前面我們學(xué)習(xí)的Word和PowerPoint保存方法相似但有點(diǎn)區(qū)別，一是VB工程保存時(shí)默認(rèn)的保存路徑不是“我的文檔”而是VB安裝路徑目錄，提醒學(xué)生注意更改保存位置；二是VB工程保存后會(huì)形成多個(gè)文件，其中包括工程文件（*.vbp）、窗體文件（*.frm）及工程視圖文件（*.vbw）。這也就意味著在提交該類作業(yè)時(shí)，請(qǐng)同學(xué)們采用壓縮方法提交，避免出現(xiàn)錯(cuò)誤。?作業(yè)布置?：

制作《簡(jiǎn)易計(jì)算器》程序界面，并保存工程后提交作業(yè)。?教學(xué)反思?：

————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————

第二篇：高中選修課vb教案

高二年級(jí)信息技術(shù)教案

第一課時(shí)

第一章1.1計(jì)算機(jī)的解決問(wèn)題過(guò)程

面向?qū)ο蟪绦蛟O(shè)計(jì)概述

教學(xué)課時(shí)：

1課時(shí)（每課時(shí)40分鐘）教學(xué)目標(biāo)： 知識(shí)目標(biāo)：

1.中學(xué)生為什么要學(xué)習(xí)計(jì)算機(jī)程序設(shè)計(jì) 2.如何學(xué)好VB程序設(shè)計(jì)；

技能目標(biāo)：初步認(rèn)識(shí)面向?qū)ο蟪绦蛟O(shè)計(jì)概述。

德育目標(biāo)：通過(guò)教學(xué)激發(fā)學(xué)生探索學(xué)習(xí)現(xiàn)代科學(xué)知識(shí)的主動(dòng)性。教學(xué)重點(diǎn)：

1.程序設(shè)計(jì)“語(yǔ)言”在計(jì)算機(jī)應(yīng)用中的重要作用 2.如何學(xué)好VB程序設(shè)計(jì)； 教學(xué)難點(diǎn)：

1.計(jì)算機(jī)程序與程序設(shè)計(jì)語(yǔ)言概念；

2.初步了解分析實(shí)際問(wèn)題，利用程序設(shè)計(jì)實(shí)現(xiàn)的方法。教學(xué)方法：

講授法＋直觀演示法＋任務(wù)驅(qū)動(dòng)法 教學(xué)環(huán)境與工具：

多媒體機(jī)房+多媒體課件＋課堂直觀演示＋課堂練習(xí)

教學(xué)過(guò)程： 前提測(cè)評(píng)：

1.同學(xué)們聽說(shuō)過(guò)那種計(jì)算機(jī)語(yǔ)言？

答：vb語(yǔ)言, c語(yǔ)言,java語(yǔ)言，c++語(yǔ)言，c#語(yǔ)言等。。講新課：

一、中學(xué)生為什么要學(xué)習(xí)計(jì)算機(jī)程序設(shè)計(jì)?

1、首先是信息時(shí)代的要求

在21世紀(jì)是信息和知識(shí)經(jīng)濟(jì)的時(shí)代，計(jì)算機(jī)的應(yīng)用十分普及，不會(huì)使用網(wǎng)絡(luò)的人就是不會(huì)使用計(jì)算機(jī)。不懂計(jì)算機(jī)程序設(shè)計(jì)，就不能真正理解計(jì)算機(jī)和應(yīng)用計(jì)算機(jī)。計(jì)算機(jī)應(yīng)用軟件及工具層出不窮，盡管這樣在我們的工作通常也要針對(duì)具體實(shí)際問(wèn)題對(duì)一些軟件進(jìn)行二次開發(fā)或需要開發(fā)一些適用自己的軟件。當(dāng)前在社會(huì)上形形色色的人都在上網(wǎng)，上網(wǎng)技巧應(yīng)該成為每個(gè)人必須掌握的一種生活和工作的技能。顯然，中學(xué)生不僅不能落后于社會(huì)應(yīng)用，而且要領(lǐng)先于社會(huì)，高于社會(huì)的一般水平。學(xué)習(xí)和掌握程序設(shè)計(jì)就是基本的要求。

2、有助提高計(jì)算機(jī)知識(shí)和應(yīng)用水平從增進(jìn)計(jì)算機(jī)知識(shí)的角度來(lái)看，我們可以將計(jì)算機(jī)知識(shí)簡(jiǎn)單地分成硬件及軟件兩部分：基本的硬件知識(shí)有：計(jì)算機(jī)主要硬件設(shè)備及網(wǎng)絡(luò)架設(shè)。

軟件知識(shí)則有：程序設(shè)計(jì)、網(wǎng)頁(yè)制作、數(shù)據(jù)庫(kù)管理與設(shè)計(jì)、及一般應(yīng)用軟件的使用(例如Office軟件、繪圖軟件、因特網(wǎng)相關(guān)程序?)?等，程序設(shè)計(jì)作為軟件知識(shí)的基石

(1)學(xué)習(xí)程序設(shè)計(jì)必須了解程序的運(yùn)作方式，對(duì)于各種程序(軟件)的使用也會(huì)很有幫助

(2)以解決在軟件使用中所遇到的問(wèn)題，改進(jìn)現(xiàn)有軟件

(3)不管是一般應(yīng)用軟件的使用、網(wǎng)頁(yè)制作、或數(shù)據(jù)庫(kù)設(shè)計(jì)，往往必須藉助程序設(shè)計(jì)使其發(fā)揮更強(qiáng)大的功能。

3、有利于培養(yǎng)學(xué)生邏輯思維

因?yàn)橛?jì)算機(jī)程序設(shè)計(jì)具有嚴(yán)密的邏輯性。對(duì)學(xué)生進(jìn)行用計(jì)算機(jī)解決問(wèn)題的思維訓(xùn)練，通過(guò)學(xué)習(xí)程序設(shè)計(jì)，可以使學(xué)生進(jìn)一步理解計(jì)算機(jī)的工作原理。用計(jì)算機(jī)的人應(yīng)當(dāng)有程序和指令的概念。學(xué)習(xí)程序設(shè)計(jì)能鍛煉思維，使我們的邏輯思維更加嚴(yán)密。

4、社會(huì)需要大量的非計(jì)算機(jī)專業(yè)人員開發(fā)適用軟件

根據(jù)有關(guān)統(tǒng)計(jì)∶80%以上的應(yīng)用軟件是非計(jì)算機(jī)專業(yè)的人編寫的。這是一種規(guī)律，顯示了非計(jì)算機(jī)專業(yè)人才的優(yōu)勢(shì)，他們既掌握本專業(yè)知識(shí)，又掌握計(jì)算機(jī)應(yīng)用知識(shí)，兩者結(jié)合，如虎添翼。因此由他們來(lái)編寫應(yīng)用軟件就決不是權(quán)宜之計(jì)。大學(xué)非計(jì)算機(jī)專業(yè)學(xué)生在校期間應(yīng)該學(xué)習(xí)程序設(shè)計(jì)的基本知識(shí)。

二、如何學(xué)好VB程序設(shè)計(jì)

1、程序設(shè)計(jì)基礎(chǔ)

指令: 規(guī)定計(jì)算機(jī)完成一定操作的命令。

程序設(shè)計(jì)語(yǔ)言: 要使計(jì)算機(jī)能夠理解人給出的各種指令，就需要在人和計(jì)算機(jī)之間有一種特定的語(yǔ)言，人和計(jì)算機(jī)都能夠識(shí)別，這種特定的語(yǔ)言就是計(jì)算機(jī)語(yǔ)言，也叫程序設(shè)計(jì)語(yǔ)言。程序: 使用程序設(shè)計(jì)語(yǔ)言編寫的用來(lái)使計(jì)算機(jī)完成一定任務(wù)的一段“文章”稱為程序。程序設(shè)計(jì): 編寫程序的工作稱為程序設(shè)計(jì)。

學(xué)習(xí)目的: 利用程序設(shè)計(jì)語(yǔ)言進(jìn)行程序設(shè)計(jì),完成一定功能 程序設(shè)計(jì): 編制程序的工作 實(shí)現(xiàn): 選擇工具—語(yǔ)言

2、學(xué)習(xí)VB程序設(shè)計(jì)的方法（1）養(yǎng)成良好的學(xué)習(xí)習(xí)慣

VB程序設(shè)計(jì)的入門學(xué)習(xí)并不難，但卻是一個(gè)十分重要的過(guò)程，因?yàn)槌绦蛟O(shè)計(jì)思想就在這時(shí)形成的，良好的程序設(shè)計(jì)習(xí)慣也在這個(gè)階段養(yǎng)成。（2）學(xué)習(xí)程序設(shè)計(jì)要注重理解一些重要的概念。

VB程序設(shè)計(jì)本身并不復(fù)雜，翻開一本程序設(shè)計(jì)學(xué)習(xí)的書籍，看到的無(wú)非就是變量、函數(shù)、條件語(yǔ)句、循環(huán)語(yǔ)句等概念。但要真正能進(jìn)行程序設(shè)計(jì)，需要深入理解這些概念。因此，在程序入門階段還是應(yīng)該重視概念的學(xué)習(xí)。（3）自己動(dòng)手編寫程序

程序設(shè)計(jì)入門階段要經(jīng)常自己動(dòng)手編寫程序，親自動(dòng)手進(jìn)行程序設(shè)計(jì)是創(chuàng)造性思維應(yīng)用的體現(xiàn)，是培養(yǎng)邏輯思維的好方法。因此一定要多動(dòng)手編寫程序，而且要從小程序開發(fā)開始，逐漸提高開發(fā)程序的規(guī)模。

（4）閱讀、借簽別人設(shè)計(jì)的好程序

多看別人設(shè)計(jì)好的程序代碼，包括教材上的例題程序。在讀懂別人程序后，要想他為什么這么設(shè)計(jì)？能不能將程序修改完成更多的功能？則可以學(xué)到別人優(yōu)秀的東西，幫助自己提高自身水平。

5）VB程序設(shè)計(jì)學(xué)習(xí)的重點(diǎn)

重點(diǎn)放在思路、算法、編程構(gòu)思和程序?qū)崿F(xiàn)上。

語(yǔ)句只是表達(dá)工具，要求堂上積極思考，盡量當(dāng)堂學(xué)懂，并做到靈活應(yīng)用。學(xué)會(huì)利用計(jì)算機(jī)編程手段分析問(wèn)題和解決問(wèn)題。（6）養(yǎng)成良好的編程習(xí)慣

強(qiáng)調(diào)可讀性;變量要加注釋；程序構(gòu)思要有說(shuō)明；學(xué)會(huì)如何調(diào)試程序;

對(duì)運(yùn)行結(jié)果要做正確與否的分析。

小結(jié)：學(xué)好vb程序設(shè)計(jì)要有自信、自強(qiáng)，積極主動(dòng)學(xué)習(xí)。克服畏難情緒、樹立學(xué)好程序設(shè)計(jì)的信心。鞏固練習(xí)： 回答問(wèn)題

1.中學(xué)生為什么要學(xué)習(xí)計(jì)算機(jī)程序設(shè)計(jì)? 2.如何學(xué)好VB程序設(shè)計(jì)？ 布置作業(yè)：

目的：鞏固課堂講的理論知識(shí)。

內(nèi)容：1.中學(xué)生為什么要學(xué)習(xí)計(jì)算機(jī)程序設(shè)計(jì)? 2.如何學(xué)好VB程序設(shè)計(jì)？ 方法：下一節(jié)課預(yù)測(cè)。

評(píng)價(jià)：按學(xué)生的答案來(lái)評(píng)價(jià)。

高二年級(jí)信息技術(shù)教案

第二課時(shí) 第一章1.1計(jì)算機(jī)的解決問(wèn)題過(guò)程

一，vb環(huán)境簡(jiǎn)介

教學(xué)課時(shí)：

1課時(shí)（每課時(shí)40分鐘）教學(xué)目標(biāo)： 知識(shí)目標(biāo)：

1.了解vb環(huán)境簡(jiǎn)介 2.了解vb 發(fā)展過(guò)程。

技能目標(biāo)：學(xué)會(huì)啟動(dòng)和退出Visual Basic。

德育目標(biāo)：通過(guò)教學(xué)激發(fā)學(xué)生探索學(xué)習(xí)現(xiàn)代科學(xué)知識(shí)的主動(dòng)性。教學(xué)重點(diǎn)： 1.vb環(huán)境簡(jiǎn)介

3.學(xué)會(huì)啟動(dòng)和退出Visual Basic。教學(xué)難點(diǎn)：

1.vb 發(fā)展過(guò)程； 教學(xué)方法：

講授法＋直觀演示法＋任務(wù)驅(qū)動(dòng)法 教學(xué)環(huán)境與工具：

多媒體機(jī)房+多媒體課件＋課堂直觀演示＋課堂練習(xí)

教學(xué)過(guò)程： 前提測(cè)評(píng)：

1.中學(xué)生為什么要學(xué)習(xí)計(jì)算機(jī)程序設(shè)計(jì)？ 答：

1、首先是信息時(shí)代的要求

2、有助提高計(jì)算機(jī)知識(shí)和應(yīng)用水平

3、有利于培養(yǎng)學(xué)生邏輯思維

4、社會(huì)需要大量的非計(jì)算機(jī)專業(yè)人員開發(fā)適用軟件 講新課：

一，Visual Basic 簡(jiǎn)介

Visual Basic 是Microsoft 公司開發(fā)的Windows 應(yīng)用程序開發(fā)工具，Visual ——“可視化的”，是一種開發(fā)圖形戶界面的方法。使得非計(jì)算機(jī)專業(yè)的人也可以開發(fā)出專業(yè)的Windows軟件。

Visual Basic繼承了BASIC語(yǔ)言簡(jiǎn)單易學(xué)的優(yōu)點(diǎn)，又增加了許多新的功能，它采用面向?qū)ο笈c事件驅(qū)動(dòng)的程序設(shè)計(jì)思想，使編程變得更加方便、快捷。使用Visual Basic既可以開發(fā)個(gè)人或小組使用的小型工具，又可以開發(fā)多媒體軟件、數(shù)據(jù)庫(kù)應(yīng)用程序、網(wǎng)絡(luò)應(yīng)用程序等大型軟件。是國(guó)內(nèi)外最流行的程序設(shè)計(jì)語(yǔ)言之一。

二，Visual Basic的發(fā)展

20世紀(jì)60年出現(xiàn)Basic語(yǔ)言；

20世紀(jì)80年代，True Basic、Quick Basic和Turbo Basic等;1991年Microsoft公司推出Visual Basic1.0，以可視化工具為界面設(shè)計(jì)、結(jié)構(gòu)化Basic語(yǔ)言為基礎(chǔ)，以事件驅(qū)動(dòng)為運(yùn)行機(jī)制。從1991年的VB1.0至1998年的V B6.0的多次版本升級(jí)，功能更強(qiáng)大、完善，應(yīng)用面更廣； 三，Visual Basic的啟動(dòng)與退出

啟動(dòng)Visual Basic

? 使用“開始”菜單中的“程序”命令。? 使用“我的電腦”

? 使用“開始”菜單中的“運(yùn)行”命令

? 建立啟動(dòng)Visual Basic6.0的快捷方式

退出Visual Basic 為了退出Visual Basic，可先打開“文件”菜單，并執(zhí)行其中的“退出”命令（或按Alt+Q快捷鍵）。如果當(dāng)前程序已修改過(guò)并且沒(méi)有存盤，系統(tǒng)將顯示一個(gè)對(duì)話框，詢問(wèn)用戶是否將其存盤，此時(shí)選擇“是”按鈕則存盤，選擇“否”按鈕則不存盤。在上述兩種情況下，都將退出Visual Basic，回到Windows環(huán)境 小結(jié)：

使用Visual Basic既可以開發(fā)個(gè)人或小組使用的小型工具，又可以開發(fā)多媒體軟件、數(shù)據(jù)庫(kù)應(yīng)用程序、網(wǎng)絡(luò)應(yīng)用程序等大型軟件。是國(guó)內(nèi)外最流行的程序設(shè)計(jì)語(yǔ)言之一。

從1991年的VB1.0至1998年的V B6.0的多次版本升級(jí)，功能更強(qiáng)大、完善，應(yīng)用面更廣 鞏固練習(xí)： 1.怎么啟動(dòng)vb? 2.怎么退出vb？ 布置作業(yè)：

目的：鞏固課堂講操作內(nèi)容。內(nèi)容：1.vb的簡(jiǎn)介和發(fā)展過(guò)程? 2.啟動(dòng)和退出vb？ 方法：下一節(jié)課預(yù)測(cè)。

評(píng)價(jià)：按學(xué)生的答案來(lái)評(píng)價(jià)。

第三篇：高中信息VB試題

高中信息技術(shù)會(huì)考VB復(fù)習(xí)題

一、單選題

1.計(jì)算機(jī)程序的三種結(jié)構(gòu)是順序結(jié)構(gòu)、、選擇結(jié)構(gòu)。A．模塊結(jié)構(gòu) B．循環(huán)結(jié)構(gòu) C．多重循環(huán)結(jié)構(gòu) D．IF塊結(jié)構(gòu)

2.是指用戶操作引發(fā)或由系統(tǒng)引發(fā)，能被對(duì)象所識(shí)別并做出響應(yīng)的動(dòng)作。A．任務(wù) B．事件 C．控件 D．過(guò)程

3.在VB中，窗口坐標(biāo)系的原點(diǎn)在，x軸向右為正，y軸向下為正。A．窗口左上角 B．窗口右下角 C．窗口正中間 D．窗口右上角

4.在VB應(yīng)用程序設(shè)計(jì)中，通常應(yīng)對(duì) 編寫程序代碼。A．所有對(duì)象 B．窗體 C．Timer D．有事件的對(duì)象

5.在面向?qū)ο蟪绦蛟O(shè)計(jì)中，用來(lái)描述對(duì)象的特征信息。A．事件 B．方法 C．代碼 D．屬性

6.在VB編程中，如果需要返回鼠標(biāo)的當(dāng)前位置，或了解按下的是鼠標(biāo)哪個(gè)鍵及需要配合鍵盤上的Shift、Ctrl、Alt鍵時(shí)，應(yīng)該使用 事件。A．Click B．Change C．MouseDown D．KeyPress 7.在VB應(yīng)用程序設(shè)計(jì)中，如果想讓Timer控件每秒鐘響應(yīng)一次，應(yīng)該將其Inerval屬性設(shè)置為。

A．1 B．60 C．100 D．1000 8.下列過(guò)程中，是程序開始運(yùn)行時(shí)，窗體一加載就運(yùn)行的程序段。A．Form_Load B．Form_Click C．Form_MouseDown D．Form_KeyPress 9.的Visual Basic表達(dá)式是。

A．(-b+b^2-4ac)/2a B．(-b+sqr(b^2-4*a*c))/(2*a)C．(-b+sqr(b^2-4ac))/(2a)D．(-b+sqr(b^2-4ac))/2a 10.在VB系統(tǒng)中，代表內(nèi)存單元，是命了名的存儲(chǔ)空間。A．變量 B．常量 C．函數(shù) D．字節(jié)

11.語(yǔ)句用于聲明變量，并定義變量的數(shù)據(jù)類型，給變量分配存儲(chǔ)空間。A．Sub B．Dim C．Call D．End 12.在VB程序設(shè)計(jì)語(yǔ)言中，語(yǔ)句的功能是使系統(tǒng)產(chǎn)生的隨機(jī)數(shù)真正隨機(jī)化。

A．Rnd B．Circle C．Randomize D．Dim 13.關(guān)系表達(dá)式的值為。

A． 數(shù)值 B．字符串 C．邏輯值 D．邏輯表達(dá)式 14.下列控件中“文本框”是。

A.Label B.TextBox C.OptionButton D.CommandButton 15.若改變一文本框中所顯示文本的顏色，需改變此文本框的哪個(gè)屬性？ A.Caption B.Forecolor C.Backcolor D.Text 16.在VB環(huán)境中，如果設(shè)計(jì)時(shí)將命令按鈕的 屬性設(shè)置為False，則運(yùn)行時(shí)該按鈕從窗體上消失。A．Default B．Enabled C．Visible D．DisabledPicture 17.在VB環(huán)境中，修改對(duì)象的BackColor的屬性值，則對(duì)象的 將發(fā)生改變。A.文字顏色 B.背景色 C.前景色 D.邊框顏色

18.用VB工具箱中的哪個(gè)控件可以建立命令控制按鈕 B。

19.在VB應(yīng)用程序中，修改控制代碼，使Command1按鈕顯示“end”，正確的設(shè)置是。

A.Command1.Text=“end” B.Command1.Caption=“end” C.Command1.Name＝end D.Command1.Caption=end 20.在VB程序中，當(dāng)變量H的值等于8時(shí)，執(zhí)行“IF H>8 then R=10 else R=20”語(yǔ)句后，R值為。

A．5 B．10 C．20 D．10或20 21．當(dāng)a=123: b=Str(a)，則

A．a(chǎn)和b均是字符型變量 B．a(chǎn)是字符型變量，b是數(shù)值型變量 C．a(chǎn)是數(shù)值型變量，b是字符型變量 D．a(chǎn)和b均是數(shù)值型變量

22.用循環(huán)結(jié)構(gòu)解決問(wèn)題時(shí)，如果循環(huán)的次數(shù)已知，通常采用 ；當(dāng)循環(huán)的次數(shù)未知，需要靠判斷條件是否成立來(lái)決定循環(huán)的執(zhí)行和退出時(shí)，通常采用。

A．For…Next循環(huán)、Do…Loop循環(huán) B．Do…Loop循環(huán)、For…Next循環(huán) C．Do…Next循環(huán)、For…Loop循環(huán) 23.函數(shù)的作用是建立一個(gè)輸入對(duì)話框。

A．MsgBox()B．InputBox()C．RGB()D．Print 24．A=5，B=8，則（B-A）*Rnd+A的結(jié)果是介于_______之間的實(shí)數(shù)。A.[5，8] B.（5，8）C.[5，8）D.（3，5）25． For i=1 to 10 Step 2 …… ?循環(huán)體中循環(huán)變量的值保持不變。Next i 在程序運(yùn)行時(shí)循環(huán)體將被執(zhí)行_________幾次。

A.3次 B.4次 C.5次 D.6次

26．執(zhí)行后將會(huì)清空文本框Text1中文本的語(yǔ)句是___________。A.Text1.Clear B.Text1.SelText= “ ” C.Text1.text= “ ” D.Text1.SelText.Clear 27．在機(jī)場(chǎng)托運(yùn)行李，每人免費(fèi)25千克，超過(guò)25千克不到50千克，則超出部分按每千克10元收費(fèi)，如果超過(guò)50千克，則超過(guò)部分按每千克20元收費(fèi)。這種計(jì)費(fèi)程序最適合用到的程序結(jié)構(gòu)是 A.循環(huán) B.賦值 C.分支 D.順序 28．下面是一段循環(huán)結(jié)構(gòu)的程序段： s=0 x=2 Do s=s+1 x=x+3 Loop Until(x>=12)該程序段運(yùn)行后，循環(huán)體的執(zhí)行次數(shù)是 A.1 B.2 C.3 D.4

第四篇：vb實(shí)驗(yàn)教案 -

實(shí)驗(yàn)一 VB集成開發(fā)環(huán)境和簡(jiǎn)單程序設(shè)計(jì)

一、本次課主要內(nèi)容

1． 練習(xí)Visual Basic6.0的安裝與重新安裝。2． 啟動(dòng)和退出Visual Basic 6.0。3． 認(rèn)識(shí)VB6.0的工作界面。

4． 編寫顯示“歡迎使用Visual Basic6.0”的窗體程序。

P 1 5． 按照Visual Basic編寫程序的基本步驟建立一個(gè)用于“商品銷售計(jì)劃”的窗體程序。

二、教學(xué)目的與要求 1．熟悉VB6.0的安裝；

2．學(xué)習(xí)怎樣啟動(dòng)和退出Visual Basic；

3．熟悉Visual Basic的工作環(huán)境，為以后的程序設(shè)計(jì)作好準(zhǔn)備； 4．理解Visual Basic中對(duì)象和類的概念。5．學(xué)習(xí)用屬性窗口設(shè)置對(duì)象屬性的方法。

6．初步學(xué)習(xí)在代碼編輯器中輸入程序代碼的基本操作。7．基本掌握用Visual Basic編寫程序的基本步驟。8．了解Visual Basic聯(lián)機(jī)幫助的使用方法。

三、教學(xué)重點(diǎn)難點(diǎn) VB語(yǔ)言程序的上機(jī)步驟

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫實(shí)驗(yàn)報(bào)告，寫出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)2。

實(shí)驗(yàn)一 VB集成開發(fā)環(huán)境和簡(jiǎn)單程序設(shè)計(jì)

1． Visual Basic 6.0有多種類型的窗口，若想在設(shè)計(jì)時(shí)看到代碼窗口，如何操作？

2． 如何使各窗口顯示或不顯示？ 3． 如何對(duì)工具箱添加選項(xiàng)卡？

4．當(dāng)建立好一個(gè)簡(jiǎn)單的應(yīng)用程序后，假定該工程僅有一個(gè)窗體模塊。問(wèn)該工程涉及到多少個(gè)文件要保存？若要保存該工程中的所有文件，正確的操作應(yīng)先保存什么文件？再保存什么文件？若不這樣做，系統(tǒng)會(huì)出現(xiàn)什么信息？

5．在窗體上畫一個(gè)命令按鈕，然后通過(guò)屬性窗口設(shè)置下列屬性： Caption：這是命令按鈕 Font：宋體 粗體 三號(hào) Visible：False Style：1-Graphical

6、參考實(shí)驗(yàn)教材“實(shí)驗(yàn)一”和“實(shí)驗(yàn)二”的實(shí)驗(yàn)過(guò)程編寫程序。

P 2

教學(xué)后記：

實(shí)驗(yàn)二 順序結(jié)構(gòu)程序設(shè)計(jì)

一、本次課主要內(nèi)容

1.實(shí)驗(yàn)Visual Basic中三種除法運(yùn)算符（/、、Mod）的區(qū)別。2．掌握表達(dá)式的書寫，并能閱讀出表達(dá)式的運(yùn)行結(jié)果。3．設(shè)計(jì)一個(gè)簡(jiǎn)單的計(jì)數(shù)器。

二、教學(xué)目的與要求

1．掌握Visual Basic數(shù)據(jù)類型的基本概念。2．掌握變量，常量的定義規(guī)則。

3．掌握Visual Basic各種運(yùn)算符的功能及表達(dá)式的構(gòu)成和求值方法。4．掌握Visual Basic的基本語(yǔ)句。

三、教學(xué)重點(diǎn)難點(diǎn)

VB的各種運(yùn)算符的功能及表達(dá)式的構(gòu)成

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫實(shí)驗(yàn)報(bào)告，寫出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)3。

P 3

實(shí)驗(yàn)二 順序結(jié)構(gòu)程序設(shè)計(jì)

1．實(shí)驗(yàn)Visual Basic中三種除法運(yùn)算符（/、、Mod）的區(qū)別。按以下步驟執(zhí)行：

P 4（1）在窗體上畫5個(gè)標(biāo)簽、5個(gè)文本框和一個(gè)命令按鈕。5個(gè)標(biāo)簽的標(biāo)題分別為：“被除數(shù)”、“除數(shù)”、“浮點(diǎn)除（/）”、“整數(shù)除（）”和“余數(shù)除（Mod）”，把5個(gè)文本框清為空白，把命令按鈕的標(biāo)題設(shè)置為“執(zhí)行除法運(yùn)算”，如圖6所示。

圖6

除法運(yùn)算符實(shí)驗(yàn)（界面設(shè)計(jì)）

（2）編寫命令按鈕的事件過(guò)程： Private Sub Command1_Click()Dim diviD, diviS As Single diviD = Val(Text1.Text)diviS = Val(Text2.Text)Text3.Text = Str(diviD / diviS)Text4.Text = Str(diviD diviS)Text5.Text = Str(diviD Mod diviS)End Sub

（3）按F5或單擊工具欄上的“啟動(dòng)”按鈕運(yùn)行程序，在第一個(gè)文本框中輸入被除數(shù)，在第二個(gè)文本框中輸入除數(shù)，然后單擊命令按鈕，即可得到三種不同的相除結(jié)

果。例如，在第一、第二個(gè)文本框中分別輸入124和3，然后單擊命令按鈕，結(jié)果如圖7所示。

P 5

圖7

除法運(yùn)算符試驗(yàn)（運(yùn)行情況）

2．先用手工計(jì)算下列表達(dá)式的值，然后在立即窗口中試驗(yàn)這些表達(dá)式的輸出結(jié)果。

(1)8*3*62(2)7/6*3.2/2.15*(4.3+2.8)(3)344*4.0^3/1.6(4)653 Mod 2.6*Fix(3.7)(5)“abc” + “345” & “257”(6)279.37 + “0.63” = 280(7)4>8 And 4 = 5(8)True Or Not(8+3 >= 11)(9)8 > 4 Or 5 < 9(10)(True And False)Or(True Or False)3．設(shè)x,y,z均為布爾型變量，其值分別為： x=True Y=True Z=False 求下列表達(dá)式的值：

(1)x Or y And z(2)Not x And Not y(3)x Xor y Or z(4)Not x Eqv Not y(5)(Not y Or x)And(y Or z)(6)x Or Not y Imp z 要求：先手工計(jì)算，再上機(jī)驗(yàn)證。

教學(xué)后記：

P 6

實(shí)驗(yàn)三 選擇結(jié)構(gòu)程序設(shè)計(jì)

一、本次課主要內(nèi)容

1．編程求解一元二次方程的根。

2．按要求編寫程序?qū)崿F(xiàn)稅務(wù)部門征收所得稅的納稅金額。

二、教學(xué)目的與要求

1.掌握邏輯表達(dá)式的正確書寫形式。2.掌握單分支與多分支語(yǔ)句的使用。3.熟悉“選擇”結(jié)構(gòu)程序設(shè)計(jì)。

三、教學(xué)重點(diǎn)難點(diǎn)

邏輯表達(dá)式的正確書寫形式

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫實(shí)驗(yàn)報(bào)告，寫出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)4。

P 7

實(shí)驗(yàn)三 選擇結(jié)構(gòu)程序設(shè)計(jì)

1．求解一元二次方程的根。

2．稅務(wù)部門征收所得稅，規(guī)定如下：（1）收入在800元以內(nèi)，免征；

（2）收入在800~1000元以內(nèi)，超過(guò)200元的部分納稅5%；（3）收入在1000~2000元以內(nèi)，超過(guò)1000元的部分，納稅8%；（4）當(dāng)收入達(dá)到2000元或超過(guò)時(shí)，納稅10%； 編程實(shí)現(xiàn)上述操作。（1）編寫程序代碼：

（2）程序運(yùn)行

程序運(yùn)行后，單擊窗體，在輸入對(duì)話框中輸入收入數(shù)，程序?qū)⑤敵黾{稅金額。例如輸入1560，運(yùn)行情況如圖30所示。

P 8

圖30 納稅運(yùn)行情況

3．輸入x、y、z三個(gè)數(shù)，按從大到小的次序顯示。要求：對(duì)輸入數(shù)據(jù)應(yīng)有測(cè)試手段，可以通過(guò)IsNumeric函數(shù)對(duì)文本框中的數(shù)進(jìn)行測(cè)試。若輸入的數(shù)有非數(shù)字字符，顯示“不能轉(zhuǎn)換成數(shù)值”，提示再輸入。當(dāng)輸入的三個(gè)數(shù)全部都是數(shù)字字符后再轉(zhuǎn)換成數(shù)值型，然后進(jìn)行大小比較。

4．某市公用電話收費(fèi)標(biāo)準(zhǔn)如下：市話通話時(shí)間在3分鐘以下，收費(fèi)0.50元；3分鐘以上，則每超過(guò)1分鐘加收0.15元；在7:00-19:00之間通話者，按上述收費(fèi)標(biāo)準(zhǔn)全價(jià)收費(fèi)；在其他時(shí)間通話者一律接收費(fèi)標(biāo)準(zhǔn)的半價(jià)收費(fèi)。試計(jì)算某人在T時(shí)間通話S分鐘，應(yīng)繳多少電話費(fèi)。

5．設(shè)在窗體上已經(jīng)建立一個(gè)文本框Text1，兩個(gè)命令按鈕Commmand1和Command2，說(shuō)明執(zhí)行以下語(yǔ)句后，各控件將顯示什么內(nèi)容？

Text1.Text = Command1.Caption Command1.Caption = Command2.Caption Command2.Caption = Text1.Text Text1.Text = Command1.Caption & Command2.Caption 6．下面程序段的輸出是什么？

（1）If(2 * 2 = 5)<(2 * 2 = 4)Then Print “True is greater then false.” Else Print “False is greater then true.” End If（2）a = 0 If a > = 7 Then a = 1 Print “Watch Out”, a End If（3）a = 0 If a > = 7 Then a = 1 End If Print “Watch Out”, a

P 9 教學(xué)后記：

實(shí)驗(yàn)四 循環(huán)結(jié)構(gòu)程序設(shè)計(jì)

P 10

一、本次課主要內(nèi)容 1．計(jì)算階乘。

2．編程實(shí)現(xiàn)勾股定理中三個(gè)數(shù)的關(guān)系是a2＋b2 = c2。3．編程求完全數(shù)。

二、教學(xué)目的與要求

1.熟悉分支轉(zhuǎn)移結(jié)構(gòu)程序設(shè)計(jì)，靈活使用有關(guān)語(yǔ)句。2.熟悉循環(huán)結(jié)構(gòu)程序設(shè)計(jì)，靈活使用各種循環(huán)語(yǔ)句。3.能夠正確閱讀嵌套循環(huán)，及正確使用嵌套循環(huán)。

三、教學(xué)重點(diǎn)難點(diǎn)

循環(huán)結(jié)構(gòu)程序設(shè)計(jì)及相關(guān)語(yǔ)句的用法

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫實(shí)驗(yàn)報(bào)告，寫出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)5。

實(shí)驗(yàn)四 循環(huán)結(jié)構(gòu)程序設(shè)計(jì)

P 11 1.計(jì)算階乘

2．勾股定理中三個(gè)數(shù)的關(guān)系是a2＋b2 = c2。編寫程序，輸出30以內(nèi)滿足上述關(guān)系的整數(shù)組合，例如3，4，5就是一個(gè)整數(shù)組合。

（1）編寫程序

（2）程序運(yùn)行后，單擊窗體，將輸出30以內(nèi)滿足關(guān)系的整數(shù)a，b，c的組合，同時(shí)顯示相應(yīng)的a*a，b*b，c*c，結(jié)果如圖36所示。

圖36

程序執(zhí)行結(jié)果

3．如果一個(gè)數(shù)的因子（不包括本身）之和等于這個(gè)數(shù)本身，則稱這樣的數(shù)為“完全數(shù)”。例如，整數(shù)28的因子為1，2，4，7，14，其和1＋2＋4＋7＋14 = 28，因此28是一個(gè)完全數(shù)。試編寫一個(gè)程序，從鍵盤上輸出正整數(shù)N和M，輸出N和M之間的所有完全數(shù)。

程序如下：

程序運(yùn)行后，單擊窗體，在兩個(gè)輸入對(duì)話框中分別輸入N 和M的值，即可輸出N和M之間的“完全數(shù)”。假定輸入的N和M的值分別為2和1000，則結(jié)果如圖37所示。

P 12

程序執(zhí)行結(jié)果

4．編程計(jì)算由下列公式確定的s值，其中n是用戶輸入的正整數(shù)，注意選用合適的變量類型。

（1）s = 12 + 22 + 32 + ? + n2（2）s = 11×22×33×?×nn（3）s = 1 + 1×2 + 1×2×3 + ? + 1×2×3×?×n 5．用While?Wend語(yǔ)句計(jì)算2n，請(qǐng)嘗試用不同形式的Do?Loop語(yǔ)句和For?Next語(yǔ)句重寫該程序。

教學(xué)后記：

實(shí)驗(yàn)五 VB的常用控件

一、本次課主要內(nèi)容

1．設(shè)置文本框Text1中內(nèi)容的字體、字型和顏色。

2．如果單擊“添加”按鈕，就將在文本框和組合框中輸入或選擇的內(nèi)容插入空格后連接成一個(gè)字符串添加到List1中；如果單擊“去除”按鈕，就將List1中選中的項(xiàng)刪除；如果單擊“清空”按鈕，就將List1中所有的項(xiàng)目全部刪除。

3．將定時(shí)器計(jì)時(shí)開始后度過(guò)的總秒數(shù)換算為時(shí)、分、秒(取2位小數(shù))顯示。4．將復(fù)選框的選中狀態(tài)（Value屬性值）轉(zhuǎn)換為邏輯值后賦值給圖片框的AutoSize屬性，決定圖片框是否自動(dòng)改變大小以顯示全部圖形；將復(fù)選框的選中狀態(tài)（Value屬性值）轉(zhuǎn)換為邏輯值后賦值給圖像框的Stretcch屬性，決定圖形是否自動(dòng)縮放以適應(yīng)圖像框大小。

二、教學(xué)目的與要求

1.掌握單選按鈕、復(fù)選框和框架的使用方法。2.掌握列表框控件和組合框控件的使用方法。3.掌握時(shí)鐘控件的使用方法。

4.掌握?qǐng)D片框控件和圖像框控件的使用方法。

三、教學(xué)重點(diǎn)難點(diǎn) 常用控件的使用方法

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫實(shí)驗(yàn)報(bào)告，寫出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)6。

P 13

P 14

實(shí)驗(yàn)五 VB的常用控件

1．設(shè)計(jì)界面（程序一到四）2．設(shè)置屬性 3．編寫程序代碼 4.調(diào)試運(yùn)行 第一題：

運(yùn)行結(jié)果：

第二題：

運(yùn)行結(jié)果：

P 15

第四題：

運(yùn)行結(jié)果：

5.利用時(shí)鐘控件和圖像控件編寫一個(gè)自動(dòng)紅綠燈模擬程序。要求在晚上21:00到早晨7:00全亮，其余時(shí)間紅、黃、綠燈自動(dòng)切換。

教學(xué)后記：

實(shí)驗(yàn)六 數(shù)組

一、本次課主要內(nèi)容

1.定義一個(gè)固定大小的一維數(shù)組，并為數(shù)組元素賦值，最后將數(shù)組元素輸出到窗體上。

P 16 2.請(qǐng)編寫程序，完成將一個(gè)6×8的矩陣分別按行和列的順序放到一維數(shù)組中。3.隨機(jī)產(chǎn)生10個(gè)數(shù)，按升序（降序）排列輸出

二、教學(xué)目的與要求 1.掌握數(shù)組的基本概念。2.掌握數(shù)組的聲明、應(yīng)用。3.掌握控件數(shù)組。

4.掌握如何利用數(shù)組解決與數(shù)組相關(guān)的常用算法（特別是排序算法）。

三、教學(xué)重點(diǎn)難點(diǎn)

利用數(shù)組解決與數(shù)組相關(guān)的常用算法

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫實(shí)驗(yàn)報(bào)告，寫出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)7。

實(shí)驗(yàn)六 數(shù)組

第一題：

P 17

Dim a(0 To 9)As Integer '定義一個(gè)大小為10的整形數(shù)組 '數(shù)組賦值命令按鈕事件過(guò)程 Private Sub Command1_Click()For i = 0 To 9 a(i)= Int(InputBox(“請(qǐng)輸入數(shù)組元素” & i + 1 & “/” & “10”, “數(shù)組賦值”))Next i End Sub '顯示數(shù)組元素命令按鈕事件過(guò)程 Private Sub Command2_Click()For i = 0 To 9 Print a(i)Next i End Sub

第二題： Option Base 1 Dim a%(6, 8), b%(), c%()'定義一個(gè)二維數(shù)組(6x8)和兩個(gè)動(dòng)態(tài)數(shù)組 '將二維數(shù)組按行存儲(chǔ)到一維數(shù)組b中 Private Sub Command1_Click()k = 1 For i = LBound(a, 1)To UBound(a, 1)For j = LBound(a, 2)To UBound(a, 2)

b(k)= a(i, j): k = k + 1 Next j Next i Text2.Text = “" '將按行存放后的一維數(shù)組b的元素顯示到文本框中 For i = LBound(b)To UBound(b)Text2.Text = Text2.Text & Format(b(i), ”@@@@“)Next i End Sub '將二維數(shù)組按列存儲(chǔ)到一維數(shù)組c中 Private Sub Command2_Click()k = 1 For j = LBound(a, 2)To UBound(a, 2)For i = LBound(a, 1)To UBound(a, 1)c(k)= a(i, j): k = k + 1 Next i Next j Text3.Text = ”“ '將按列存放后的一維數(shù)組c的元素顯示到文本框中 For i = LBound(c)To UBound(c)Text3.Text = Text3.Text & Format(c(i), ”@@@@“)Next i End Sub '窗體載入事件過(guò)程 Private Sub Form_Load()Text1.Text = ”“: Text2.Text = ”“: Text3.Text = ”“ '二維數(shù)組初始化

For i = LBound(a, 1)To UBound(a, 1)For j = LBound(a, 2)To UBound(a, 2)

P 18

a(i, j)= Int(90 * Rnd)X)*(pz))End Sub Private Sub cmdJs_Click()Dim a!, b!, c!, w!a = Val(txtA.Text)b = Val(txtB.Text)c = Val(txtC.Text)If a > b + c Or b > a + c Or c > a + b Then MsgBox ”輸入的三條邊不能構(gòu)成一個(gè)三角形！" Else Call area(a, b, c, w)txtMj.Text = Str(w)End If End Sub 第二題：

P 23

Private Function gcd(ByVal x As Integer, ByVal y As Integer)As Integer Dim r As Integer r = x Mod y Do While r <> 0 x = y y = r r = x Mod y Loop gcd = y End Function Private Sub Command1_Click()Dim a As Integer, b As Integer a = Val(Text1.Text): b = Val(Text2.Text)x = gcd(a, b)Text3.Text = x End Sub

第三題：

Private Function prime(x)As Boolean If x < 2 Then prime = False Exit Function

End If For i = 2 To Sqr(x)If x Mod i = 0 Then prime = False Exit Function End If Next prime = True End Function

Private Sub Form_Click()For a = 200 To 1000-2 b = a + 2 If prime(a)And prime(b)Then Debug.Print a, b c = a + b End If Next Print c End Sub

教學(xué)后記：

P 24

P 25

實(shí)驗(yàn)八 等級(jí)考試專題及考查

一、本次課主要內(nèi)容

進(jìn)行一次等級(jí)考試的模擬測(cè)試。

二、教學(xué)目的與要求

1.熟悉等級(jí)考試中程序題的答題過(guò)程。

2.掌握利用VB內(nèi)部函數(shù)、表達(dá)式、控制結(jié)構(gòu)等知識(shí)進(jìn)行較復(fù)雜的編程。

三、教學(xué)重點(diǎn)難點(diǎn) 等級(jí)考試的復(fù)雜題型

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.認(rèn)真完成和按時(shí)提交考查任務(wù)；

2.自行復(fù)習(xí)，準(zhǔn)備下學(xué)期初的國(guó)二VB考試。

實(shí)驗(yàn)八 等級(jí)考試專題及考查

P 26 1．登陸等級(jí)考試系統(tǒng)，選做VB的基礎(chǔ)知識(shí)和程序題（包括程序改錯(cuò)，程序填空、程序設(shè)計(jì)）

2.每個(gè)同學(xué)都把自己等級(jí)考試中隨機(jī)抽到的題目抄寫下來(lái)，互相傳閱，最后把不同類型的題目做個(gè)歸納總結(jié)。

教學(xué)后記：

第五篇：vb教案2

第三章 輸出

print(?)方法： 窗體.方法

Form1.Print 12 Print 23 a = 10 Print a + 20, 30, Sin(a)Print a + 20;30;Sin(a)xm = “李四” Print xm & “成績(jī)是:” & a 如果一個(gè)連接內(nèi)有非字符串型內(nèi)容，使用&強(qiáng)制轉(zhuǎn)換 2 與Print相關(guān)函數(shù)

Tab(n)

'Dim a, b, c As Integer 'a,b為變體

Dim a As Integer, b As Integer, c As Integer a = 12: b = 24: c = 34 '多句書寫一行上，用:隔開 Print Tab(2);a;Tab(10);b;Tab(10);c 指定在第n列位置開始輸出數(shù)據(jù),輸出完成后光標(biāo)在最后一個(gè)數(shù)據(jù)的右邊.如果下一個(gè)tab(n)的列數(shù)<=當(dāng)前光標(biāo)的列數(shù)，則自動(dòng)提行.數(shù)據(jù)后如跟;,，則表示下一個(gè)數(shù)據(jù)是接著上一數(shù)據(jù)右邊輸出 Print “ab” + Space(5)+ “cd” Print “ab”;Spc(5);“cd”;Spc(5);“ef” Print “ab”;Tab(8);“cd”;Tab(15);“ef” cls方法 Picture1.Cls Form1.Cls

cls

3.2 數(shù)據(jù)輸入inputbox()x = InputBox(“請(qǐng)輸入一個(gè)數(shù):”)'輸入的是字符串 Print Val(x)^ 2 'val(x)把數(shù)字式的串轉(zhuǎn)換成數(shù)值型 Print x ^ 2 注：default:設(shè)置默認(rèn)（缺省）參數(shù)值

x = InputBox(“請(qǐng)輸入一個(gè)數(shù):”, “提示！”, 1)'輸入的是字符串

3.3 msgbox()函數(shù)，命令 函數(shù)：

Msgbox(“信息”,[類型],”標(biāo)題”)

t = MsgBox(“你弄錯(cuò)了”, , “警告”)

Private Sub Command3_Click()t = MsgBox(“你弄錯(cuò)了”, 3 + 256, “警告”)End Sub

不加括號(hào)，成了命令

MsgBox “你弄錯(cuò)了”, 3 + 256, “警告”

注：msgbox()會(huì)根據(jù)用戶點(diǎn)擊的按鈕來(lái)返回一個(gè)值,如點(diǎn)了“是(Y)”按鈕，則返回的是6，根據(jù)這個(gè)值來(lái)繼續(xù)編程控制程序的運(yùn)行.M$=”abdcd”

等效于如下：

Dim m as string M=”abdcd”

作業(yè)上交: pzyy14@126.com

規(guī)范：20100900001張三第一次.rar

第4章

程序設(shè)計(jì)

4．1 賦值語(yǔ)句,是一個(gè)動(dòng)作命令,”=”叫賦值操作，不是等號(hào)

Let 變量名=表達(dá)式

變量名=表達(dá)式

賦值是自右向左運(yùn)算

Label1.Caption = “計(jì)算機(jī)學(xué)習(xí)” Label1.FontSize = 22 Label1.AutoSize = True Label1.ForeColor = RGB(255, 1, 1)X=x+1

4.2 條件語(yǔ)句 1 分支結(jié)構(gòu) If <條件> then

<語(yǔ)句塊>

[ else

<語(yǔ)句塊> ] End if 例：輸入一個(gè)數(shù),判斷是負(fù)還是非負(fù) n = Val(InputBox(“請(qǐng)輸入一個(gè)數(shù):”))If n < 0 Then

Print “負(fù)數(shù)” Else

Print “非負(fù)數(shù)” End If If n < 0 Then Print “負(fù)數(shù)” Else Print “非負(fù)數(shù)” 例: 輸入一個(gè)數(shù),判斷是負(fù)還是0,還是正 n = Val(InputBox(“請(qǐng)輸入一個(gè)數(shù):”))If n < 0 Then

Print “負(fù)數(shù)” Else

If n = 0 Then

Print “0”

Else

Print “正數(shù)”

End If End If