第一篇：VB 教案 第 11 次課教案

第 11 次課教案

2005年10月10日

星期一

章

節：

第四章 常用控件

第一節 復選框 第二節 單選按鈕

第三節 框

架 第四節 列表框 第五節 組合框 上機實驗4 常用控件應用 教學任務：

掌握：復選框、單選按鈕、框架、列表框、組合框的常用屬性及常用方法和事件

理解：相關控件間的區別與聯系 了解：控件的其他事件

重點及難點：

重點：復選框、單選按鈕、框架、列表框、組合框的常用屬性及常用方法和事件

難點：復選框、單選按鈕、框架、列表框、組合框的常用屬性及常用方法和事件 教學內容提要：

一、復選框的常用屬性介紹

二、復選框的Click事件的介紹

三、單選按鈕的常用屬性介紹

四、單選按鈕的Click事件的介紹

五、框架的建立及常用屬性介紹

六、框架的事件介紹

七、列表框的常用屬性介紹

八、列表框的常用方法介紹

九、組合框的常用屬性介紹

十、組合框的使用

十一、上機實驗4—常用控件的應用

十二、布置作業

復習思考題、作業、參考書目：

作業：

1、對于框架內復選框和單選鈕，在使用時有何不同？

2、組合框和列表框的主要區別是什么？在什么時候可以二者有相同的用法。課后小結：

第二篇：VB 教案第 6 次課教案

第 6 次課教案

2005年9月14日

星期三

章

節：

第三章 Visual Basic程序設計基礎

第1節 運算符和表達式

教學任務：

掌握：Visual Basic提供的五種運算符 理解：表達式的書寫規則及結果 了解：運算的優先順序

重點及難點：

重點：Visual Basic提供的五種運算符

難點：Visual Basic提供的五種運算符中的邏輯運算符和位操作運算符

教學內容提要：

一、復習上節課的內容

二、介紹算術運算符（+、-、*、/、、Mod、^）的功能以及表達形式

三、介紹邏輯運算符（Not、And、Or）的功能以及表達形式

四、介紹關系運算符（=、>、>=、<、<=、<>）的功能以及表達形式

五、介紹字符串連接運算符（+、&）的功能及表達形式

六、介紹位操作運算符的功能以及表達形式

七、介紹運算的優先順序

八、介紹表達式的書寫規則

九、關系表達式和邏輯表達式和結果類型

十、布置作業

復習思考題、作業、參考書目：

作業：

1、運算符“/”和“”二者之間存在哪些不同，分別用于何種問題的解決？

課后小結：。

第三篇：VB優質課教案

《VB》公開課教案

(2010-04-05 20:20:16)轉載▼ 標簽：

教育

時間：第十三周星期四第三節課

授課人：朱國營 地點：電腦實驗1室 班級：09計1 課題：第五章第三節——Circle（畫圓）方法

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

教學方法：“任務驅動”教學法 教學難點：圓心的定位 教學手段：多媒體課件 教學過程：

一、復習提問，引入新課

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

二、講授新課

（一）、讀書引導，提出任務：簡要說明畫圓方法的格式，并通過完成練習使學生進一步掌握Circle方法，使學生學會畫圓。

首先分配5分鐘時間讓學生閱讀本節課的內容，然后簡要說明畫圓方法的格式及注意事項，必要時通過例題來說明格式中各項參數的正確使用，同時提出本節課要完成的任務。

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

圓心坐標設置有兩種方法：

1、省略step，就以（x,y）絕對坐標為圓心。

2、用step是以上一個繪圖語句的坐標為參考點，再加上此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

（二）、難點分析

練習中的難點是如何定置圓的圓心，同時要注意顏色參數的變化。

（三）、學生完成任務：

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

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

（完成任務即完成練習，使學生在循序漸進的練習中掌握知識。）

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

三、課堂總結

本節課主要學習用Circle方法畫圓，畫圓的關鍵是要定好圓心的位置和顏色參數任選，線寬可用“Drawwidth”屬性值設置。

四、提高作業

1、繪制“風車”

