IF多分支結(jié)構(gòu)教案.doc

IF多分支結(jié)構(gòu)教案教學(xué)對(duì)象高一年級(jí)的學(xué)生課題IF多分支結(jié)構(gòu) 教學(xué)目標(biāo)知識(shí)目標(biāo)1、 識(shí)記if多分支結(jié)構(gòu)的語(yǔ)法格式2、 能夠讀懂理解多分支結(jié)構(gòu)程序（command控件的新屬性：style屬性和backcolor屬性) (消息框函數(shù)MsgBox) 能力目標(biāo)1、 根據(jù)學(xué)生的實(shí)際能力，通過(guò)閱讀程序，學(xué)會(huì)模仿2、 有效、合乎規(guī)范的使用多分支結(jié)構(gòu)解決編程中的實(shí)際問(wèn)題 情感目標(biāo)1、 真心話大冒險(xiǎn)的游戲貼近學(xué)生，程序生動(dòng)有趣，既能讓學(xué)生學(xué)到程序設(shè)計(jì)的方法，又能提高學(xué)生主動(dòng)編程的積極性2、 在學(xué)習(xí)過(guò)程中培養(yǎng)學(xué)生探索求知的精神教學(xué)重點(diǎn)1、 if多分支結(jié)構(gòu)的執(zhí)行過(guò)程2、 if多分支結(jié)構(gòu)的語(yǔ)法格式教學(xué)難點(diǎn)利用if多分支來(lái)解決實(shí)際問(wèn)題教學(xué)準(zhǔn)備計(jì)算機(jī)、教學(xué)課件棒棒糖教學(xué)環(huán)節(jié)教師活動(dòng)學(xué)生活動(dòng)設(shè)計(jì)意圖情境導(dǎo)入 與同學(xué)們玩真心話大冒險(xiǎn)的游戲，讓學(xué)生們體驗(yàn)該程序的流程與趣味性，產(chǎn)生興趣，從而提高他們主動(dòng)學(xué)習(xí)的積極性。 參與游戲通過(guò)貼近學(xué)生的游戲來(lái)引入今天的課程教學(xué)環(huán)節(jié)教師活動(dòng)學(xué)生活動(dòng)設(shè)計(jì)意圖學(xué)習(xí)新知學(xué)習(xí)新知一IF多分支語(yǔ)句流程圖的畫(huà)法小結(jié)：IF多分支流程圖用菱形符號(hào)，在菱形框中設(shè)置條件，依次判斷條件是否成立，當(dāng)滿足某個(gè)條件時(shí)，執(zhí)行相應(yīng)的語(yǔ)句，其余分支不再執(zhí)行；若條件都不滿足，就什么都不執(zhí)行。二、If多分支結(jié)構(gòu)語(yǔ)句的格式 if Then ElseIf Then ElseIf Then Else 語(yǔ)句塊 n+1 End If小結(jié)1、不管有幾個(gè)分支，依次判斷，當(dāng)某條件滿足，執(zhí)行相應(yīng)的語(yǔ)句，其余分支不再執(zhí)行；若條件都不滿足，且有Else子句，則執(zhí)行該語(yǔ)句塊，否則什么也不執(zhí)行。 2、ElseIf不能寫(xiě)成 Else If。3、只有最后一個(gè)End If。4、else部分可以省略。三、真心話大冒險(xiǎn)程序的設(shè)計(jì)1、整體界面設(shè)計(jì)對(duì)象有按鈕和時(shí)間控件。2、 程序剛開(kāi)始的時(shí)候，9個(gè)真心話大冒險(xiǎn)的按鈕是不能按的，于是將這九個(gè)按鈕的enabled 屬性設(shè)置為false,style屬性設(shè)置為1-Graphical。介紹按鈕的style屬性。3、 timer控件用來(lái)實(shí)現(xiàn)開(kāi)始挑戰(zhàn)之后顯示的紅色閃爍。按鈕變紅的順序是1-2-3-6-9-8-7-4-5-1，有九種情況，所以用if多分支結(jié)構(gòu)來(lái)實(shí)現(xiàn)。停止之后，該按鈕變紅，上一個(gè)按鈕變回原來(lái)的顏色，且只有該按鈕能點(diǎn)，其他八個(gè)真心話大冒險(xiǎn)的按鈕enabled要設(shè)為False，以及講解按鈕的backcolor屬性。關(guān)鍵代碼如下：Private Sub Timer1_Timer()x = x + 1If x = 10 Then x = 1If x = 1 ThenCommand1.BackColor = vbRedCommand5.BackColor = &H8000000FCommand1.Enabled = TrueCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCommand9.Enabled = FalseElseIf x = 2 ThenCommand2.BackColor = vbRedCommand1.BackColor = &H8000000FElseIf x = 3 ThenCommand3.BackColor = vbRedCommand2.BackColor = &H8000000FElseIf x = 4 ThenCommand6.BackColor = vbRedCommand3.BackColor = &H8000000FElseIf x = 5 ThenCommand9.BackColor = vbRedCommand6.BackColor = &H8000000FElseIf x = 6 ThenCommand8.BackColor = vbRedCommand9.BackColor = &H8000000FElseIf x = 7 ThenCommand7.BackColor = vbRedCommand8.BackColor = &H8000000FElseIf x = 8 ThenCommand4.BackColor = vbRedCommand7.BackColor = &H8000000FElseIf x = 9 ThenCommand5.BackColor = vbRedCommand4.BackColor = &H8000000FEnd IfEnd Sub4、 停止之后要點(diǎn)擊該真心話大冒險(xiǎn)的按鈕，會(huì)彈出窗口顯示你的真心話大冒險(xiǎn)任務(wù)。講解MsgBox函數(shù)。學(xué)生觀察并記住語(yǔ)句格式聽(tīng)講記錄，學(xué)會(huì)IF多分支語(yǔ)句的寫(xiě)法小結(jié)if多分支語(yǔ)句的結(jié)構(gòu) 了解if語(yǔ)句流程圖的畫(huà)法小結(jié)流程圖的組成了解if語(yǔ)句的結(jié)構(gòu)