第一篇：VB教案(9)列表框(ListBox)

（九）列表框（ListBox）

為用戶提供選項(xiàng)列表，可選一項(xiàng)或多項(xiàng)，但不能進(jìn)行類似文本框的編輯修改。項(xiàng)目數(shù)超出列表框顯示的范圍，會(huì)自動(dòng)添加垂直滾動(dòng)條（若是多列列表，可添加水平滾動(dòng)條）。無下拉按鈕。

一、列表框的屬性： 1． Name屬性： 2． Text屬性：（編程用）

總是對(duì)應(yīng)用戶在運(yùn)行時(shí)選定的列表項(xiàng)目的內(nèi)容。3． ListIndex屬性：（編程用）

（1）設(shè)置列表框中當(dāng)前要選用的項(xiàng)目，相當(dāng)于觸發(fā)Click事件。（2）返回列表框中當(dāng)前選中項(xiàng)目的索引值：

第一項(xiàng)為0，第二項(xiàng)為1??

未選中為 – 1 4． NewIndex屬性：（編程用）

始終定位在最后一個(gè)添加到列表中的項(xiàng)目的索引值。5． List屬性：（編程用）

本屬性包括項(xiàng)目全部組成的一個(gè)數(shù)組，以下標(biāo)來區(qū)分每一個(gè)項(xiàng)目元素，引用格式為： <控件名>．List（<索引值>）6． ListCount屬性：（編程用）

返回列表框中項(xiàng)目的總數(shù)（最大索引值 + 1）。7． Sorted屬性：

選True時(shí)，自動(dòng)按字母順序排序。（缺省值為False）8． Selected（索引值）屬性：（編程用）返回值為True時(shí)，表示索引值所指的項(xiàng)目被選中。9． Style屬性：

0：表示只能單選（默認(rèn)值）1：表示可選多項(xiàng) 10．MultiSelect屬性：

0：表示只能單選

1：可用鼠標(biāo)單擊方式選多項(xiàng)

2：可用 + 單擊 或 + 單擊 的方式選多項(xiàng)

二、列表框的事件和方法： 1． Click事件： 2． Dblchick事件：

注：程序中常應(yīng)考慮到雙擊某一項(xiàng)目的效果，應(yīng)和單擊該項(xiàng)目后再單擊一命令按鈕（如“確定”）的效果相同。（方法是：將<命令按鈕名>_Click 或 <命令按鈕名>．Value=True 的語(yǔ)句放入雙擊列表的事件過程中。）3． AddItem方法：

（1）向列表中添加項(xiàng)目，引用格式為：

<列表框名>．AddItem <項(xiàng)目字符串表達(dá)式> [，<索引值>]（2）說明： ①本方法通常用在Form_Load（）事件的過程中。

②<索引值>指定添加項(xiàng)目的插入位置。

③<索引值>缺省時(shí)：

Sorted屬性為False時(shí)，則添加在列表框尾部。

Sorted屬性為True時(shí)，則插入到所排序列的適當(dāng)位置。4． RemoveItem方法：（1）格式：

<列表框名>．RemoveItem [，<索引值>]（2）功能：

刪除列表框中指定的項(xiàng)目。（3）說明：

<索引值>缺省時(shí)，刪除當(dāng)前選定的項(xiàng)目。5． Clear方法：（1）格式：

<列表框名>．Clear（2）功能：

刪除列表框中所有項(xiàng)目。