2、繪制“氣泡”

第四篇：vb實驗教案 -

實驗一 VB集成開發環境和簡單程序設計

一、本次課主要內容

1． 練習Visual Basic6.0的安裝與重新安裝。2． 啟動和退出Visual Basic 6.0。3． 認識VB6.0的工作界面。

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

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

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

2．學習怎樣啟動和退出Visual Basic；

3．熟悉Visual Basic的工作環境，為以后的程序設計作好準備； 4．理解Visual Basic中對象和類的概念。5．學習用屬性窗口設置對象屬性的方法。

6．初步學習在代碼編輯器中輸入程序代碼的基本操作。7．基本掌握用Visual Basic編寫程序的基本步驟。8．了解Visual Basic聯機幫助的使用方法。

三、教學重點難點 VB語言程序的上機步驟

四、教學方法和手段 實驗室機房電腦上機

五、作業與習題布置

1.撰寫實驗報告，寫出所有的方法，要有詳細的操作步驟； 2.預習并思考實驗2。

實驗一 VB集成開發環境和簡單程序設計

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

2． 如何使各窗口顯示或不顯示？ 3． 如何對工具箱添加選項卡？

4．當建立好一個簡單的應用程序后，假定該工程僅有一個窗體模塊。問該工程涉及到多少個文件要保存？若要保存該工程中的所有文件，正確的操作應先保存什么文件？再保存什么文件？若不這樣做，系統會出現什么信息？

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

6、參考實驗教材“實驗一”和“實驗二”的實驗過程編寫程序。

P 2

教學后記：

實驗二 順序結構程序設計

一、本次課主要內容

1.實驗Visual Basic中三種除法運算符（/、、Mod）的區別。2．掌握表達式的書寫，并能閱讀出表達式的運行結果。3．設計一個簡單的計數器。

二、教學目的與要求

1．掌握Visual Basic數據類型的基本概念。2．掌握變量，常量的定義規則。

3．掌握Visual Basic各種運算符的功能及表達式的構成和求值方法。4．掌握Visual Basic的基本語句。

三、教學重點難點

VB的各種運算符的功能及表達式的構成

四、教學方法和手段 實驗室機房電腦上機

五、作業與習題布置

1.撰寫實驗報告，寫出所有的方法，要有詳細的操作步驟； 2.預習并思考實驗3。

P 3

實驗二 順序結構程序設計

1．實驗Visual Basic中三種除法運算符（/、、Mod）的區別。按以下步驟執行：

P 4（1）在窗體上畫5個標簽、5個文本框和一個命令按鈕。5個標簽的標題分別為：“被除數”、“除數”、“浮點除（/）”、“整數除（）”和“余數除（Mod）”，把5個文本框清為空白，把命令按鈕的標題設置為“執行除法運算”，如圖6所示。

圖6

除法運算符實驗（界面設計）

（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或單擊工具欄上的“啟動”按鈕運行程序，在第一個文本框中輸入被除數，在第二個文本框中輸入除數，然后單擊命令按鈕，即可得到三種不同的相除結

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

P 5

圖7

除法運算符試驗（運行情況）

2．先用手工計算下列表達式的值，然后在立即窗口中試驗這些表達式的輸出結果。

