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