1、第七章 VisualBasic控制結構-選擇結構 1.掌握If 條件語句 2. Select Case選擇語句 3.選擇嵌套結構 本章重點：學習掌握If條件語句和Select Case語句的格式及其使用。本章難點：選擇嵌套結構本章內容及要求：選擇結構選擇結構：當設定條件成立時執行某些語句，條件不成立時則跳過這些語句或執行其它的語句。選擇結構中要使用選擇語句，在VB中提供了兩種語句：If語句和Select Case語句1、If單分支結構格式1:If Then 其中，是一個條件表達式或邏輯表達式格式2：If Then End If TF 語句（塊）表達式單分支結構1、If單分支結構說明： 表達式都

2、是邏輯表達式，數值表達式和關系表達式被視為邏輯表達式的特例。當表達式為數值表達式時，VB 將這個值解釋為 True 或 False：一個為零的數值為 False，而任何非零數值都被看作 True。 語句塊可以是一條或多條語句。如果使用格式1的簡單形式表示，則只能是一條語句；或用冒號隔開的多條語句，但這些語句必須書寫在一行上。 可以使用單行或多行語法有條件地執行一個語句。下面兩個例子是等價的： If anyDate Now Then anyDate = Now 和 If anyDate Now Then anyDate = Now End If If.Then 的單行格式不用 End If 語句

3、。1、If單分支結構 例5-1：輸入一個數，如果是奇數則通過消息框輸出該數。 Private Sub Form_Click() Dim x As Integer x = InputBox(請輸入一個值：) If x Mod 2 = 1 Then MsgBox x End SubData是3的倍數 X是奇數?輸出xTF格式1： If Then Else End If 格式2： If Then Else 2、If雙分支結構功能：當表達式的值為非0（True）時,執行Then后面的語句塊1，否則執行Else后面的語句塊2。表達式語句塊1語句塊2TF2、If雙分支結構 例如，Dim Data As I

4、nteger Data = InputBox(“請輸入成績：) If Data = 90 Then Print “優秀” Else Print “合格” Print 計算完畢 上例的If 語句可以改寫為： If Data = 90 Then Print “優秀”Else Print “合格”End IfData=90?輸出“優秀”TF輸出“合格”輸出“計算完畢”條件函數：IIf函數形式是： IIf（表達式，當表達式為True時的值，當表達式為False時的值）iif函數等價于雙分支結構語句。 例如，求x,y中大的數，放入Tmax變量中，語句如下： Tmax=IIf（x y，x，y）等價于：If

5、 xy Then Tmax=x else Tmax=y格式： If Then ElseIf Then Else 語句塊 n+1 End If 說明：不管有幾個分支,依次判斷，當某條件滿足，執行相應的語句塊，其余分支不再執行；若條件都不滿足，且有Else子句，則執行該語句塊，否則什么也不執行。 ElseIf不能寫成 Else If。3、If多分支結構說明： 不管有幾個分支，程序執行了一個分支后，其余分支不再執行。 ElseIf子句的數量沒有限制，可以根據需要使用任意多個ElseIf子句。 語句中的ElseIf子句和Else子句都是可選項，如果省略這些子句，則成為單分支結構。 If.Then.El

6、seIf 只是 If.Then.Else 的一個特例。注意，可以使用任意數量的 ElseIf 子句，或者一個也不用。可以有一個 Else 子句，而不管有沒有 ElseIf 子句。例5-5 已知百分制成績mark，顯示對應的五級制成績， 哪些正確，哪些錯誤？Select Case選擇語句 語法格式： Select Case Case Case Case Else End Select功能：根據測試表達式的值，決定程序的流向。 表達式塊1表達式塊2表達式塊n語句快n+1 語句塊1語句塊2語句塊nSelect Case選擇語句 說明： （1） 值的類型是數值型、字符串型、日期型等，一旦與某個Case

7、后的值相等，則執行這個Case中的，完成后執行End Select后的語句。（2）如果所有的Case后的都不與項匹配，則執行Case Else后的。 （3）表達式表與測試變量或表達式的類型必須相同，每一個表達式表是一個或幾個值的列表。如果在一個列表中有多個值，就用逗號把值隔開。表達式表有四種形式：一個表達式。如：Case 6一組用逗號隔開的枚舉值。如： Case 1，3，5，7 表達式1 TO 表達式2。如： Case 1 To 10Is 。如：Case Is=80 另外，在一個情況語句中，上述四種形式可以混合使用Select Case選擇語句 說明： （4）Select Case語句在執行時

8、，先求測試表達式的值，然后尋找該值與哪一個Case子句的表達式值相匹配，找到后則執行與該Case語句有關的語句塊，之后自動轉到EndSelect后的語句執行；如果沒有找到與Case子句中的表達式相匹配的值，則執行Case Else子句有關的語句塊，然后轉到End Select后面的語句執行。（5）當有多個Case子句的取值范圍和測試表達式的值域相符時，只執行符合要求的第一個Case子句后的語句塊。（6)Select Case語句只對單個表達式求值，并根據求值結果執行不同的語句塊；而If Then Else語句可以對不同的表達式求值，然后執行不同的操作。這是兩者的主要區別。Data = Inpu

9、tBox(請輸入一個成績, 成績分等) Select Case Data Case is=100 MsgBox 滿分, , 成績分等 Case is=90 MsgBox 優秀, , 成績分等 Case is=80 MsgBox 良好, , 成績分等 Case is=70 MsgBox 一般, , 成績分等 Case is=60 MsgBox 合格, , 成績分等 Case Else MsgBox 不合格, , 成績分等 End Select單擊窗體確定例題：用Select語句實現按輸入學生成績分等級。 Data = InputBox(請輸入一個成績, 成績分等) Select Case Int

10、(Data / 10) Case 10 MsgBox “滿分 Case 9 MsgBox 優秀 Case 8 MsgBox 良好 Case 7 MsgBox 一般 Case 6 MsgBox 合格 Case Else MsgBox 不合格 End Select映射法表達條件Char = InputBox(請輸入一個字符, 測試)Select Case Char Case 0 To 9 MsgBox 字符是數字, , 測試 Case a To z MsgBox 字符是小寫字母, , 測試 Case A To Z MsgBox 字符是大寫字母, , 測試 Case Else MsgBox 字符是其它符號, , 測試End Select確定單擊窗體例題： 測試輸入的字符上面學習了選擇結構語句的基本形式，可以通過這些基本形式加以復合，獲得更為復雜的選擇結構，稱為選擇結構語句的嵌套。可根據實際情況選擇采用何種結構。例如：4、嵌套結構例題：求一元二次方程ax2+bx+c=0的解 。 分析: 3個文本框、2個標簽、1個按鈕。一些輔助標簽。 (1) 如果a=0，則不是二次方程，此時如果b=0，則提示重新輸入系數；如果b0，則: x=-c/b (2) 如果a 0，且b2-4ac=0，則有兩個相等的實根 (3) 如果a 0，且b2-4a