(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．設x,y,z均為布爾型變量，其值分別為： x=True Y=True Z=False 求下列表達式的值：

(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 要求：先手工計算，再上機驗證。

教學后記：

P 6

實驗三 選擇結構程序設計

一、本次課主要內容

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

2．按要求編寫程序實現稅務部門征收所得稅的納稅金額。

二、教學目的與要求

1.掌握邏輯表達式的正確書寫形式。2.掌握單分支與多分支語句的使用。3.熟悉“選擇”結構程序設計。

三、教學重點難點

邏輯表達式的正確書寫形式

四、教學方法和手段 實驗室機房電腦上機

五、作業與習題布置

1.撰寫實驗報告，寫出所有的方法，要有詳細的操作步驟； 2.預習并思考實驗4。

P 7

實驗三 選擇結構程序設計

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

2．稅務部門征收所得稅，規定如下：（1）收入在800元以內，免征；

（2）收入在800~1000元以內，超過200元的部分納稅5%；（3）收入在1000~2000元以內，超過1000元的部分，納稅8%；（4）當收入達到2000元或超過時，納稅10%； 編程實現上述操作。（1）編寫程序代碼：

（2）程序運行

程序運行后，單擊窗體，在輸入對話框中輸入收入數，程序將輸出納稅金額。例如輸入1560，運行情況如圖30所示。

P 8

圖30 納稅運行情況

3．輸入x、y、z三個數，按從大到小的次序顯示。要求：對輸入數據應有測試手段，可以通過IsNumeric函數對文本框中的數進行測試。若輸入的數有非數字字符，顯示“不能轉換成數值”，提示再輸入。當輸入的三個數全部都是數字字符后再轉換成數值型，然后進行大小比較。

4．某市公用電話收費標準如下：市話通話時間在3分鐘以下，收費0.50元；3分鐘以上，則每超過1分鐘加收0.15元；在7:00-19:00之間通話者，按上述收費標準全價收費；在其他時間通話者一律接收費標準的半價收費。試計算某人在T時間通話S分鐘，應繳多少電話費。

5．設在窗體上已經建立一個文本框Text1，兩個命令按鈕Commmand1和Command2，說明執行以下語句后，各控件將顯示什么內容？

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 教學后記：

實驗四 循環結構程序設計

P 10

一、本次課主要內容 1．計算階乘。

2．編程實現勾股定理中三個數的關系是a2＋b2 = c2。3．編程求完全數。

二、教學目的與要求

1.熟悉分支轉移結構程序設計，靈活使用有關語句。2.熟悉循環結構程序設計，靈活使用各種循環語句。3.能夠正確閱讀嵌套循環，及正確使用嵌套循環。

三、教學重點難點

循環結構程序設計及相關語句的用法

四、教學方法和手段 實驗室機房電腦上機

五、作業與習題布置

1.撰寫實驗報告，寫出所有的方法，要有詳細的操作步驟； 2.預習并思考實驗5。

實驗四 循環結構程序設計

P 11 1.計算階乘

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

（1）編寫程序

（2）程序運行后，單擊窗體，將輸出30以內滿足關系的整數a，b，c的組合，同時顯示相應的a*a，b*b，c*c，結果如圖36所示。

圖36

程序執行結果

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

程序如下：

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

P 12

程序執行結果

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

（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語句計算2n，請嘗試用不同形式的Do?Loop語句和For?Next語句重寫該程序。

教學后記：

實驗五 VB的常用控件

一、本次課主要內容

1．設置文本框Text1中內容的字體、字型和顏色。

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

3．將定時器計時開始后度過的總秒數換算為時、分、秒(取2位小數)顯示。4．將復選框的選中狀態（Value屬性值）轉換為邏輯值后賦值給圖片框的AutoSize屬性，決定圖片框是否自動改變大小以顯示全部圖形；將復選框的選中狀態（Value屬性值）轉換為邏輯值后賦值給圖像框的Stretcch屬性，決定圖形是否自動縮放以適應圖像框大小。

二、教學目的與要求

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

4.掌握圖片框控件和圖像框控件的使用方法。

三、教學重點難點 常用控件的使用方法

四、教學方法和手段 實驗室機房電腦上機

五、作業與習題布置

1.撰寫實驗報告，寫出所有的方法，要有詳細的操作步驟； 2.預習并思考實驗6。

P 13

P 14

實驗五 VB的常用控件

1．設計界面（程序一到四）2．設置屬性 3．編寫程序代碼 4.調試運行 第一題：

運行結果：

第二題：

運行結果：

P 15

第四題：

運行結果：

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

教學后記：

實驗六 數組

一、本次課主要內容

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

P 16 2.請編寫程序，完成將一個6×8的矩陣分別按行和列的順序放到一維數組中。3.隨機產生10個數，按升序（降序）排列輸出

二、教學目的與要求 1.掌握數組的基本概念。2.掌握數組的聲明、應用。3.掌握控件數組。

4.掌握如何利用數組解決與數組相關的常用算法（特別是排序算法）。

三、教學重點難點

利用數組解決與數組相關的常用算法

四、教學方法和手段 實驗室機房電腦上機

五、作業與習題布置

1.撰寫實驗報告，寫出所有的方法，要有詳細的操作步驟； 2.預習并思考實驗7。

實驗六 數組

第一題：

P 17

Dim a(0 To 9)As Integer '定義一個大小為10的整形數組 '數組賦值命令按鈕事件過程 Private Sub Command1_Click()For i = 0 To 9 a(i)= Int(InputBox(“請輸入數組元素” & i + 1 & “/” & “10”, “數組賦值”))Next i End Sub '顯示數組元素命令按鈕事件過程 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%()'定義一個二維數組(6x8)和兩個動態數組 '將二維數組按行存儲到一維數組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 = “" '將按行存放后的一維數組b的元素顯示到文本框中 For i = LBound(b)To UBound(b)Text2.Text = Text2.Text & Format(b(i), ”@@@@“)Next i End Sub '將二維數組按列存儲到一維數組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 = ”“ '將按列存放后的一維數組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 = ”“ '二維數組初始化

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 ”輸入的三條邊不能構成一個三角形！" 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

教學后記：

P 24

P 25

實驗八 等級考試專題及考查

一、本次課主要內容

進行一次等級考試的模擬測試。

二、教學目的與要求

1.熟悉等級考試中程序題的答題過程。

2.掌握利用VB內部函數、表達式、控制結構等知識進行較復雜的編程。

三、教學重點難點 等級考試的復雜題型

四、教學方法和手段 實驗室機房電腦上機

五、作業與習題布置

1.認真完成和按時提交考查任務；

2.自行復習，準備下學期初的國二VB考試。

實驗八 等級考試專題及考查

P 26 1．登陸等級考試系統，選做VB的基礎知識和程序題（包括程序改錯，程序填空、程序設計）

2.每個同學都把自己等級考試中隨機抽到的題目抄寫下來，互相傳閱，最后把不同類型的題目做個歸納總結。

教學后記：

第五篇：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 & “成績是:” & a 如果一個連接內有非字符串型內容，使用&強制轉換 2 與Print相關函數

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列位置開始輸出數據,輸出完成后光標在最后一個數據的右邊.如果下一個tab(n)的列數<=當前光標的列數，則自動提行.數據后如跟;,，則表示下一個數據是接著上一數據右邊輸出 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 數據輸入inputbox()x = InputBox(“請輸入一個數:”)'輸入的是字符串 Print Val(x)^ 2 'val(x)把數字式的串轉換成數值型 Print x ^ 2 注：default:設置默認（缺省）參數值

x = InputBox(“請輸入一個數:”, “提示！”, 1)'輸入的是字符串

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

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

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

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

不加括號，成了命令

MsgBox “你弄錯了”, 3 + 256, “警告”

注：msgbox()會根據用戶點擊的按鈕來返回一個值,如點了“是(Y)”按鈕，則返回的是6，根據這個值來繼續編程控制程序的運行.M$=”abdcd”

等效于如下：

Dim m as string M=”abdcd”

作業上交: pzyy14@126.com

規范：20100900001張三第一次.rar

第4章

程序設計

4．1 賦值語句,是一個動作命令,”=”叫賦值操作，不是等號

Let 變量名=表達式

變量名=表達式

賦值是自右向左運算

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

4.2 條件語句 1 分支結構 If <條件> then

<語句塊>

[ else

<語句塊> ] End if 例：輸入一個數,判斷是負還是非負 n = Val(InputBox(“請輸入一個數:”))If n < 0 Then

Print “負數” Else

Print “非負數” End If If n < 0 Then Print “負數” Else Print “非負數” 例: 輸入一個數,判斷是負還是0,還是正 n = Val(InputBox(“請輸入一個數:”))If n < 0 Then

Print “負數” Else

If n = 0 Then

Print “0”

Else

Print “正數”

End If End If