第二篇：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è)窗體模塊。問該工程涉及到多少個(gè)文件要保存？若要保存該工程中的所有文件，正確的操作應(yīng)先保存什么文件？再保存什么文件？若不這樣做，系統(tǒng)會(huì)出現(xiàn)什么信息？

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

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

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）編寫命令按鈕的事件過程： 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)，超過200元的部分納稅5%；（3）收入在1000~2000元以內(nèi)，超過1000元的部分，納稅8%；（4）當(dāng)收入達(dá)到2000元或超過時(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è)試手段，可以通過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分鐘以上，則每超過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，說明執(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í)開始后度過的總秒數(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ù)組賦值命令按鈕事件過程 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ù)組元素命令按鈕事件過程 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 '窗體載入事件過程 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í)考試中程序題的答題過程。

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ī)抽到的題目抄寫下來，互相傳閱，最后把不同類型的題目做個(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)擊的按鈕來返回一個(gè)值,如點(diǎn)了“是(Y)”按鈕，則返回的是6，根據(jù)這個(gè)值來繼續(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

第四篇：VB優(yōu)質(zhì)課教案

《VB》公開課教案

(2010-04-05 20:20:16)轉(zhuǎn)載▼ 標(biāo)簽：

教育

時(shí)間：第十三周星期四第三節(jié)課

授課人：朱國(guó)營(yíng) 地點(diǎn)：電腦實(shí)驗(yàn)1室 班級(jí)：09計(jì)1 課題：第五章第三節(jié)——Circle（畫圓）方法

教學(xué)目的：通過簡(jiǎn)要說明畫圓方法的格式，并通過完成練習(xí)使學(xué)生進(jìn)一步掌握Circle方法的操作要點(diǎn)，以利于日后編制美觀的程序界面。課時(shí)分配：1課時(shí)

教學(xué)方法：“任務(wù)驅(qū)動(dòng)”教學(xué)法 教學(xué)難點(diǎn)：圓心的定位 教學(xué)手段：多媒體課件 教學(xué)過程：

一、復(fù)習(xí)提問，引入新課

通過復(fù)習(xí)畫線（Line）方法鞏固直線和矩形的繪制，并引入新課。

二、講授新課

（一）、讀書引導(dǎo)，提出任務(wù)：簡(jiǎn)要說明畫圓方法的格式，并通過完成練習(xí)使學(xué)生進(jìn)一步掌握Circle方法，使學(xué)生學(xué)會(huì)畫圓。

首先分配5分鐘時(shí)間讓學(xué)生閱讀本節(jié)課的內(nèi)容，然后簡(jiǎn)要說明畫圓方法的格式及注意事項(xiàng)，必要時(shí)通過例題來說明格式中各項(xiàng)參數(shù)的正確使用，同時(shí)提出本節(jié)課要完成的任務(wù)。

格式：[對(duì)象.]Circle [step](x, y),半徑 [, 顏色] 說明：

圓心坐標(biāo)設(shè)置有兩種方法：

1、省略step，就以（x,y）絕對(duì)坐標(biāo)為圓心。

2、用step是以上一個(gè)繪圖語(yǔ)句的坐標(biāo)為參考點(diǎn)，再加上此step的（x,y）值成為圓心的位置。舉例說明：

Private Sub Picture1_Click()Picture1.Circle(300, 300), 200, vbred Picture1.Circle Step(400, 400), 400, vbgreen Picture1.CurrentX = 2000: Picture1.CurrentY = 1000 Picture1.Circle Step(200,-300), 400 Picture1.Circle(2200, 700), 600, vbblue End Sub

（二）、難點(diǎn)分析

練習(xí)中的難點(diǎn)是如何定置圓的圓心，同時(shí)要注意顏色參數(shù)的變化。

（三）、學(xué)生完成任務(wù)：

（1）、在窗口中央畫一個(gè)半徑為1000的紅色圓。（2）、繪制“彩色同心圓”

（3）、思考題：利用前面知識(shí)，改變同心圓的線寬。

（完成任務(wù)即完成練習(xí)，使學(xué)生在循序漸進(jìn)的練習(xí)中掌握知識(shí)。）

（四）、通過檢查學(xué)生完成練習(xí)的情況，既了解教學(xué)效果，也具有針對(duì)性地分析題目，提高教學(xué)效率。

三、課堂總結(jié)

本節(jié)課主要學(xué)習(xí)用Circle方法畫圓，畫圓的關(guān)鍵是要定好圓心的位置和顏色參數(shù)任選，線寬可用“Drawwidth”屬性值設(shè)置。

四、提高作業(yè)

1、繪制“風(fēng)車”

2、繪制“氣泡”

第五篇：vb語(yǔ)言編程教案

課

題：vb語(yǔ)言編程概述 課 時(shí):2課時(shí) 授課時(shí)間：2011.09.05 課堂類型：講授

教學(xué)目的：1.熟悉VB界面和VB集成開發(fā)環(huán)境；

2.在實(shí)際操作中學(xué)會(huì)編簡(jiǎn)單的VB應(yīng)用程序；

教學(xué)要求：1.掌握VB基礎(chǔ)知識(shí)。

2.會(huì)編簡(jiǎn)單的VB應(yīng)用程序。

教學(xué)重點(diǎn)：1.熟悉VB集成開發(fā)環(huán)境

2.編寫簡(jiǎn)單VB應(yīng)用程序。

教學(xué)難點(diǎn)：在熟悉VB界面的同時(shí)學(xué)習(xí)編寫簡(jiǎn)單VB應(yīng)用程序 教學(xué)方法：講授 教學(xué)過程：

一、VB簡(jiǎn)介

BASIC是英文Beginner’s All-purpose Symbolic Instruction Code（初學(xué)者通用符號(hào)指令代碼）的縮寫，它是專門為初學(xué)者設(shè)計(jì)的高級(jí)語(yǔ)言。Visual Basic是Microsoft公司于1991年推出的基于窗口的可視化程序設(shè)計(jì)語(yǔ)言。

a．“Visual”是“可視化的”、“形象化的”的意思。b.因此Visual Basic也具有易學(xué)易用的特點(diǎn)

c.目前Visual Basic的最新版本是Visual Basic 6.0（簡(jiǎn)稱VB 6.0）

二、啟動(dòng)VB

1、首先顯示“新建工程”對(duì)話框

直接單擊“打開”按鈕，創(chuàng)建“標(biāo)準(zhǔn)EXE”類型應(yīng)用程序，進(jìn)入集成開發(fā)環(huán)境主界面。

2、集成開發(fā)環(huán)境中的各元素 1）標(biāo)題欄：用來顯示窗口的標(biāo)題。2）菜單欄 3）工具欄 4）工具箱 5）窗體窗口 6）工程窗口 7）屬性窗口 8）窗體布局窗口

三、通過一個(gè)簡(jiǎn)單的應(yīng)用程序快速入門

【例1.1（實(shí)訓(xùn)1，p16）】制作一個(gè)的一個(gè)簡(jiǎn)單的應(yīng)用程序的運(yùn)行界面。它由一個(gè)窗體、一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕組成。當(dāng)用戶單擊命令按鈕“顯示”時(shí)，文本框中出現(xiàn)“教你學(xué)VB”。1．新建工程 2．添加文本框Text1 3．添加命令按鈕Command1 4．添加標(biāo)簽Label1 5．設(shè)置屬性 6．編寫事件過程代碼

前面的工作把應(yīng)用程序的界面設(shè)計(jì)好了，屬性也設(shè)置完畢。但現(xiàn)在應(yīng)用程序并不能實(shí)現(xiàn)實(shí)際的功能。為了使它具有一定的功能，還必須為對(duì)象編寫實(shí)現(xiàn)某一功能的事件過程代碼。1）雙擊窗體上的“顯示”按鈕，屏幕上出現(xiàn)代碼窗口，程序代碼就在這里編寫。編寫如下事件過程：

Private Sub Command1_Click（）Text1.Text = “歡迎使用VB” End Sub 2）運(yùn)行應(yīng)用程序 3）保存應(yīng)用程序

VB應(yīng)用程序至少有兩種文件需要保存： · 窗體文件（.frm）· 工程文件（.vbp）4）生成EXE文件

四、總結(jié)步驟

設(shè)計(jì)VB應(yīng)用程序主要有以下4個(gè)步驟：（1）設(shè)計(jì)用戶界面。（2）設(shè)置屬性。（3）編寫代碼。（4）保存和運(yùn)行調(diào)試程序，生成EXE文件。

五、知識(shí)延伸

1、只有一個(gè)文本框的實(shí)例 編寫如下事件過程：

Private Sub Command1_Click（）Text1.Text = “教你學(xué)VB“ End Sub

2、多個(gè)文本框時(shí) 編寫如下事件過程：

Private Sub Command1_Click（）Text1.Text = ”教你學(xué)VB“ Text2.Text = “歡迎使用VB“ End Sub

3、按照系統(tǒng)的元件特性分類(分別舉例說明)課后實(shí)訓(xùn)1 第二個(gè)命令按鈕：清除 第三個(gè)命令按鈕：退出 步驟：

1.添加2個(gè)命令按鈕 2.雙擊按鈕，進(jìn)入編程狀態(tài) 3.和顯示按鈕命令編程相似 編寫如下事件過程： Private Sub Command2_Click（）Text1.Text = ” “ End Sub Private Sub Command3_Click（）End End Sub

4、圖片的加載方法

Private Sub Form_Load()Image1.Picture = LoadPicture(App.Path + “1.BMP”)End Sub

六、小結(jié) 1.熟悉界面。

2.掌握完整編程過程以及運(yùn)行及調(diào)試程序的過程。