【正文】 小的數(shù)放入 A，大的數(shù)放入 C。 通過這樣兩次比較， A便是最小數(shù)了。 （ 4） B和 C比較，小的數(shù)放入 B，大的數(shù)放入 C。 這樣 A、 B、 C已按從小到大排列。 （ 5） A、 B、 C分別放入三個文本框。 兩數(shù)互換使用語句組： X = A : A = B : B = X Visual Basic程序設計教程 20 【 例 42】 三數(shù)排序 程序代碼如下 : Option Explicit Private Sub Command1_Click() Dim A As Single, B As Single, C As Single, X As Single A = Val(): B = Val() C = Val() If A B Then X = A: A = B: B = X If A C Then X = A: A = C: C = X If B C Then X = B: B = C: C = X = A: = B: = C End Sub Visual Basic程序設計教程 21 塊 If語句采用多行代碼的形式，其格式為： If 條件 1 Then 語句塊 1 [ElseIf 條件 2 Then [ 語句塊 2 ]] …… [Else [ 語句塊 n+1 ]] End If 1．語句執(zhí)行過程 執(zhí)行過程如圖 Visual Basic程序設計教程 22 使用塊 If語句 2．關于格式 （ 1） If與 End If必須成對出現(xiàn)。 （ 2）塊 If語句必須在 Then或 Else后換行 （ 3）塊 If語句可以沒有 Else或 ElseIf子句。 （ 4）行 If語句也可以改寫成塊 If語句。 Visual Basic程序設計教程 23 如變量 Average存放成績，進行等級轉(zhuǎn)換的語句為： If Average = 90 Then 39。其中標簽 Label5用于顯示等級 = 等級： amp。 優(yōu)秀 ElseIf Average = 60 Then = 等級： amp。 合格 Else = 等級： amp。 不合格 End If 3． 關于 語句塊 語句塊可以是一條或多條語句，可寫成一行或多行。 Visual Basic程序設計教程 24 編寫嵌套的選擇結構程序 If語句允許出現(xiàn)嵌套形式。 如判斷 x的符號，采用行 If嵌套，程序代碼為： If x = 0 Then If x = 0 Then y = 0 Else y = 1 Else y = 1 Visual Basic程序設計教程 25 變量 y存放比較結果。但可讀性不好。 如果使用塊 If來編程，程序代碼為： If x = 0 Then If x = 0 Then y = 0 Else y = 1 End If Else y = 1 End If 嵌套時，程序注意使用縮進格式，增加可讀性。 Visual Basic程序設計教程 26 Dim nflag As Integer Dim smystring As String Private Sub Form_Load() nflag = 1 smystring = 歡迎使用 Visual Basic = 18 End Sub Private Sub Form_Click() If nflag = 1 Then = 黑體 Print smystring nflag = nflag + 1 Else If nflag = 2 Then = 楷體 _gb2312“ Print smystring nflag = nflag + 1 Else If nflag = 3 Then = 隸書 Print smystring nflag = nflag + 1 Else nflag = 1 End If End Sub 程序環(huán)境 【 例 】 在窗體中輪流以不同字體顯示文字 Visual Basic程序設計教程 27 Select Case是實現(xiàn)多分支程序設計的條件語句 Select Case又稱為“情況選擇”語句。 常用于分段計算、根據(jù)離散值處理信息 Select Case語句的其格式是： Select Case 測試表達式 [Case 表達式值 1 [ 語句塊 1 ]] [Case 表達式值 2 [ 語句塊 2 ]] …… [Case Else [ 語句塊 n+1]] End Select Visual Basic程序設計教程 28 1．語句執(zhí)行過程 先求出測試表達式的值 將值與 Case語句中的表達式值進行比較，如果條件滿足，則執(zhí)行該 Case子句對應的語句塊。 當與所有的表達式值不符時，執(zhí)行 Case Else后的語句塊。 Select Case 測試表達式 [Case 表達式值 1 [ 語句塊 1 ]] [Case 表達式值 2 [ 語句塊 2 ]] …… [Case Else [ 語句塊 n+1]] End Select Visual Basic程序設計教程 29 2．關于格式 （ 1）“測試表達式”可以是數(shù)值、字符串表達式。 （ 2）“表達式值”其類型與“測試表達式”相同，有確定值。 “表達式值”的幾種形式 : 表達式值 表示固定值，如 Case 1或 Case 3*5+Y 表達式值 1,…, 值 n 表示幾個固定值之一，如 Case 1,3,5,7,9 表達式值 1 To 值 2 表示上下限之間的范圍，如 Case 2 To 4 Is 關系運算符 值 表示范圍，如 Case Is 5 Visual Basic程序設計教程 30 （ 3） Select Case 應與 End Select成對出現(xiàn)。 （ 4） Case與“表達式值”之間應有空格間隔。 （ 5）語句塊可以是一條或多條語句，可寫成一行或多行。以成績等級轉(zhuǎn)換為例，使用Select Case語句的代碼如下： Visual Basic程序設計教程 31 Select Case Average Case 90 To 100 Print Average, 優(yōu)秀 Case 80 To 89 Print Average, 良好 Case 70 To 79 Print Average, 中等 Case 60 To 69 Print Average, 及格 Case 0 To 59