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

《VB》公開(kāi)課教案

(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（畫(huà)圓）方法

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

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

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

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

二、講授新課

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

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

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

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

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

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

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）、在窗口中央畫(huà)一個(gè)半徑為1000的紅色圓。（2）、繪制“彩色同心圓”

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

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

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

三、課堂總結(jié)

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

四、提高作業(yè)

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

2、繪制“氣泡”

第二篇：VB優(yōu)質(zhì)課教案[最終版]

《VB》公開(kāi)課簡(jiǎn)案

時(shí)間：第三周星期五第5節(jié)

授課人：趙家彬 地點(diǎn)：3號(hào)微機(jī)室 班級(jí)：九年級(jí)4班 課題：第五章第三節(jié)——Circle（畫(huà)圓）方法

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

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

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

通過(guò)觀察圖形并復(fù)習(xí)畫(huà)點(diǎn)（Pset）劃線(Line)方法，引入新課。

二、講授新課

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

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

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

2、講解RGB參數(shù).說(shuō)明：

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

（1）、在窗口中央畫(huà)一個(gè)半徑為1000的藍(lán)色圓。（2）、畫(huà)奧運(yùn)五環(huán)(3）、畫(huà)“小熊頭”圖案

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

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

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

三、課堂總結(jié)

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

四、提高作業(yè)

1、繪制同心圓 P84

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

實(shí)驗(yàn)一 VB集成開(kāi)發(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． 編寫(xiě)顯示“歡迎使用Visual Basic6.0”的窗體程序。

P 1 5． 按照Visual Basic編寫(xiě)程序的基本步驟建立一個(gè)用于“商品銷(xiāo)售計(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ì)象和類(lèi)的概念。5．學(xué)習(xí)用屬性窗口設(shè)置對(duì)象屬性的方法。

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

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

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

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

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

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

1． Visual Basic 6.0有多種類(lèi)型的窗口，若想在設(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．在窗體上畫(huà)一個(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ò)程編寫(xiě)程序。

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á)式的書(shū)寫(xiě)，并能閱讀出表達(dá)式的運(yùn)行結(jié)果。3．設(shè)計(jì)一個(gè)簡(jiǎn)單的計(jì)數(shù)器。

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

1．掌握Visual Basic數(shù)據(jù)類(lèi)型的基本概念。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.撰寫(xiě)實(shí)驗(yàn)報(bào)告，寫(xiě)出所有的方法，要有詳細(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）在窗體上畫(huà)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）編寫(xiě)命令按鈕的事件過(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．按要求編寫(xiě)程序?qū)崿F(xiàn)稅務(wù)部門(mén)征收所得稅的納稅金額。

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

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

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

邏輯表達(dá)式的正確書(shū)寫(xiě)形式

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

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

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

P 7

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

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

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

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

（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.撰寫(xiě)實(shí)驗(yàn)報(bào)告，寫(xiě)出所有的方法，要有詳細(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。編寫(xiě)程序，輸出30以?xún)?nèi)滿(mǎn)足上述關(guān)系的整數(shù)組合，例如3，4，5就是一個(gè)整數(shù)組合。

（1）編寫(xiě)程序

（2）程序運(yùn)行后，單擊窗體，將輸出30以?xún)?nèi)滿(mǎn)足關(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ù)本身，則稱(chēng)這樣的數(shù)為“完全數(shù)”。例如，整數(shù)28的因子為1，2，4，7，14，其和1＋2＋4＋7＋14 = 28，因此28是一個(gè)完全數(shù)。試編寫(xiě)一個(gè)程序，從鍵盤(pán)上輸出正整數(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是用戶(hù)輸入的正整數(shù)，注意選用合適的變量類(lèi)型。

（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ǔ)句重寫(xiě)該程序。

教學(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í)開(kāi)始后度過(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.撰寫(xiě)實(shí)驗(yàn)報(bào)告，寫(xiě)出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)6。

P 13

P 14

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

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

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

第二題：

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

P 15

第四題：

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

5.利用時(shí)鐘控件和圖像控件編寫(xiě)一個(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)編寫(xiě)程序，完成將一個(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.撰寫(xiě)實(shí)驗(yàn)報(bào)告，寫(xiě)出所有的方法，要有詳細(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í)考試專(zhuān)題及考查

一、本次課主要內(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í)考試專(zhuān)題及考查

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

2.每個(gè)同學(xué)都把自己等級(jí)考試中隨機(jī)抽到的題目抄寫(xiě)下來(lái)，互相傳閱，最后把不同類(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 '多句書(shū)寫(xiě)一行上，用:隔開(kāi) Print Tab(2);a;Tab(10);b;Tab(10);c 指定在第n列位置開(kāi)始輸出數(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(“信息”,[類(lèi)型],”標(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ù)用戶(hù)點(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

第五篇：公開(kāi)課 VB程序設(shè)計(jì)教案

第四課 學(xué)學(xué)程序設(shè)計(jì)—初步認(rèn)識(shí)編程軟件VB 教學(xué)目標(biāo)：

知識(shí)目標(biāo)：了解什么是程序設(shè)計(jì)語(yǔ)言和計(jì)算機(jī)程序以及語(yǔ)言的分類(lèi)

過(guò)程與方法：培養(yǎng)學(xué)生的閱讀總結(jié)和自主探索能力

情感態(tài)度與價(jià)值觀：通過(guò)學(xué)生利用所學(xué)的知識(shí)解決實(shí)際問(wèn)題，激

發(fā)學(xué)生的學(xué)習(xí)興趣

教學(xué)重難點(diǎn)：了解什么是程序設(shè)計(jì)語(yǔ)言

啟發(fā)學(xué)生創(chuàng)新思維

以任務(wù)為驅(qū)動(dòng)，激發(fā)學(xué)生創(chuàng)新思維 教法：講授法、任務(wù)驅(qū)動(dòng)法 教學(xué)過(guò)程：

一、導(dǎo)入新課

教師運(yùn)行游戲小程序，引起學(xué)生的興趣，并打開(kāi)程序的原代碼說(shuō)明編程并不很神秘。試運(yùn)行游戲小程序，激發(fā)學(xué)生的學(xué)習(xí)興趣。

二、教師講授： 程序設(shè)計(jì)語(yǔ)言

教師活動(dòng)：語(yǔ)言是人類(lèi)交流思想、溝通感情最重要的工具。那么語(yǔ)言不通的人如何交流呢？

學(xué)生活動(dòng)：請(qǐng)一個(gè)語(yǔ)言翻譯或自己學(xué)會(huì)他人的語(yǔ)言

教師活動(dòng)：計(jì)算機(jī)所做的事情均為人向機(jī)器下達(dá)的命令，那么操作作者又是通過(guò)什么語(yǔ)言同計(jì)算機(jī)進(jìn)行溝通的呢？ 程序設(shè)計(jì)語(yǔ)言的分類(lèi)及特點(diǎn)

1、機(jī)器語(yǔ)言

教師活動(dòng)：①計(jì)算機(jī)能聽(tīng)懂的語(yǔ)言（機(jī)器語(yǔ)言）②機(jī)器語(yǔ)言的實(shí)質(zhì)（二進(jìn)制語(yǔ)言）③二進(jìn)制語(yǔ)言的特點(diǎn)。強(qiáng)調(diào)計(jì)算機(jī)內(nèi)部只認(rèn)識(shí)二進(jìn)制

學(xué)生活動(dòng)：談對(duì)二進(jìn)制語(yǔ)言的感受

教師小結(jié)：機(jī)器語(yǔ)言的特點(diǎn)（二進(jìn)制、計(jì)算機(jī)直接能懂、難以理解，與人類(lèi)語(yǔ)言差距較大）匯編語(yǔ)言-用助記符號(hào)表示面向機(jī)器的程序設(shè)計(jì)語(yǔ)言。使用匯編語(yǔ)言編寫(xiě)的程序，機(jī)器不能直接識(shí)別，要由一種程雪匯編語(yǔ)言翻譯成機(jī)器語(yǔ)言。適合編寫(xiě)直接控制機(jī)器操作的程序，不容易使用。高級(jí)語(yǔ)言-最接近人的自然語(yǔ)言，即簡(jiǎn)單易學(xué)，它所編制的程序計(jì)算機(jī)執(zhí)行時(shí)需要“翻譯”，執(zhí)行速度比二進(jìn)制程序慢。三：展示微課視頻

VB簡(jiǎn)介、認(rèn)識(shí)VB窗口、相關(guān)概念：

1、對(duì)象的概念

2、屬性的概念

3、事件和代碼的概念。演示設(shè)計(jì)運(yùn)行程序“奔跑的小汽車(chē)”依照微課演示編寫(xiě)程序“奔跑的小汽車(chē)” 四：學(xué)生體驗(yàn)

1、學(xué)生編寫(xiě)程序“奔跑的小汽車(chē)”，教師巡回指導(dǎo)。

2、試修改程序，讓汽車(chē)倒車(chē)、速度變慢。

五、教學(xué)評(píng)價(jià)：

1、教師點(diǎn)評(píng)教師通過(guò)巡視，把部分學(xué)生修改的結(jié)果進(jìn)行點(diǎn)評(píng)，指出典型的錯(cuò)誤。

六、課后小結(jié)：

這節(jié)課，我們體驗(yàn)了用VB設(shè)計(jì)程序，了解程序有關(guān)知識(shí)。（回顧本節(jié)知識(shí)）希望同學(xué)們繼續(xù)努力。