1、*第7節(jié)程序設(shè)計(jì)的基本方法教學(xué)目標(biāo)：1、學(xué)會(huì)程序設(shè)計(jì)的基本方法。 2、學(xué)會(huì)描繪流程圖。廣州市初中信息技術(shù)教學(xué)同步資源包廣州市初中信息技術(shù)教學(xué)同步資源包第二冊(cè)第二章課時(shí)課時(shí): :一課時(shí)一課時(shí)一、課堂引入我們來(lái)游戲游戲規(guī)則：分組猜數(shù)，看誰(shuí)猜得又快又準(zhǔn)!猜的次數(shù)少的為贏。二、看看代碼，寫(xiě)出流程圖Private Sub Form_Click()Private Sub Form_Click()Dim x As IntegerDim x As IntegerDim guess As IntegerDim guess As Integerrandomizerandomizex = Int(Rnd(10) x

2、 = Int(Rnd(10) * * 100) 100)Do While guess xDo While guess xguess = InputBox(guess = InputBox(請(qǐng)輸入你猜的數(shù)字請(qǐng)輸入你猜的數(shù)字01000100）, , 猜數(shù)猜數(shù))If guess x ThenIf guess x ThenPrint guess; Print guess; 太大了太大了!ElseElseIf guess x ThenIf guess x ThenIf guess x ThenPrint guess; Print guess; 太大了太大了!ElseElseIf guess x Then

3、If guess x ThenPrint guess; Print guess; 太小了太小了!End IfEnd IfEnd IfEnd If條件是否成立條件是否成立語(yǔ)句塊語(yǔ)句塊條件語(yǔ)句的下一語(yǔ)句分支結(jié)構(gòu)分支結(jié)構(gòu):如果條件成立如果條件成立(true)，則執(zhí)行語(yǔ)句塊；，則執(zhí)行語(yǔ)句塊；否則，執(zhí)行語(yǔ)句塊；否則，執(zhí)行語(yǔ)句塊；是否復(fù)習(xí)三種程序結(jié)構(gòu)：Do While guess xDo While guess xguess = InputBox(guess = InputBox(請(qǐng)輸入你猜的請(qǐng)輸入你猜的數(shù)字?jǐn)?shù)字01000100）, , 猜數(shù)猜數(shù))If guess x ThenIf guess x The

4、nPrint guess; Print guess; 太大了太大了!ElseElseIf guess x ThenIf guess x ThenPrint guess; Print guess; 太小了太小了!End IfEnd If End If End If LoopLoop循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu): : 當(dāng)當(dāng) 成立時(shí)，執(zhí)行循環(huán)體，成立時(shí)，執(zhí)行循環(huán)體，否則退出循環(huán)。執(zhí)行否則退出循環(huán)。執(zhí)行l(wèi)ooploop下一個(gè)語(yǔ)句。下一個(gè)語(yǔ)句。是否滿足循環(huán)條件執(zhí)行循環(huán)的語(yǔ)句執(zhí)行循環(huán)的下一語(yǔ)句是否滿足循環(huán)條件執(zhí)行循環(huán)的語(yǔ)句執(zhí)行循環(huán)的下一語(yǔ)句否是知識(shí)整理 事實(shí)上，任何計(jì)算機(jī)程序都可以由這三種結(jié)構(gòu)組合而成，我們主要靈活運(yùn)

5、用好這些基本結(jié)構(gòu)，就可以編寫(xiě)各種各樣的程序，解決許多實(shí)際問(wèn)題。三、修改程序，統(tǒng)計(jì)猜的次數(shù)Dim x As IntegerDim x As IntegerDim guess As IntegerDim guess As Integerrandomizerandomizex = Int(Rnd(10) x = Int(Rnd(10) * * 100) 100)n = 0n = 0Do While guess xDo While guess xguess = InputBox(guess = InputBox(請(qǐng)輸入你猜的數(shù)字請(qǐng)輸入你猜的數(shù)字01000100）, , 猜數(shù)猜數(shù))n = n + 1n

6、= n + 1If guess x ThenIf guess x ThenPrint guess; Print guess; 太大了太大了!ElseElseIf guess x ThenIf guess x ThenPrint guess; Print guess; 太小了太小了!End IfEnd If End If End If Print Print 你已經(jīng)猜了你已經(jīng)猜了; n; ; n; 次次 Loop LoopPrint Print 恭喜你恭喜你, ,猜對(duì)了猜對(duì)了!聲明隨機(jī)數(shù)的變量類(lèi)型產(chǎn)生一個(gè)1100的隨機(jī)數(shù)分支以及循環(huán)猜數(shù)提示猜對(duì)輸出增加計(jì)數(shù)器增加計(jì)數(shù)器四、修改程序，增加起始密碼d

7、oWhile inputpassword”123456”doWhile inputpassword”123456”Inputpassword=InputBox(“Inputpassword=InputBox(“請(qǐng)輸入密碼請(qǐng)輸入密碼”,”,”輸入密碼輸入密碼“) )looploopDim x As IntegerDim x As IntegerDim guess As IntegerDim guess As Integerrandomizerandomizex = Int(Rnd(10) x = Int(Rnd(10) * * 100) 100)n = 0n = 0Do While guess

8、xDo While guess xguess = InputBox(guess = InputBox(請(qǐng)輸入你猜的數(shù)字請(qǐng)輸入你猜的數(shù)字01000100）, , 猜數(shù)猜數(shù))n = n + 1n = n + 1If guess x ThenIf guess x ThenPrint guess; Print guess; 太大了太大了!ElseElseIf guess x ThenIf guess x ThenPrint guess; Print guess; 太小了太小了!End IfEnd If End If End If Print Print 你已經(jīng)猜了你已經(jīng)猜了; n; ; n; 次次 Loop Loop聲明隨機(jī)數(shù)的變