【文章內容簡介】 結構，學習了循環(huán)語句（ For/Next 語句）、多分支語句（ Select Case 語句）的用法；認識了 VB 中的方法，并實際體驗了 Circle、 Line、 Scale 等方法的具體應用。 四、 學習目標 1. 學習 命令按鈕 、 單選按鈕、 圖片框、 復選框、框架等控件的使用方法 。 2. 進一步理解對象的屬性。 3. 了解用 LoadPicture()函數載入圖片的方法。 4. 了解變量的含義，掌握定義布爾變量的方法，了解靜態(tài)變量的特點。 5. 了解 VB 程序中語句的書寫規(guī)范。 6. 掌握創(chuàng)建控件數組的基本方 法，了解控件數組的作用。 7. 了解 Select Case 語句的功能和應用 ， 掌握循環(huán)語句For/Next 的功能和應用 。 8. 理解 程序的分支結構和循環(huán)結構。 9. 理解用 Scale 方法改變 VB 中的坐標系的方法。 10. 掌握用 Line 方法畫線 、用 Pset 方法畫點 。 11. 學會 RGB 函數的功能和使用方法。 12. 學習鼠標的抬起和落下事件，并能夠進行簡單編程。 13. 了解窗體的 Form_Load 事件。 五、 重點難點 重點： 1. 學習 標簽、 命令按鈕、單選按鈕、圖片框、復選框、框架等控件的使用方法。 2. 了解變量的含義，掌握定義布爾變量的方法，了解靜態(tài)變量的特點。 3. 掌握 創(chuàng)建控件數組的基本方法，了解控件數組的作用。 4. 了解 Select Case 語句的功能和應用，掌握循環(huán)語句 For/Next的功能和應用。 5. 理解程序的分支結構和循環(huán)結構。 6. 掌握用 Line 方法畫線 、用 Pset 方法畫點 。 7. 學習鼠標的抬起和落下事件，并能夠進行簡單編程。 難點： 1. 了解用 LoadPicture()函數載入圖片的方法。 2. 學會 RGB 函數的功能和使用方法。 3. 了解變量的含義，掌握定義布爾變量的方法，了解靜態(tài)變量的特點。 4. 掌握創(chuàng)建控件數組的基本方法，了解控件數組的作用。 5. 掌握循環(huán)語句 For/Next 的功能和應用。 6. 理解程序的分支結構和循環(huán)結構。 7. 理解用 Scale 方法改變 VB 中的坐標系的方法。 8. 了解隨機函數及其使用方法。 六、 學時安排 第 5 課 圖文并茂 1 課時 第 6 課 百變文字 1 課時 第 7 課 喜迎國慶 1 課時 第 8 課 涂鴉王國 2 課時 第 5 課 圖文并茂 （三） 本課教學目標 ? 掌握命令按鈕及其 Click 事件的用法。 ? 掌握標簽的常用屬性設置方法以及用法。 ? 理解對象的名稱屬性和 Caption 屬性的異同 ，掌握 程序中更改 Caption 屬性的方法。 ? 了解用 LoadPicture()函數載入圖片的方法。 ? 了 解變量的含義， 掌握定義布爾變量的方法，了解靜態(tài)變量的特點。 ? 了解 VB 程序中語句的書寫規(guī)范。 （二） 重點： ? 學習標簽、命令按鈕、單選按鈕、圖片框、復選框、框架等控件的使用方法。 ? 了解變量的含義，掌握定義布爾變量的方法，了解靜態(tài)變量的特點。 ? 掌握創(chuàng)建控件數組的基本方法，了解控件數組的作用。 ? 了解 Select Case 語句的功能和應用，掌握循環(huán)語句 For/Next的功能和應用。 （三） 難點： 記住 對控件、對象 的 屬性 ，程序代碼 。 對程序調試能力的培養(yǎng)。 （四） 難點解決方法 ： 讓學生多引導上機練習。反復直觀教學 （五 ） 教學手段 ：機房 教學過程： 教材分析 通過本節(jié)課的學習讓學生在完成任務的過程中，加深對編寫VB 程序過程的了解。任務中使用到了標簽、圖像框 、 命令按鈕 和計時器控件 。在學生使用這些控件的過程中，教師應幫助學生理解這些控件在 VB 程序中能起到什么作用，又是怎么起作用的。 本課中涉及到了使用 LoadPicture()函數載入圖片的內容，教師一定要叮囑學生 正確書寫圖片 路徑，可使用絕對路徑，也可以借助 使用相對路徑。例題中涉及到的變量定義一定不能忽視，對于 Static 定義的靜態(tài)變量特點，學生會難以理解，教師可借助教材中的 DIY 幫助學生理解。 在任務一的講解過程中，教師通過演示例題效果，幫助學生回憶前面所學的知識，讓學生思考并說出可通過計時器控制標簽的位置，從而完成任務。 編寫代碼時，教師應告訴學生養(yǎng)成好習慣，每行語句要縮進幾格，盡量使用注釋語句。使程序既便于自己檢查又易于別人閱讀。 創(chuàng)作天地 （需要的圖片資料老師給學生提供準備） 設置時因學生的基礎知識很低，課程內容多，時間不夠所以老師給學生編制“左上”一個命令按鈕的程序代碼。其他的學生自己做。如做不了剩下的部分給他們家庭作業(yè)。并有時間給他們總結。 5. 編 程，用 8個命令按鈕分別控制標簽框、圖像框等操作對象，朝上、下、左、右、左上、左下、右上、右下八個方向移動。 圖 命令按鈕控制標簽位置界面 （ 1） 控件對象：在窗體上添加 1個標簽 、 9 個命令按鈕。 （ 2） 屬性設置表 表 51 屬性設置表 對象 屬性名 屬性值 Form1（窗體 1） Caption 圖文并茂 Label1（標簽框） Caption 控制位置 ForeColor 黑色 Font 隸書、一號字 Command1 （命令按鈕 1） Caption 上 Command9 （命令按鈕 9） Caption 退出 （ 3） 程序代碼 Private Sub Command1_Click() 39。上 = 200 End Sub Private Sub Command2_Click() 39。下 = + 200 End Sub Private Sub Command3_Click() 39。左 = 200 End Sub Private Sub Command4_Click() 39。右 = + 200 End Sub Private Sub Command5_Click() 39。左上 = 200 = 200 End Sub Private Sub Command6_Click() 39。左下 = + 200 = 200 End Sub Private Sub Command7_Click() 39。右上 = 200 = + 200 End Sub Private Sub Command8_Click() 39。右下 = + 200 = + 200 End Sub Private Sub Command9_Click() 39。退出 End End Sub 作業(yè)： 作業(yè)：復習這節(jié)課的內容，預習下節(jié)課的內容 組長意見： 第 6 課 百變文字 （一）本課教學目標 ? 熟悉 單選按鈕、 復選框和框架控件 的基本使用方法。 ? 了解調整控件格式的方法。 ? 掌握創(chuàng)建控件數組的基本方法，了解控件數組的作用。 ? 了解 Select Case 語句的功能和應用。 ? 學會 RGB 函數的 功能和 使用方法 。 ? 能獨立根據樣例設計簡單用戶界面 ， 能獨立依據屬性設置表設置對象的屬性。 本課中重點難點內容如下： （二）重點： 框架的功能和使用方法 復選框的功能和使用方 法 創(chuàng)建控件數組的方法是本課的重點。 Select Case 語句的功能及應用 （三）難點： Select Case 語句的功能及應用 （四） 難點解決方法 ： 讓學生多引導上機練習。反復直觀教學 （五） 教學手段 ：機房 設計如下： 教師可以帶著學生一起回憶，在以往使用的計算機應用軟件中經常會遇到設置文字字體、字號、字形等問題，今天我們就用VB 編寫一個設置文字字體、字號、字形的小程序，給學生觀看樣例引入本課。 為了學生能很快入手，告訴學生先來制作一個只具有設置字體功能的程序，根據教材圖例讓學生說出窗體上要 添加的控件分別是什么、有多少個。學生可能會認為“百變文字”中顯示文字的控件是標簽，教師向學生解釋這里的控件是文本框，這樣引入文本框的功能及使用方法。 讓學生自己設計用戶界面，根據教材中的屬性設置表來設置對象屬性，經過第一單元的學習，學生應該能夠達到根據樣例獨立創(chuàng)建用戶界面和根據屬性設置表設置對象屬性的能力。 教師提出要增加“百變文字”的字號和字形功能，需要添加控件，為了便于分類，引入框架控件的功能和用法。讓學生思考“字形”中的粗體和斜體是可以同時選中的，所以制作“粗體”和“斜體”選項不能再使用單選按鈕了，引 入復選框控件的功能和用法。 程序中需要判斷單選按鈕或復選按鈕是否被選中，所以需要具有分支結構的語句來實現(xiàn)。前面學習過 If 語句可以完成此題，本課再學習一個新的選擇結構語句，引入 Select Case 語句的功能及應用。教師可以給出不使用控件數組的程序代碼作對比，這樣讓學生體會使用控件數組會簡化程序。 1. 編寫如圖 所示的課程表程序。 圖 課程表的程序界面 （ 1） 控件對象：在窗體上添加 1 個標簽、包含 17個單選按鈕的控件數組和包含 4個復選框的控件數組。 （ 2） 屬性設置表 表 61 屬性設置表 對象 屬性名 屬 性值 Form1（窗體 1） Caption 課表 Label1（標簽框） Caption 空 OptionBotton1（單選按鈕 1 控件數組） Index 0? 3 Caption 星期一 Frame1（框架 1） Caption 字體 OptionBotton1（單選按鈕 1 控件數組） Index 4? 7 Caption 宋體 Frame2（框架 2） Caption 字號 OptionBotton1（單選按鈕 1 控件數組） Caption 9 Index 8? 11 Frame3（框架 3） Caption 顏色 OptionBotton1（單選按鈕 1 控件數組） Index 12? 15 Caption 紅 Frame4（框架 4） Caption 字形 CheckBox1（復選框 1 控件數組） Index 0? 3 Caption 粗體 （ 3） 程序代碼 Private Sub Check1_Click(Index As Integer) = Check1(0).Value 39。粗體 = Check1(1).Value 39。傾斜 = Check1(2).Value 39。下劃線 = Check1(3).Value 39。刪除線 End Sub Private Sub Option1_Click(Index As Integer) Select Case Index Case 0: = 語文 數學 體育 英語 化學 音樂 Case 1: = 數學 語文 英語 物理 信息技術 班會 Case 2: = 數學 英語 地理 體育 美術 物理 Case 3: = 英語 語文 數學 化學 政治 歷史 Case 4: = 數學 英語 語文 化學 生物 物理 Case 5: = 宋體 Case 6: = 黑體 Case 7: = 幼圓 Case 8: = 隸書 Case 9: = 9 Case 10: = 14 Case 11: = 16 Case 12: = 20