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