【導(dǎo)讀】提高學(xué)生VB的學(xué)習(xí)興趣和熱情。工程的問題，經(jīng)過老師提示，讓學(xué)生成功進(jìn)入“工程1”的設(shè)計(jì)界面。接下來引入教材中的“唱響口號(hào)”例題。告訴學(xué)生要想在窗體上顯示奧運(yùn)口號(hào)，可以使。戶可以在窗體中添加控件來創(chuàng)建程序的外觀。一般情況下程序的運(yùn)行結(jié)果、圖像、圖形等都。在VB程序中，用來構(gòu)建一個(gè)程序的所有相關(guān)文件稱作一個(gè)工程。一個(gè)VB應(yīng)用程序可。感受開發(fā)VB程序的過程，總結(jié)開發(fā)VB程序的一般步驟是本課的重點(diǎn)。后面各課的VB程序設(shè)計(jì)也都是按照這幾步來完成的。它是國(guó)際奧委會(huì)對(duì)所有參與奧林。作的一組指令序列。機(jī)器語(yǔ)言是用二進(jìn)制代碼表示的。匯編語(yǔ)言是一種用助記符表示的仍然面向機(jī)器的計(jì)算機(jī)語(yǔ)言。高級(jí)語(yǔ)言是面向用

　　

【正文】 Timer 事件，我們可以根據(jù)這個(gè)特性依照時(shí)間控制某些操作。 計(jì)時(shí)器的 Interval 屬性決定它多長(zhǎng)時(shí)間觸發(fā)一次它的 Timer 事件， Interval 屬性的取值范圍是 1 到 65536，單位為毫秒。例如： Interval 屬性值為 100，則計(jì)時(shí)器的 Timer 事件每隔 秒被觸發(fā)一次；“喜迎奧運(yùn)”程序中計(jì)時(shí)器控 件的 Interval 屬性值為 100，則計(jì)時(shí)器的 Timer 事件每隔 秒被觸發(fā)一次，也就是可以讓寫有字幕標(biāo)簽控件的 Left 屬性每隔 秒改變一次，從而形成移動(dòng)的效果。 （三） DIY 和“創(chuàng)作天地” （ 1）在 Timer 事件中添加代碼，使?jié)L動(dòng)字幕不斷變換顏色。 代碼如下： = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) （ 2）請(qǐng)用 For / Next 循環(huán)語(yǔ)句修改第 5 課中的同心圓。 分析：運(yùn)行程序，在窗體上繪制出十一個(gè)綠色同心圓（包括圓心點(diǎn) ）。 ①設(shè)置對(duì)象屬性 設(shè)置其屬性如下表。 對(duì)象 屬性名 屬性值 屬性說明 Form1（ 窗體） 名稱 FrmTongxinyuan Caption 同心圓 BackColor 白色 amp。H00FFFFFFamp。 Height 5805 窗體的高 Width 5865 窗體的寬 ②編寫事件過程代碼 Private Sub Form_Activate() Scale (12, 12)(12, 12) 39。修改坐標(biāo)系 DrawWidth = 2 39。設(shè)置畫筆粗細(xì)為 2 c = RGB(0, 255, 0) 39。設(shè)置顏色為綠色 For i = 0 To 10 39。循環(huán)十一次畫圓 Circle (0, 0), i, c Next i End Sub ③保存、運(yùn)行并調(diào)試程序。 以“同心圓”為名，將程序保存到“第 6 課 \ 同心圓”中。 （ 3）請(qǐng)用計(jì)時(shí)器控件制作歡歡騎車的程序。 分析：運(yùn)行程序時(shí)歡歡從窗體右上角騎車到左下角。 素材準(zhǔn)備：將歡歡騎車圖片“自行車 .JPG”存放 于“第 6 課 \ 歡歡騎車”中 ①設(shè)計(jì)用戶界面。 在窗體中添加一個(gè)標(biāo)簽、一個(gè)圖像框和一個(gè)計(jì)時(shí)器。 ②設(shè)置對(duì)象屬性 設(shè)置其屬性如下表。 對(duì)象 屬性名 屬性值 屬性說明 Form1（ 窗體 1） 名稱 FrmHuanhuan Caption 歡歡騎車 BackColor 白色 amp。H00FFFFFFamp。 Height 4620 窗體的高 Width 5415 窗體的寬 Label1（標(biāo)簽 1） 名稱 LblHuanhuan BackColor 白色 amp。H00FFFFFFamp。 Caption 歡歡，加油！ Font 隸書、一號(hào)字 ForeColor 紅色 amp。H000000FFamp。 Image1（圖像框 1） 名稱 ImgHuanhuan Picture 選擇“ 自行車 .JPG”圖片 Stretch True Timer1（計(jì)時(shí)器 1） Interval 100 ③編寫事件過程代碼 Private Sub Timer1_Timer() = 50 = + 30 End Sub ④保存、運(yùn)行并調(diào)試程序。 以“歡歡騎車”為名，將程序保存到“第 6 課 \ 歡歡騎車”中。 （四）教學(xué)補(bǔ)充 Move 方法 功能：移動(dòng)窗體或控件，并可改變其大小。 格式： [對(duì)象 .]Move 左邊距離 [，上邊距離 [，寬度 [，高度 ]]] 說明： ①對(duì)象指可以是窗體及除時(shí)鐘、菜單外的所有可視控件，省略代表窗體。 ②左邊距離、上邊距離、寬度和高度為數(shù)值表達(dá)式，以 twip 為單位。如果是窗體對(duì)象，則“左邊距”和“上邊距”是以屏幕左邊界和上邊界為準(zhǔn)。其它則是以窗體的左邊 和上邊界為準(zhǔn)。 例：使用 Move 方法移動(dòng)一個(gè)窗體。雙擊窗體，窗體移動(dòng)并定位在屏幕的左上角，同時(shí)窗體的長(zhǎng)寬也縮小一倍。 為了實(shí)現(xiàn)這一功能，可以在窗體 Forml 的 “代碼 ”窗口中輸入下列代碼： Private Sub Form_DblClick() 0,0,End Sub 在本課中，字母的移動(dòng)也可以由 Move 方法來實(shí)現(xiàn)，語(yǔ)句代碼為： 50 同理，“歡歡騎車”中圖片的移 動(dòng)也可由 Move 方法來實(shí)現(xiàn)，語(yǔ)句代碼為： 50, + 30 (五 )教學(xué)反思 此課需要兩課時(shí)完成，學(xué)生沒有學(xué)過三角形的三角函數(shù)公式，所以需要講解求解坐標(biāo)的意思，這需要花十分鐘左右，學(xué)生先嘗試用手動(dòng)改變角度來畫線，理解意思后再講解循環(huán)語(yǔ)句，學(xué)生先做完一個(gè)圖片框的禮花循環(huán)語(yǔ)句這就要一課時(shí)，再進(jìn)行復(fù)制其它圖片的禮花循環(huán)語(yǔ)句和時(shí)鐘的引入需要一課時(shí)來完成。 第 7 課 走進(jìn)奧運(yùn) （一） 本課教學(xué)目標(biāo) 知識(shí)目標(biāo)： 1. 學(xué)會(huì)多窗體的 設(shè)置。 2. 能在一個(gè)窗體為另一個(gè)窗體設(shè)置屬性。 能力目標(biāo)： a) 解程序設(shè)計(jì)分支結(jié)構(gòu)的作用。 b) 掌握條件語(yǔ)句的語(yǔ)法規(guī)則。 c) 學(xué)會(huì)窗體顯示、隱藏和卸載的方法。 d) 會(huì)用消息框輸出簡(jiǎn)單的信息。 情感目標(biāo)： 培養(yǎng)學(xué)生發(fā)現(xiàn)問題，自主探究的學(xué)習(xí)方法和創(chuàng)新精神。 重點(diǎn)、難點(diǎn)： 在某一個(gè)窗體的程序代碼里為另一個(gè)窗體中的控件設(shè)置屬性的格式 （二）教學(xué)設(shè)計(jì) 1．課堂引入 建議通過為本教材最后的“奧運(yùn)知識(shí)系統(tǒng)”設(shè)計(jì)系統(tǒng)屏保界面的需求，引入本課的學(xué)習(xí)內(nèi)容，首先引入的是為工程添加一個(gè) 屏幕保護(hù)界面的操作和主窗體的設(shè)置，然后在原窗體設(shè)計(jì)密碼檢驗(yàn)程序，最 后通過建立兩窗體之間的聯(lián)系的需求引入了在一個(gè)窗體中為另一個(gè)窗體設(shè)置屬性的方法和卸載窗體的方法。 通過“密碼檢驗(yàn)”的程序設(shè)計(jì)引入了程序的分支結(jié)構(gòu)和條件語(yǔ)句的運(yùn)用，這也是本課的重點(diǎn)內(nèi)容。 2．教學(xué)內(nèi)容 在本課中窗體的添加和主窗體的設(shè)置都是通過在工程窗口單擊右鍵在快捷菜單中的選中相應(yīng)的選項(xiàng)來完成的，在教學(xué)中可以引導(dǎo)學(xué)生通過工程菜單中的選項(xiàng)來實(shí)現(xiàn)窗體的添加和主窗體的設(shè)置。在程序中通過顯示和隱藏方法來實(shí)現(xiàn)窗體的顯示切換的。 在“密碼檢驗(yàn)”的程序設(shè)計(jì)中通過輸入密碼正誤的判斷來選擇輸出不同的提示內(nèi)容，引入了條件語(yǔ)句和條件 表達(dá)的規(guī)則。 Rem 密碼檢驗(yàn) Private Sub cmdok_Click() If = 123456 Then MsgBox (歡迎進(jìn)入奧運(yùn)知識(shí)系統(tǒng)！ ) Else MsgBox (請(qǐng)輸入正確的密碼！ ) = 39。將密碼輸入的文本框清成空白 39。焦點(diǎn)落在密碼輸入的文本框上 End If End Sub 以上程序中的 序運(yùn)行后將光標(biāo)落在文本框 txtpw中的，這是為方便用戶輸入密碼而設(shè)置的。本程序比較簡(jiǎn)單便于學(xué)生對(duì)條件語(yǔ)句執(zhí)行順序的理解 ,所以在學(xué)習(xí)時(shí)要把程序的分支結(jié)構(gòu)的條件語(yǔ)句作為教學(xué)的主要內(nèi)容。 在建立“密碼檢驗(yàn)”窗體與“屏?！贝绑w的聯(lián)系的時(shí)候主要是讓學(xué)生學(xué)會(huì) ? 卸載當(dāng)前窗體的命令 Unload Me 卸載當(dāng)前窗體并不結(jié)束但當(dāng)前工程的執(zhí)行，如果在該方法后執(zhí)行顯示某一窗體的命令則可調(diào)出該窗體執(zhí)行，本內(nèi)容在第 15 課系統(tǒng)集成時(shí)會(huì)使用的比較多。 ? 在某一個(gè)窗體的程序代碼里為另一個(gè)窗體中的控件設(shè)置屬性的格式為： 窗體名 .對(duì)象名 .屬性名＝屬性值 如： = 歡迎進(jìn)入奧運(yùn)知識(shí)系統(tǒng)！ （三） DIY 和“創(chuàng)作天地” DIY 的參考程序 1． 讓屏保界面上顯示的奧運(yùn)主題口號(hào)和進(jìn)入系統(tǒng)界面的歡迎信息能夠自左向右移動(dòng)。 Rem 奧運(yùn)口號(hào)的移動(dòng)控制 Rem 奧運(yùn)口號(hào)的移動(dòng)控制 Private Sub Tmr1_Timer() = + 100 39?？谔?hào)向右移動(dòng) If Then 39。判斷口號(hào)左邊界移動(dòng)到窗體右邊界了嗎？ = 39?？谔?hào)向右移動(dòng)的初值 End If End Sub 以上程序中的 Lbl1 中顯示的是“奧運(yùn)主題口號(hào)”， Lbl1 從左向右移動(dòng)。 2． 使屏保界面上能顯示多彩的隨機(jī)圓形。 Rem 用于清除屏幕隨機(jī)圓的計(jì)時(shí)器 Private Sub Tmr2_Timer() 39。每隔 10 秒鐘清屏一次 End Sub Rem 奧運(yùn)口號(hào)的移動(dòng)控制 Private Sub Tmr1_Timer() Randomize x = Int(Rnd * 15000) + 200 39。圓心的橫坐標(biāo) y = Int(Rnd * 7500) + 200 39。圓心的縱坐標(biāo) rr = Int(Rnd * 600) + 200 39。圓的半徑 r = Int(Rnd * 256) 39。圓的紅原色 g = Int(Rnd * 256) 39。圓的綠原色 b = Int(Rnd * 256) 39。圓的蘭原色 (x, y), rr, RGB(r, g, b) 39。多彩的隨機(jī)圓 = 100 If Then = End If End Sub 在以上程序中 Trm1 的計(jì)時(shí)器控件中增加了產(chǎn)生隨機(jī)遠(yuǎn)的程序段，為了每隔一段時(shí)間清除一次屏幕上的隨機(jī)圓所以添加了計(jì)時(shí)器 Tmr2，每隔 10 秒鐘清除一次屏幕。 (四 )教學(xué)反思 學(xué)生第一次接觸一個(gè)工程兩個(gè)窗體，在保存上就有些同學(xué)不理解怎么要保存很多次，兩個(gè)窗體里有同名的標(biāo)簽，有時(shí)容易搞混，學(xué)生在編寫代碼時(shí)對(duì)標(biāo)簽的屬性名稱并不能很好和書上一致，主要是因?yàn)閷W(xué)生的學(xué)習(xí)習(xí)慣還沒養(yǎng)好。此課學(xué)生完成的還挺好，可能是內(nèi)容并不太難，而結(jié)果卻和原來不一樣了，學(xué)生興趣來了。有一個(gè)難點(diǎn)是 有兩個(gè)，此時(shí)在哪個(gè)窗體要激活什么控件就選這個(gè)窗體的 ，有些學(xué)生在密碼窗體里 中打了顯示代碼卻不能顯示。 第 8 課 奧運(yùn)問答 （一） 本課教學(xué)目標(biāo) 1. 知識(shí)目標(biāo)：掌握創(chuàng)建控件數(shù)組的基本方法，了解控件數(shù)組的作用。 2. 能力目標(biāo)：了解 Select Case 語(yǔ)句的功能和應(yīng)用理解程序的分支結(jié)構(gòu)。 3. 情感目標(biāo)： 培養(yǎng)學(xué)生的責(zé)任感、磨練學(xué)生意志 （二）教學(xué)設(shè)計(jì)與教學(xué)建議 教學(xué)重點(diǎn)： 創(chuàng)建控件數(shù)組的方法， Select Case 語(yǔ)句的功能及應(yīng)用。 教學(xué)難點(diǎn)： Select Case 語(yǔ)句的功能及應(yīng)用。 （三）教學(xué)設(shè)計(jì) 1．課堂引入分析 建議教師演示樣例，提出本課要制作一份選擇題知識(shí)答卷“奧運(yùn)問答”程序，引入本課 。請(qǐng)學(xué)生根據(jù)教材中圖 和屬性設(shè)置表完成界面設(shè)計(jì)和屬性設(shè)置，設(shè)置屬性時(shí)，引入控件數(shù)組的知識(shí)。 要想讓學(xué)生能體會(huì)到設(shè)置控件數(shù)組的便利，需在程序中對(duì)比設(shè)置控件數(shù)組與否的代碼差異。引入編寫“奧運(yùn)問答”中“提交”命令按鈕的單擊事件過程代碼，當(dāng)單擊“提交”命令按鈕時(shí)，在“答題結(jié)果”框架中顯示對(duì)應(yīng)問題回答正誤，這里需要判斷題目選項(xiàng)單選按鈕或復(fù)選按鈕是否被選中，所以需要具有分支結(jié)構(gòu)的語(yǔ)句來實(shí)現(xiàn)。上節(jié)課學(xué)習(xí)過 If 語(yǔ)句可以完成此題，本課再學(xué)習(xí)一個(gè)新的選擇結(jié)構(gòu)語(yǔ)句，引入 Select Case 語(yǔ)句的功能及應(yīng)用。教師可以給出不使 用控件數(shù)組的程序代碼作對(duì)比，這樣讓學(xué)生體會(huì)使用控件數(shù)組會(huì)簡(jiǎn)化程序。 本課內(nèi)容可分三個(gè)層次： 第一層次是對(duì)學(xué)生的基本要求，要求完成兩題具有提交功能的答卷； 第二個(gè)層次是對(duì)學(xué)生的一般要求，完成具有重做功能的兩題答卷； 第三個(gè)層次是對(duì)學(xué)生的提高要求，完成創(chuàng)作天地整個(gè)“奧運(yùn)問答”程序。 2．重點(diǎn)內(nèi)容分析 （ 1）創(chuàng)建控件數(shù)組的方法是本課的重點(diǎn)。控件數(shù)組是由一組相同類型的控件組成的，創(chuàng)建控件數(shù)組可以通過修改控件的名稱屬性值來創(chuàng)建，也可以用復(fù)制粘貼的方式直接創(chuàng)建控件數(shù)組，一組控件數(shù)組的名稱屬性是相同的，創(chuàng)建控件數(shù)組的同時(shí) 系統(tǒng)賦予每個(gè)元素一個(gè)索引號(hào)（ Index）。 （ 2） Select Case 語(yǔ)句的功能及應(yīng)用是本課的重點(diǎn)。 If 語(yǔ)句和 Select Case 語(yǔ)句選擇結(jié)構(gòu)的語(yǔ)句，要根據(jù)程序功能要求不同選擇合適的語(yǔ)句編程。 If 語(yǔ)句可以有兩個(gè)分支，如果用 If語(yǔ)句實(shí)現(xiàn)多分支功能就要嵌套使用； Select Case 語(yǔ)句直接可以實(shí)現(xiàn)多分支選擇。 （ 3）“重做”命令按鈕的功能相當(dāng)于程序初始化的功能。 （四） DIY 和“創(chuàng)作天地” （ 1） 將單選按鈕鼠標(biāo)單擊事件中程序代碼的 Select Case 語(yǔ)句用 if 語(yǔ)句替換。 程序代碼如下： Private Sub Opt1_Click(Index As Integer) = False 39。使答題結(jié)果中的內(nèi)容不可見 If Index = 0 Then = ！ 39。當(dāng)用戶選擇