【文章內(nèi)容簡介】 If語句是用來判定所給定的條件是否滿足，根據(jù)判斷的結(jié)果（ True或 False）來決定執(zhí)行給出的操作之一。 3種形式的 If語句。 1） 單分支 If語句 If 條件表達式 Then 語句塊 End If 或： If 條件 Then 語句 圖 612 單分支語句流程圖 條件表達式語句塊Fal s eTr ue【 例 62】 輸入兩個整型數(shù) ， 按由小到大的順序輸出這兩個數(shù) 。 如果在彈出第一個對話框時輸入 24， 第二個對話框輸入 12， 程序運行結(jié)果如圖 613所示 。 Private Sub Form1_Click(… ) Handles ?限于篇幅，事件框架中的參數(shù)省略。 Dim a As Integer, b As Integer, t As Integer a = InputBox(第 1個數(shù) , 輸入數(shù)據(jù) , , 200, 200) b = InputBox(第 2個數(shù) , 輸入數(shù)據(jù) , , 200, 200) If a b Then ?如果 ab，交換 a和 b的值 t = a a = b b = t End If MsgBox(較小數(shù) amp。 a amp。 amp。 較大數(shù) amp。 b, , 從小到大排序 ) ?報告結(jié)果End Sub 圖 613 兩數(shù)排序結(jié)果 或 :If a b Then t = a： a = b： b = t 2） If語句格式 2 If 條件 Then 語句 1 Else 語句 2 EndIf 或： If 條件 Then 語句 1 Else 語句 2 圖 614 雙分支語句的流程圖 條件表達式 語句塊 1 語句塊 2 True False 【 例 】 計算分段函數(shù)的值 2/2/022 axaaxxxaaxy ???????????????程序 1: Dim a, x, y As Single a = Val(InputBox(請輸入 a 的值 , 計算分段函數(shù) )) x = Val(InputBox(請輸入 x 的值 , 計算分段函數(shù) )) If x = a Then y = 0 If (x a) And (x = a / 2) Then y = (a * a x * x) If x a / 2 Then y = x MsgBox (a= amp。 a amp。 x= amp。 x amp。 y= amp。 y) 程序 2 If x = a Then y = 0 ElseIf (x a) And (x = a / 2) Then y = (a * a x * x) ElseIf x a / 2 Then y = x End If MsgBox (a= amp。 a amp。 x= amp。 x amp。 y= amp。 y) 3）多分支 If語句 If 條件表達式 1 Then 語句塊 1 ElseIf 條件表達式 2 Then 語句塊 2 …… Else 語句塊 n 圖 615 多分支語句的流程圖 條件表達式 1條件表達式 2條件表達式 n語句塊 1 語句塊 2 語句塊 3 語句塊 nF a l s eF a l s eF a l s eTrueTrueTrue不管有幾個分支 ,當某條件滿足 ,執(zhí)行相應的語句塊 ,其余分支不再執(zhí)行 。 4） If語句的嵌套 If語句的嵌套是指 If語句中的語句塊又包含 If語句。語句格式如下； If 條件表達式 1 Then If 條件表達式 11 Then 語句塊 1 … EndIf EndIf （ 2） Select Case語句 Select Case語句也稱為情況語句，它可以用來實現(xiàn)多分支選擇結(jié)構(gòu)程序。 語句格式： Select Case 表達式 Case 表達式列表 1 語句塊 1 Case 表達式列表 2 語句塊 2 …… Case Else 語句塊 n End Select Case子句的表達式可以由以下幾種形式構(gòu)成： 表達式 1 to 表達式 2： Case 1 To 5 表達式值在 1到 5范圍內(nèi)。 Is運算表達式： Case Is5 表達式的值大于 5的值。 枚舉常量： Case “q”, “Q” 表達式的值等于 ” q”或 ” Q”。 多種表達混合： Case 1 To 5, IsMin 表達式的值在 1到 5或大于 Min的值。 ? 測試表達式可以是變量、函數(shù)、數(shù)值表達式、字符串表達式或邏輯表達式。 ? Case子句中表達式列表的數(shù)據(jù)類型應當與表達式的數(shù)據(jù)類型一致。 【 例 63】 從鍵盤輸入一個字符，判斷它是大寫字母、小寫字母、數(shù)字字符還是其他字符。 ‘ 本例使用標簽 Label1報告結(jié)果，首先在窗體上添加一個 Label1。 Private Sub Form1_Click(… ) Handles Dim ch As Char ch = InputBox(請輸入字符 , 字符判斷 , , 200, 200) Select Case ch Case A To Z = ch + 是大寫字母 Case a To z = ch + 是小寫字母 Case 0 To 9 = ch + 是數(shù)字字符 Case Else = ch + 是其他字符 “ End Select End Sub 3．循環(huán)結(jié)構(gòu) ：計數(shù)循環(huán)控制與條件循環(huán)控制。 For I=1 To 10 Step 1 = amp。 I amp。 Next I 一般用于循環(huán)次數(shù)已知的情況 （ 1）計數(shù)循環(huán)控制語句（ For Next語句） 語法格式： For 循環(huán)變量 = 初值 To 終值 [Step 步長值 ] 語句塊 [Exit For] 語句塊 Next [循環(huán)變量 ] 0 初值 終值 =1 時 ,可省略 0 初值 終值 =0 死循環(huán) 步長 循環(huán)次數(shù) )1( ?? ?步長 初值終值In t圖 617 For循環(huán)語句流程圖 循環(huán)變量在初值和終值范圍內(nèi)語句塊TrueFa ls e循環(huán)變量 = 初值Ex it For語句塊循環(huán)變量加步長說明： (1)循環(huán)變量必須是數(shù)值型變量 。 (2)初值 、 終值 、 步長值可以是表達式 。 類型必須與循環(huán)變量的類型相同 。 (3)步長值可以是正數(shù) （ 初值小于終值 ） 或負數(shù) （ 初值大于終值 ） 。 缺省值為 1。 (4)Exit For：退出循環(huán) ， 執(zhí)行 Next語句的后繼語句 。 (5)For與 Next中間的語句稱為循環(huán)體 ， 可以是多個語句 。 Private Sub Form1_Click(… ) Handles Dim s As Single, num As Integer, smax As Integer, smin As Integer 39。s讀入成績 , num學號 , smax最高分 , smin最低分 Dim nummax As Integer, nummin As Integer 39。nummax最高分學號 , nummin最低分學號 Dim sum As Integer, ave As Single, ch As String 39。 sum總分 , ave平均分 , ch為 InputBox提示 smax = 1 : smin = 101 39。最高分賦值為 1, 最低分賦值為 101 For num = 1 To 10 ch = 請輸入第 amp。 num amp。 個學生的成績 s = InputBox(ch) ： 39。輸入學生成績 sum = sum + s 39。學生成績累加 If s smax Then smax = s : nummax = num 39。保留最高分及對應學號 If s smin Then smin = s : nummin = num 39。保留最低分及對應學號 Next num ave=sum / (num 1) 39。計算平均成績 , 注意學生總數(shù)為 num1 MsgBox(最高分 = amp。 smax amp。 學號 = amp。 nummax amp。 vbCrLf amp。 _ ?vbCrLf是回車換行符 最低分 = amp。 smin amp。 學號 = amp。 nummin amp。 vbCrLf amp。 _ ?vbCrLf=Chr(13)+Chr(10) 總分 = amp。 sum amp。 平均分 = amp。 ave) End Sub 【 例 64】 學生分數(shù)統(tǒng)計。通過鍵盤輸入 10個學生某一門課程的成績，如 69， 70，80， … ， 99， 78。每個數(shù)據(jù)按前后次序?qū)獙W生的學號，即：第一個數(shù)據(jù)是 1號學生的成績，第二個數(shù)據(jù)是 2號學生的成績， …… 最后一個數(shù)據(jù)是 10號學生的成績。試編寫一程序統(tǒng)計該課程的總分、平均分、最高分及對應的學號、最低分及對應的學號。 （ 2）條件循環(huán)控制語句 條 件 ?語 句 塊T r u eF a l s eE x i t D o語 句 塊條 件 ?語 句 塊F a l s eT r u eE x i t D o語 句 塊 While…… Loop和 Do Until…… Loop 語句 Do While……Loop Do Until……Loop 語句格式 Do While條件 語句塊 [Exit Do] 語句塊 Loop Do Until條件 語句塊 [Exit Do] 語句塊 Loop 執(zhí)行流程 舉例 （密碼檢驗） PW=InputBox(輸入密碼 ) Do While PWABCD“ PW=InputBox(輸入密碼 ) Loop PW=InputBox(輸入密碼 ) Do Until PW=ABCD“ PW=InputBox(輸入密碼 ) Loop （ 2）條件循環(huán)控制語句 2） Do…… Loop While和 Do…… Loop Until 語句 Do While……Loop Do Until……Loop 語句格式 Do 語句塊 [Exit Do] 語句塊 Loop While條件 Do 語句塊 [Exit Do] 語句塊 Loop Until條件 執(zhí)行流程 舉例 （密碼檢驗） Do PW=InputBox(輸入密碼 ) Loop While PWABCD Do PW=InputBox(輸入密碼 ) Loop Until PW=ABCD 條 件 ?T r u eF a l s e語 句 塊E x i t D o語 句 塊條 件 ?F a l s eT r u e語 句 塊E x i t D o語 句 塊【 例 65】 編寫一個譯碼程序，將一個由大寫字母組成的英語句子譯成數(shù)字代碼。譯碼規(guī)則是：以數(shù)字 1代替字母 A、數(shù)字 2代替字母 B、 …… 、數(shù)字 26代替字母 Z，如遇空格則輸出 *號。英語句子以句號結(jié)束。 Private Sub Form1_Click(… ) Handles Dim Code As Integer, Letter As String = Letter = InputBox(請輸入一個大寫字母 (輸入小數(shù)點結(jié)束程序 )： ) Do While Letter . If Letter = Then = amp。 * amp。 Space(3) ?Space(3)是 3個空格字符串 Else Code = Asc(Letter) Asc(A