1、選擇結(jié)構(gòu),復(fù)習(xí)鞏固,順序結(jié)構(gòu)：按照由上到下的順序一行一行地執(zhí)行。程序中沒(méi)有分支，沒(méi)有重復(fù)。 如：語(yǔ)句1-語(yǔ)句2-語(yǔ)句3-語(yǔ)句,選擇結(jié)構(gòu),選擇結(jié)構(gòu)：根據(jù)不同的條件判斷來(lái)決定程序執(zhí)行走向的結(jié)構(gòu)。程序中有分支，沒(méi)有重復(fù)。 If 語(yǔ)句有三種的分支結(jié)構(gòu)： 單分支結(jié)構(gòu) 雙分支結(jié)構(gòu) 多分支結(jié)構(gòu),（1）單分支選擇結(jié)構(gòu),條件,語(yǔ)句1,If 條件 then 語(yǔ)句或語(yǔ)句組1 End if,（2）雙分支選擇結(jié)構(gòu),If 條件 then 語(yǔ)句或語(yǔ)句組 1 Else 語(yǔ)句或語(yǔ)句組 2 End if,編寫(xiě)程序，實(shí)現(xiàn)以下功能：輸入飛船的速度，程序判斷飛船是否能升空。,舉例：飛船升空,開(kāi)始,結(jié)束,輸入速度v,v 7.91,輸出：

2、飛船 成功飛行！,輸出：飛船 不能升空！,Y,N,Private Sub cmdOK_Click() Dim v As Single v = Val(InputBox(輸入速度(km/s) If v = 7.91 Then label1.Caption = 飛船成功飛行！ Else label1.Caption = 飛船不能升空！ End If End Sub,選擇結(jié)構(gòu),多分支選擇結(jié)構(gòu): If 條件1 Then 執(zhí)行 語(yǔ)句1 ElseIf 條件2 Then 執(zhí)行 語(yǔ)句2 Elseif 條件n Then 執(zhí)行 語(yǔ)句n Else 執(zhí)行 語(yǔ)句n+1 End If 例:If 天氣不錯(cuò) Then 可以出

3、游 ElseIf 陰天 到機(jī)房上機(jī) Else 在宿舍看書(shū) End If,多分支流程圖,舉例：判斷成績(jī)等級(jí),輸入成績(jī)，判斷成績(jī)的等級(jí): 假設(shè)輸入成績(jī)?yōu)閟 若90 s100 則為”優(yōu)秀”; 若80 s 90 則為”良好”; 若70 s 80 則為”中等”; 若60 s 70 則為”及格”; 否則為”不及格”.,Private Sub Command1_Click() Dim s As Integer Dim g As String s = Val(txtinput.Text) If s = 90 Then g = 優(yōu)秀 ElseIf s = 80 Then g = 良好 ElseIf s = 70 Then g = 中等 ElseIf s = 60 Then g = 及