【文章內(nèi)容簡介】 Sub OptCanada_Click() = LoadPicture( amp。 \..\國旗 \加拿大 .gif) End Sub Private Sub OptChina_Click() = LoadPicture( amp。 \..\國旗 \中國 .gif) End Sub Private Sub OptDanish_Click() = LoadPicture( amp。 \..\國旗 \丹麥 .gif) End Sub Private Sub OptSingapor_Click() = LoadPicture( amp。 \..\國旗 \新加坡 .gif) End Sub ④保存、運(yùn)行并調(diào)試程序。 將程序以“顯示國旗”為名保存到“第 2 課 \ 顯示國旗”下。 (四 )教學(xué)反思 第一個難點(diǎn)是學(xué)生對于相對路徑和絕對路徑還是需要練習(xí)幾次才搞清楚，特別是相對路徑要求先保存再運(yùn)行程序，很多同學(xué)都檢查代碼沒有錯，而程序運(yùn)行不顯示圖片。第二個難點(diǎn)是學(xué)生對名稱和 cpation 理解的不太清楚，在 cpation 里用漢字，在名稱里也用漢字，編寫代碼時又造著書上的字母打，結(jié)果是程序運(yùn)行出錯，還有一種情況是第一次按書上的名稱改了字母，學(xué)生在寫代碼時覺得不適應(yīng)，又回到屬性窗口改名稱，再來寫代碼后運(yùn)行程序不能顯圖片，因?yàn)槊Q一改程序段就要換名輸入代碼，所以造成一個舉重按鈕 有兩個名稱，寫代碼時只能寫到最后一個改的名稱里才能運(yùn)行程序。 第 4 課 百變文字 （一） 本課教學(xué)目標(biāo) 知識目標(biāo)： 1. 熟悉文本框的基本使用方法。 2. 熟悉復(fù)選框的基本使用方法。 3. 掌握框架控件的基本使用方法。 能力目標(biāo)： 能獨(dú)立根據(jù)樣例設(shè)計簡單用戶界面。 能獨(dú)立依據(jù)屬性設(shè)置表設(shè)置對象的屬性。 情感目標(biāo)： a) 激發(fā)學(xué)生對信息技術(shù)課的興趣，培養(yǎng)學(xué)生互相協(xié)作的精神。 提高學(xué)生的信息素養(yǎng)和信息能力。 重點(diǎn)、難點(diǎn)： b) 文本框的功能和使用方法是本課的重點(diǎn)也是難點(diǎn)。 c) 框架的功能和使用方法是本課的重點(diǎn)。 d) 復(fù)選框的功能和使用方法是本課的重點(diǎn)。 （二）教學(xué)設(shè)計 1．課堂引入 教師可以帶著學(xué)生一起回憶，在以往使用的計算機(jī)應(yīng)用軟件中經(jīng)常會遇到設(shè)置文字字體、字號、字形等問題，今天我們就用 VB 編寫一個設(shè)置文字字體、字號、字形的小程序，給學(xué)生觀看樣例引入本課。 為了學(xué)生能很快入手，告訴學(xué)生先來制作一個只具有設(shè)置字體功能的程序，根據(jù)教材中圖 讓學(xué)生說出窗體上要添加的控件分別是什么、有多少個。學(xué)生可能會認(rèn)為“百變文字”中顯示文字的控件是標(biāo)簽，教師向?qū)W生解釋這里的控件是文本框，這樣引入文本框的功能及使用方法。 讓學(xué)生自己設(shè)計用戶界面，根據(jù)教材中的屬性設(shè)置表來 設(shè)置對象屬性，經(jīng)過第一單元的學(xué)習(xí)，學(xué)生應(yīng)該能夠達(dá)到根據(jù)樣例獨(dú)立創(chuàng)建用戶界面和根據(jù)屬性設(shè)置表設(shè)置對象屬性的能力。 教師提出要增加“百變文字”的字號和字形功能，需要添加控件，為了便于分類，引入框架控件的功能和用法。讓學(xué)生思考“字形”中的粗體和斜體是可以同時選中的，所以制作“粗體”和“斜體”選項不能再使用單選按鈕了，引入復(fù)選框控件的功能和用法。 2．教學(xué)內(nèi)容 （ 1）文本框的功能和使用方法是本課的重點(diǎn)也是難點(diǎn)。 文本框和標(biāo)簽都可以顯示文本信息，但文本框還可以通過鍵盤接受用戶輸入的信息，而標(biāo)簽則不可以；文本框的 Text 屬性值就是其顯示的文本內(nèi)容，而標(biāo)簽的 Caption 屬性值是它的顯示內(nèi)容。 文本框的 FontBold（粗體字）屬性、 FontItalic（斜體字）屬性、 FontStrikethru（刪除線字）屬性、 FontUnderline（下劃線字）屬性有兩個值，其值為 True（也就是 1）表示字體有該效果，其值為 False（也就是 0）表示字體沒有該效果。在編寫程序代碼時，如想實(shí)現(xiàn)文本框中字體的粗體、斜體、刪除線和下劃線效果，可以為文本框的 FontBold（粗體字）屬性、FontItalic（斜體字）屬性、 FontStrikethru（刪除線字）屬性、 FontUnderline（下劃線字）屬性賦相應(yīng)的值。 文本框的 Multiline 屬性也是初次接觸，值為 True 時，可以在文本框中輸入多行文本，值為 False 時，用戶不能在文本框中輸入多行信息。 ScrollBar 屬性設(shè)置是否加上滾動條，值為 0（ None）時，不加滾動條；值為 1（ Horizontal）時，只加水平滾動條；值為 2（ Vertical）時，只加垂直滾動條；值為 3（ Both）時，既加水平滾動條又加垂直滾動條。 文本框的常用事件有 Change 事件，當(dāng)文本框的 Text 屬性值改 變時，就會觸發(fā)文本框的Change 事件。 KeyPress 事件，當(dāng)用戶從鍵盤上敲入一個字符時，就會觸發(fā)文本框的 KeyPress事件。 （ 2）框架的功能和使用方法是本課的重點(diǎn)?？蚣艿墓δ苁菫榭丶纸M。在框架中添加多個相同的控件就不能用直接在工具箱中雙擊的辦法了，那樣創(chuàng)建的控件都是在窗體上，而不是在框架中。我們可以按住 Ctrl 鍵同時單擊控件按鈕，可以在不重新選擇控件的情況下，添加同一類型的多個控件。 （ 3）復(fù)選框的功能和使用方法是本課的重點(diǎn)。 一組復(fù)選框可以同時選擇多個選項，有些書中也叫“選擇框”或“檢查框”。復(fù)選 框的常用屬性就是其 Value 屬性， 單選按鈕的 Value屬性在第 3 課中已經(jīng)講過，復(fù)選框的 Value 屬性與單選按鈕的 Value 屬性稍有不同，復(fù)選框是否被選中也可以從它的 Value 屬性值看出，如其值為 1，則其被選中，如其值為 0，則沒被選中，其值為 2，復(fù)選框被置于不可選狀態(tài)（變灰狀態(tài)）。所以在程序中如果實(shí)現(xiàn)復(fù)選框未被選中、選中或置不可選狀態(tài)（變灰狀態(tài)），就可以為該控件的 Value 屬性值賦值為 0、 1或 2。 （ 4） End 語句具有結(jié)束、退出的功能。 （三） DIY 和“創(chuàng)作天地” （ 1）請 為“百變文字”的“ 黑體”和“隸書” 兩個單選按鈕的單擊事件添加代碼。 Private Sub OptHeiti_Click() = 黑體 39。文字字體為“黑體” End Sub Private Sub OptLishu_Click() = 隸書 39。文字字體為“隸書” End Sub （ 2） 自己在文本框中更改文字，觀察文本框中文字的變化。 運(yùn)行程序后，在文本框中輸入文字，設(shè)置字體。 （ 3） 試著在窗體中先添加一個單選按鈕（ OptionButton），再添加一個框架（ Frame），看能否將該單選按鈕（ OptionButton）拖放到框架（ Frame）中，觀察結(jié)果。 要先創(chuàng)建框架，再在框架中添加單選按鈕。 （ 4）請為“百變文字”字號組中“ 12”號字和“ 24”號字兩個單選按鈕的單擊事件添加代碼。 Private Sub OptSize12_Click() = 12 39。設(shè)置字號為 12 號字 End Sub Private Sub OptSize24_Click() = 24 39。設(shè)置字號為 24 號字 End Sub （ 5）完善“百變文字”程序運(yùn)行界面，再添加效果“下劃線”和“刪除線”功能。 分析：在窗體中添加框架，在框架中創(chuàng)建兩個復(fù)選框。 對象的屬性設(shè)置表和代碼見創(chuàng)作天地。 （ 6）為“百變文字”增加設(shè)置字體顏色的功能。 分析： 為文本設(shè)置顏色需要單選按鈕。 ①設(shè)計用戶界面。 在窗體中添加框架，在框架中創(chuàng)建三個單選按鈕。 ②設(shè)置對象屬性 設(shè)置其屬性如下表。 對象 屬性名 屬性值 屬性說明 Frame1（框架 1） 名稱 FraYanse Caption 顏色 顏色框架 OptionBotton1（單選按鈕 1） 名稱 OptBlack Caption 黑色 OptionBotton2（單選按鈕 2） 名稱 OptRed Caption 紅色 OptionBotton3（單選按鈕 3） 名稱 OptBlue Caption 藍(lán)色 Frame2（框架 2） 名稱 FraXiaoguo Caption 效果 效果框架 CheckBox1（復(fù)選框 1） 名稱 ChkUnderLine Caption 下劃線 CheckBox2（復(fù)選框 2） 名稱 ChkStrikethru Caption 刪除線 ③編寫事件過程代碼 Private Sub ChkStrikethru_Click() = 39。刪除線 End Sub Private Sub ChkUnderLine_Click() = 39。下劃線 End Sub Private Sub OptBlack_Click() = RGB(0, 0, 0) 39。設(shè)置文字顏色為黑色 End Sub Private Sub OptRed_Click() = RGB(255, 0, 0) 39。設(shè)置文字顏色為紅色 End Sub Private Sub OptBlue_Click() = RGB(0, 0, 255) 39。設(shè)置文字顏色為藍(lán)色 End Sub ④保存、運(yùn)行并調(diào)試程序。 （四）教學(xué)補(bǔ)充 End 語句用于結(jié)束一個過程或塊，它提供了一種強(qiáng)迫中止程序的方法。有關(guān) End 語句的功能整理如下表。 語句 描述 End 停止執(zhí)行?？梢苑旁谶^程中的任何位置關(guān)閉代碼的執(zhí)行、關(guān)閉以 Open 語句打開的文件并清除變量。 End Function 用于結(jié)束一個 Function 語句 End If 用于結(jié)束一個 If? Then? Else 語句塊。 End Property 用于結(jié)束一個 Property Let、 Property Get、或 Property Set 過程。 End Select 用于結(jié)束一個 Select Case 語句。 End Sub 用于結(jié)束一個 Sub 語句。 End Type 用于結(jié)束一個用戶定義類型的定義（ Type 語句）。 End With 用于結(jié)束一個 With 語句。 說明： 在執(zhí)行時， End 語句會重置所有模塊級別變量和所有模塊的靜態(tài)局部變量。若要保留這些變量的值，改為使用 Stop 語句，則可以在保留這些變量值的基礎(chǔ)上恢復(fù)執(zhí)行。 注意： End 語句不調(diào)用 Unload、 QueryUnload、或 Terminate 事件或任何其它 Visual Basic 代碼，只是生硬地終止代碼執(zhí)行。窗體和類模塊中的 Unload、 QueryUnload、和 Terminate 事件代碼未被執(zhí)行。類模塊創(chuàng)建的對象被破壞，由 Open 語句打開的文件被關(guān)閉，并且釋放程序所占用的內(nèi)存。其它程序的對象引用無效。 (五 )教學(xué)反思 這節(jié)課上控件比較多，學(xué)生的編寫代碼時找不到對象名，所以在對對象屬性修改時讓學(xué)生養(yǎng)成良好習(xí)慣，用好前輟標(biāo)識和名稱。學(xué)生出現(xiàn)最多的失誤在于先寫代碼再來改對像名稱，造成函數(shù)無法調(diào)用，有時沒有修改文 本對象名稱，只是按書上寫的代碼去編寫，學(xué)生還不能真正理解屬性名稱和寫代碼的關(guān)系。 第 5 課 五環(huán)旗下 （一） 本課教學(xué)目標(biāo) 知識目標(biāo)： 1. 了解 VB 中方法的概念。 2. 學(xué)會用 Circle 方法畫圓。 能力目標(biāo)： a) 解 VB 中的坐標(biāo)系。 b) 了解用 RGB（）函數(shù)設(shè)置顏色的方法。 c) 掌握順序結(jié)構(gòu)程序的設(shè)計思路。 情感目標(biāo)： 培養(yǎng)學(xué)生的創(chuàng)新意識，幫助孩子們更好地體驗(yàn)情緒與表情的變化，獲得更豐富的情感體驗(yàn)。 重點(diǎn)、難點(diǎn)： VB 中方法的概念是本課的難點(diǎn)。 用 Circle 方法畫圓是本課的重點(diǎn)。 （二）教學(xué)設(shè)計 1．課堂引入 教師可 以提問學(xué)生或直接告訴學(xué)生奧運(yùn)五環(huán)什么樣，有什么寓意，給學(xué)生觀看、演示樣例，直接引入本課。鼓勵學(xué)生按照教材中的樣例設(shè)計用戶界面，依據(jù)屬性設(shè)置表來設(shè)置對象屬性。由于本課中“五環(huán)旗下”程序涉及到五環(huán)的圓心位置和半徑大小的問題，所以建議教師提醒學(xué)生，要按照教材中提供的數(shù)據(jù)來設(shè)置窗體的寬和高。 和學(xué)生一起分析運(yùn)行程序時，當(dāng)單擊“繪制五環(huán)”命令按鈕，在窗體上就要顯示奧運(yùn)五環(huán)，所以在“繪制五環(huán)”命令按鈕的單擊事件中要輸入畫五個圓的代碼，引入在窗體上如何畫圓，用什么方法畫圓，窗體上的坐標(biāo)系又是什么樣的。 能夠在窗體上畫圓了 ，又怎樣去設(shè)置圓的顏色和粗細(xì)呢？教師提出問題，引入 RGB（）函數(shù)設(shè)置顏色的方法，引入利用 DrawWidth 屬性設(shè)置線條粗細(xì)的方法。 依次畫完五個圓以后，讓學(xué)生體會 程序是一步一步按順序執(zhí)行各條語句的，這就是程序的順序結(jié)構(gòu)。在結(jié)構(gòu)化程序設(shè)計中，有三種基本結(jié)構(gòu)，分別是順序結(jié)構(gòu)、分支結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。 2．教學(xué)內(nèi)容 （ 1）本課中第一次接觸到了命令按鈕的 Style 屬性，由此屬性值可以控制設(shè)置該控件的外觀。當(dāng) Style 屬性值為 0Standard 時，該命令按鈕的外觀是標(biāo)準(zhǔn) Window