【正文】 環(huán)體 Next [循環(huán)變量 ] 說明： ① 格式中的參數說明： ☆ 循環(huán)變量必須為數值型 。) ? Select Case score ? Case Is 60 ? Print 不及格 ? Case Is 70 ? Print 及格 ? Case Is 80 ? Print 中等 ? Case Is 90 ? Print 良好 ? Case Is = 100 ? Print 優(yōu)秀 ? Case Else ? Print 輸入錯誤 ? End Select ? End Sub 循環(huán)是在指定的條件下多次重復執(zhí)行一組語句，這可通過循環(huán)結構來實現。 如： Case 1 To 10 ?Is 關系運算表達式 。 如： Case 6 ? 一組用逗號隔開的枚舉值 。 說明： 如果在一個列表中有多個值，就用逗號把值隔開。 x Else Print 此方程無實根 End If End If End Sub Private Sub Form_Click() Dim score As Single score = InputBox(請輸入學生的成績 score:) If score 60 Then Print 不及格 ElseIf score = 70 Then Print 及格 ElseIf score = 80 Then Print 中等 ElseIf score = 90 Then Print 良好 ElseIf score = 100 Then Print 優(yōu)秀 Else Print 輸入錯誤 End If End Sub 5． Select Case語句（多分支結構） ┆ ┆ F T F F 表達式表n 語句塊 n+1 ┆ 語句塊 n T 表達式表 2 語句塊 2 T 表達式表1 語句塊 1 圖 Select Case 結構 格式： Select Case 測試變量或表達式 [Case 表達式表 1 [語句塊 1]] [Case 表達式表 2 [語句塊 2]] …… [Case 表達式表 n [語句塊 n]] [Case Else [語句塊 n+1]] End Select 功能： 根據 Select Case 變量或表達式 中的結果與各 Case子句中的值比較，決定執(zhí)行哪一組語句塊。 x1, x2=。 語句形式為： If 表達式 1 then if 表達式 11 then …… endif …… endif 【 例 35】 輸入系數 a， b和 c，求二次方程 ax2+bx+c = 0的實根。 Private Sub Form_Click() Dim score As Single score = InputBox(請輸入學生的成績 score。 例： 【 例 36】 輸入一個學生的成績 score， 根據其所在分數段給出他的考試等級 。 pay End Sub 3. If…Then …Else If 語句（多分支結構）結構 語句格式： If 〈 表達式 1 〉 Then 〈 語句塊 1〉 ElseIf 〈 表達式 2〉 Then 〈 語句塊 2〉 … … [Else 〈 語句塊 n+1 ] End If F T T T …… 表達式 1 表達式 2 表達式nn 語句塊 1 語句塊 2 語句塊 nn 語句塊 n+11 F… 圖 多分支結構 說明： ① 不管有幾個分支 ， 程序執(zhí)行了一個分支后 ， 其余分支不再執(zhí)行 。 根據題意計算公式如下： Pay=Weight Weight≤ 40 (Weight40) +40 Weight40 編寫的窗體單擊事件過程代碼如下： Private Sub Form_Click() Dim weight As Single, pay As Single weight = InputBox(請輸入行李重量 , 輸入框 ) If weight 40 Then pay = (weight 40) * + 40 * Else pay = weight * End If Print 行李重量 = amp。 【 例 34】 火車站行李費的收費標準是 40kg以內（ 包括 40kg） /kg， 超過部分為 /kg。 F T 語句 (塊 )1 語句 (塊 )2 表達式 雙分支結構 說明： 塊結構的條件語句可以嵌套 ， 即把一個 If … Then … Else 塊放在另一個 If … Then … Else 塊內 。 編寫的窗體單擊事件過程代碼如下： Private Sub Form_Click() Dim a As Single, b As Single, c As Single, max As Single a = InputBox(請輸入第一個數 , 輸入框 ) b = InputBox(請輸入第二個數 , 輸入框 ) c = InputBox(請輸入第三個數 , 輸入框 ) max = a If b max Then max = b If c max Then max = c Print 三個數中最大的為： amp。 If...Then 的單行格式不用 End If 語句 。 說明： 語句塊可以是一條或多條語句 。 ( ) 功能：將數值轉換成字符串 。 示例： a=Val() 值為 b=Val(13456) 值為 13 Val將數字字符串轉換為數值 ， 當字符串中出現非數值字符時 ， 停止轉換 ， 函數返回的是停止轉換前的結果 。) book 格式： Ucase(字符表達式 ) 功能：將指定表達式值中的小寫字母轉換成大寫 字母 ， 其他字符不變 。 例： ? Lcase(39。 示例： Print Chr(66) 值為字符 B。 示例： Print Asc(C) 值為 67。 格式： YEAR(日期表達式 ) MON