1、VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄14.2 4.2 選擇結構選擇結構 P79P79 uVB中主要通過中主要通過If If條件語句和條件語句和SelectSelect情況語句來實現。情況語句來實現。 l IfThenElsel IfThenElseIfl Select Case本章目錄本章目錄1真真假假語句組語句組1語句組語句組2 條件條件VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄2一、一、 If If條件語句條件語句 P80P80本章目錄本章目錄111lgxxxxYX1NY=lgxYX1NY=1-xY輸入輸入X輸出輸出Y開始開始結束結束VB程序設計簡明教程程序設計簡

2、明教程本書目錄本書目錄31 1、單分支結構（、單分支結構（ IfThen語句）語句）P80P80 語句格式：語句格式： If If Then Then 語句塊語句塊（可以是一句或多句語句）（可以是一句或多句語句） End IfEnd If或或 If If Then Then 分別稱為分別稱為：塊塊結構條件語句和結構條件語句和單行單行結構條件語句結構條件語句功能：條件為真，執行語句塊功能：條件為真，執行語句塊說明：說明：1）執行流程：該語句的作用是當表達式的值為）執行流程：該語句的作用是當表達式的值為TrueTrue，執行執行ThenThen后面的語句塊，否則不做任何操作。后面的語句塊，否則不做

3、任何操作。2）無論條件是否成立，都具有共同出口無論條件是否成立，都具有共同出口表達式 語句塊 T F 本章目錄本章目錄VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄43）表達式：即）表達式：即“條件條件”l 關系表達式關系表達式l 邏輯表達式邏輯表達式l 算術表達式：表達式值按算術表達式：表達式值按非零為非零為TrueTrue，零為零為FalseFalse進行判斷。進行判斷。4）單行單行結構條件語句的結構條件語句的 : 可以有多條語句，各語句之間可以有多條語句，各語句之間用冒號隔開。用冒號隔開。5）單行單行結構條件語句結構條件語句應作為一條語句書寫。如果語句太長需要換應作為一條語句書寫。

4、如果語句太長需要換行，必須在折行處使用行，必須在折行處使用續行符號續行符號。6 6）塊塊結構條件語句的結構條件語句的IfIf與與End IfEnd If成對出現。成對出現。例例: If N0 Then A=A+B:B=B+A或：或： If N0 Then A=A+B:B=B+A End If表達式 語句塊 T F VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄5lg x x11-x x= 1 Then Y = Log(X)/Log(10) End If If X = 1 Then Y = Log(X)/Log(10) If X =1 Then Y = Log(X)/Log(10)Labe

5、l3.Caption = Y程序段程序段2：X = Val(Text1.Text)Y = Log(X)/Log(10)If X 1 ThenY = 1-XLabel3.Caption = Y6lg x x11-x x1y=程序段程序段3：X = Val(Text1.Text)If X 1 ThenY = 1-XY = Log(X)/Log(10)Label3.Caption = Y表達式 語句塊 T F VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄7111lgxxxxYIf If Then Then End IfEnd IfIf If Then Then 2、雙分支結構、雙分支結構語句

6、格式：語句格式： If If Then Then 1ElseElse 2 End IfEnd If或：或：If If Then Then Else Else 2 功能：表達式為真功能：表達式為真執行執行 1 ，否則，否則執行執行 2 VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄51511lgxxxxxxY x=-5 And X=1 Then y=Log(x) / Log(10) Else If x=-5 And X=-5 And X1 Then y=1-x Else y=Sqr(Abs(x) 表達式 2 表達式n T F T F 語句塊 n+1 語句塊 2 語句塊 1 F T 表達式

7、1 語句塊 n 說明說明VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄11o 1）IF END IF必須必須成對成對使用。使用。ElseIf不能寫不能寫成成Else If，即中間不能有空格。即中間不能有空格。o 2）條件表達式條件表達式可以是各種表達式或函數的組可以是各種表達式或函數的組合，其值必須是合，其值必須是邏輯值或數值邏輯值或數值。o 3） 可以由可以由一條或多條語句一條或多條語句組成。組成。o 4）IfThenElseIf 語句，每次語句，每次最多只能執行一最多只能執行一個個 。在多個。在多個ElseIf子句的子句的表達式表達式值值為真時，為真時，只執行第一個只執行第一個表達式

8、表達式值為真的值為真的 ，然后執行，然后執行 END IF后面的第一條語句。后面的第一條語句。注注意意語句形式：語句形式： If If 表達式表達式1 Then Then 語句塊語句塊1 ElseIf ElseIf 表達式表達式2 Then Then 語句塊語句塊2 Else 語句塊語句塊 n+1 End IfEnd If 表 達 式 2 表 達 式n T F T F 語 句 塊 n+1 語 句 塊 2 語 句 塊 1 F T 表 達 式 1 語 句 塊 n VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄12o 5）在書寫時，可以將在書寫時，可以將If語句、語句、ElseIf子句、子句、

9、Else子子句、和句、和End If語句左對齊，而各語句組向右縮進若語句左對齊，而各語句組向右縮進若干空格，以使程序干空格，以使程序結構更清楚結構更清楚。o 6）嚴格按格式要求書寫，嚴格按格式要求書寫，不可隨意換行或將兩行不可隨意換行或將兩行合并成一行合并成一行。注注意意例如，對于條件結構：例如，對于條件結構： If x = 0 Then y = 1 Else y = 2 End If寫法一：寫法一：If x=0 Then y=1Else y = 2End If寫法二：寫法二：If x = 1 Then y = 10 Else y = 20End If隨意換行或將兩行合并隨意換行或將兩行合并成

10、一行成一行極易出錯！極易出錯！ VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄13例例4.8 4.8 已知變量已知變量chch中存放了一個字符，判斷該字符是字母字符、中存放了一個字符，判斷該字符是字母字符、數字字符還是其他字符。數字字符還是其他字符。P82P82多分支結構例多分支結構例本章目錄本章目錄Private Sub Command1_Click() Dim ch As String * 1 ch = InputBox(input) If UCase(ch) = A And UCase(ch) = 0 And ch = 9 Then 表示是數字字符表示是數字字符 MsgBox (c

11、h + 是數字字符是數字字符) Else MsgBox (ch + 是其他字符是其他字符) 除上述字符以外的字符除上述字符以外的字符 End IfEnd SubVB程序設計簡明教程程序設計簡明教程本書目錄本書目錄14If語句的嵌套是指語句的嵌套是指If或或Else后面的語句塊中又包含后面的語句塊中又包含If語語If 表達式表達式1 Then If 表達式表達式2 Then End If End IfIf xy Then t=x: x=y: y=t If yz Then t=y: y=z: z=t If xyz用一個用一個IF語句和一個嵌套語句和一個嵌套的的IF語句實現語句實現本章目錄本章目錄n

12、 不管書寫格式如何，不管書寫格式如何，Else或或End If都將與前面最靠近的未曾都將與前面最靠近的未曾配對的配對的If語句相互配對，構成一個完整的語句相互配對，構成一個完整的If結構語句結構語句。VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄5 5、編寫分支結構程序、編寫分支結構程序1525 . 021111222xxxxexxxxxyVB程序設計簡明教程程序設計簡明教程本書目錄本書目錄25 . 021111222xxxxexxxxxy16本章目錄本章目錄VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄17本章目錄本章目錄25 . 021111222xxxxexxxxxyVB程序

13、設計簡明教程程序設計簡明教程本書目錄本書目錄1825 . 021111222xxxxexxxxxy例例2：電費的分段計費：電費的分段計費例3:求一元二次方程的解求一元二次方程的解例4:根據溫度區間，給出冷熱提示VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄19例2 為了節約用電，制定如下隨用電量增加而逐級提高電費的收費辦法，根據用電量的大小分段計費，標準如表所示。分析：用戶的總電費應分分析：用戶的總電費應分6個區段計算，即落在某個區段計算，即落在某個區間的用電量按該區間對應的標準計費，然后將個區間的用電量按該區間對應的標準計費，然后將各段電費匯總。為此，先判斷用戶的總用電量落在各段電費匯

14、總。為此，先判斷用戶的總用電量落在哪個區間，然后分段計算。代碼如下：哪個區間，然后分段計算。代碼如下：VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄20Private sub Command1_Click（） Dim X As Integer, Y As Single X=Val(Text1.Text) If X=100 Then Y=X*0.55 ElseIf X=125 Then Y=100*0.55+(X-100)*0.70 ElseIf X=150 Then Y=100*0.55+25*0.70+(X-125)*0.85 ElseIf X=175 Then Y=100*0.55+

15、25*0.70+25*0.85+(X-150)*1.00 ElseIf X0，有兩個不等實根，有兩個不等實根 若若b2 - 4ac 0計算復根的虛部計算復根的虛部P = sqr(D) / (2*a)X1 = (b + sqr(D) / (2*a)X2 = (bsqr(D) / (2*a)結束結束VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄23 Private Sub Command1_Click() Dim a As Single, b As Single, c As Single Dim D As Single, X1 As Single, X2 As Single Dim R As

16、 Single, P As Single a = Val(Text1.Text) 取數據取數據a b = Val(Text2.Text) 取數據取數據b c = Val(Text3.Text) 取數據取數據c If a = 0 Then 當當a=0 Text4.Text = 不是二次方程不是二次方程 Text5.Text = 不是二次方程不是二次方程 Else a0 D = b * b - 4 * a * c R = -b / (2 * a)VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄24 If D = 0 Then D=0 Text4.Text = R Text5.Text = R

17、ElseIf D 0 Then D0 X1 = (-b + Sqr(D) / (2 * a) X2 = (-b - Sqr(D) / (2 * a) Text4.Text = X1 Text5.Text = X2 Else D40時，打印時，打印HOT 30C40時，打印時，打印 WARM 20C30時，打印時，打印 ROOM TEMPERATURE 10C20時，打印時，打印 COOL 0 40 Then Label2.Caption = HOT ElseIf C 30 Then Label2.Caption = WARM ElseIf C 20 Then Label2.Caption =

18、ROOM TEMPERATURE ElseIf C 10 Then Label2.Caption = COOL ElseIf C 0 Then Label2.Caption = COLD Else Label2.Caption = FREEZING End IfEnd Sub Text2 Text1C40時，時， 打印打印HOT 30C40時，打印時，打印 WARM 20C30時，打印時，打印 “ROOM TEMPERATURE 10C20時，打印時，打印 COOL 0C10時，時， 打印打印 COLD C0時，時， 打印打印 FREEZINGVB程序設計簡明教程程序設計簡明教程本書目錄本書目

19、錄27二、二、 情況語句（情況語句（Select CaseSelect Case） P84P841 1、形式：、形式：Select Case Select Case 測試表達式測試表達式 Case 表達式列表表達式列表1 1 語句塊語句塊1 Case 表達式列表表達式列表2 2 語句塊語句塊2 Case Else 語句塊語句塊n+1End SelectEnd Select2. 功能功能: 根據根據測試表達式測試表達式的值的值,按順序匹配按順序匹配Case后的后的表表達式達式,如果匹配成功如果匹配成功,則執行該則執行該Case下的語句塊下的語句塊,然后轉到然后轉到End Select語句之后繼續

20、執行。語句之后繼續執行。本章目錄本章目錄VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄3. 說明1） : 數值數值或或字符表達式字符表達式,且其類型應與Case后的表達式類型一致。2）Case 表達式列表表達式列表: 表中的表項為如下表中的表項為如下形式形式: (1) 表達式表達式1,表達式表達式2. 如如: Case 1 , 3 , 5表示當“測試表達式”的值為1或3或5時，執行對應的“語句塊” (2) 表達式表達式1 TO 表達式表達式2 如如: Case 10 TO 30表示當“測試表達式”的值在10到30之間（包括10和30）時，執行對應的“語句塊” (3) Is 如如: Cas

21、e Is = 10表示當“測試表達式”的值大于或等于10時，執行對應的“語句塊”。 Case Is = 0 與與 Case 0 相同相同 n 注意注意: 三種形式可以混用三種形式可以混用,如如: Case Is 0 And y 0 Then MsgBox(在第一象限在第一象限) ElseIf x 0 Then MsgBox(在第二象限在第二象限)ElseIf x 0 And y 0 And y 0 And y 0 MsgBox(“在第一象限在第一象限”) Case x 0 MsgBox(“在第二象限在第二象限”) Case x 0 And y 0 And y 0 MsgBox(“在第四象限在第

22、四象限”)End Select代碼二錯誤：代碼二錯誤：1. Select Case 后不能出現多個變量后不能出現多個變量2. Case后不能出現變量及有關運算符后不能出現變量及有關運算符本章目錄本章目錄例例3：成績等級：成績等級例例4：月份日子數：月份日子數VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄31用用Select Case語句來實現多分支選擇功能，語句來實現多分支選擇功能， 程序代碼如下：程序代碼如下： Private Sub Command1_Click()Private Sub Command1_Click() Dim score As Integer, temp As S

23、tring Dim score As Integer, temp As String score = Val(Text1.Text) score = Val(Text1.Text) temp = temp = 成績等級為：成績等級為： Select Case score Select Case score Case 0 To 59 Case 0 To 59 Label2.Caption = temp + Label2.Caption = temp + 不及格不及格 Case 60 To 79 Case 60 To 79 Label2.Caption = temp + Label2.Captio

24、n = temp + 及格及格 Case 80 To 100Case 80 To 100 Label2.Caption = temp + “ Label2.Caption = temp + “優良優良 Case Else Case Else Label2.Caption = Label2.Caption = 成績出錯成績出錯 End Select End Select End Sub End Sub例例3 判斷成績的等級（優良、及格、不及格）判斷成績的等級（優良、及格、不及格）VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄32 （1）分析：不管哪一年，）分析：不管哪一年，1、3、5、7、

25、8、10、12月份都有月份都有31天；天；4、6、9、11月份都有月份都有30天；而對天；而對2月份則要看是否是閏年，月份則要看是否是閏年，若是閏年有若是閏年有29天，平年有天，平年有28天。天。 判斷某一年是否閏年的邏輯表達式判斷某一年是否閏年的邏輯表達式:閏年的條件是閏年的條件是:能被能被4整除，但不能被整除，但不能被100整除的年份?；蚰鼙徽哪攴?。或能被400整除的年份。整除的年份。 (y Mod 4 = 0 And y Mod 100 0) Or (y Mod 400 = 0) (y Mod 4 = 0 And y Mod 100 0) Or (y Mod 400 = 0) 例例4

26、:4: 輸入一個月份，輸出該月份有多少天輸入一個月份，輸出該月份有多少天VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄33Private Sub Command1_Click() “輸出輸出”按鈕按鈕 Dim y As Integer, m As Integer, d As IntegerDim y As Integer, m As Integer, d As Integer y = Val(Text1.Text) y = Val(Text1.Text) m = Val(Text2.Text) m = Val(Text2.Text) Select Case m Select Case m

27、 Case 1, 3, 5, 7, 8, 10, 12 Case 1, 3, 5, 7, 8, 10, 12 d = 31 d = 31 Case 4, 6, 9, 11 Case 4, 6, 9, 11 d = 30 d = 30 Case 2 Case 2 If (y Mod 4 = 0 And y Mod 100 0) Or (y Mod 400 = 0) Then If (y Mod 4 = 0 And y Mod 100 0) Or (y Mod 400 = 0) Then d = 29 d = 29 閏年的閏年的2 2月有月有2929天天 ElseElse d = 28 d = 2

28、8 平年的平年的2 2月有月有2828天天 End IfEnd If Case Else Case Else Text3.Text = Text3.Text = 非法月份！非法月份！ Exit Sub Exit Sub 退出過程退出過程 End SelectEnd Select Text3.Text = d Text3.Text = dEnd SubVB程序設計簡明教程程序設計簡明教程本書目錄本書目錄34三、三、 條件函數條件函數 8787(1) IIf函數函數格式格式: IIfIIf(表達式，表達式為真時的值，表達式為假時的表達式，表達式為真時的值，表達式為假時的值值)功能功能: 當當的值為

29、的值為True時，返回第時，返回第2個參數的值；個參數的值；否則，返回第否則，返回第3個參數的值。個參數的值。n IIf函數是函數是If Then Else 結構的簡潔表示結構的簡潔表示例如，將例如，將x，y中大的數，放入中大的數，放入Tmax變量中：變量中： Tmax = IIf(x y，x，y) 該語句與如下語句等價該語句與如下語句等價 ： If x y Then Tmax = x Else Tmax = y 例：例： MaxAB = IIf(A B, A, B) MaxABC = IIf(MaxAB C, MaxAB, C)本章目錄本章目錄34VB程序設計簡明教程程序設計簡明教程本書目錄

30、本書目錄35Private Sub Form_Load() Show a = 1: b = 3 c = 2 * a - b a = IIf(c a, a - 1, b) + 1 If a * 2 - 1 a Then a = a + 1 c = c - 1 Else a = a - 1 End If Print a, b, cEnd Sub 下列程序的運行結果是？下列程序的運行結果是？想一想想一想2 5 -2VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄36Private Sub Form_Load() Show a = 1: b = 3 If a * 4 - 1 = b Then If

31、 b 5 Then b = b + 1 ElseIf b 2 Then b = b - 1 Else b = b + 2 End If b = IIf(a = b, b + 1, b - 1) Print bEnd Sub 下列程序的運行結果是？下列程序的運行結果是？想一想想一想 2VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄37(2) Choose函數函數 格式：格式： Choose Choose(整數表達式，選項列表整數表達式，選項列表) 功能：功能：根據表達式的值根據表達式的值i,i,返回選項列表中第返回選項列表中第i個選項。個選項。如果整數表達式的值越出選項范圍時，返回如果整數

32、表達式的值越出選項范圍時，返回Null。例例 根據根據NopNop的值，得到的值，得到+ +、- -、中的某運算符：中的某運算符：Op= Choose(Nop，+，- -，) 例例4.13 4.13 根據當前日期，顯示今日是星期幾。根據當前日期，顯示今日是星期幾。P88P88t = Choose(Weekday(Now), “星期日星期日”, “星期一星期一”, “星期星期二二”, “星期三星期三”, “星期四星期四”, “星期五星期五”, “星期六星期六”)MsgBox(今天是：今天是： & Now & t) 本章目錄本章目錄Dim nop As Integer, op As

33、 CharRandomize()nop = Int(Rnd() * 4 + 1)op = Choose(nop, +, -, , )MsgBox(nop= & nop & op= & op)選擇結構綜合例題例例1例例2-例例3VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄38 例如：例如：0時至時至12時，顯示時，顯示“早上好早上好” 利用窗體裝載利用窗體裝載(Load)事件，采用事件，采用Print直接在窗體上輸出結果直接在窗體上輸出結果 Private Sub Form_Load() Dim h As Integer Show 使使print輸出在窗體上的內容

34、可見輸出在窗體上的內容可見 h = Hour(Time() 取系統的時間取系統的時間 FontSize = 30 : ForeColor = RGB(255, 0, 0) BackColor = RGB(255, 255, 0) If h 12 Then Print 早上好！早上好！ Else If h 0，則有兩個不等的實根 (4) 如果a 0，且b2-4ac 0 X1 = (-B + Sqr(Delta) / (2 * A) X2 = (-B - Sqr(Delta) / (2 * A) Print X1=; Format(X1, 0.000) CurrentX = 600: Curren

35、tY = 1300 Print X2=; Format(X2, 0.000) Case Is 0 A1 = -B / (2 * A) A2 = Sqr(Abs(Delta) / (2 * A) VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄42 Print X1=; Format(A1, 0.000); +; _ Format(A2, 0.000); i CurrentX = 600 CurrentY = 1300 Print X2=; Format(A1, 0.000); -; _ Format(A2, 0.000); i End SelectEnd SubVB程序設計簡明教程程序設計

36、簡明教程本書目錄本書目錄43 例3：設計一個四則運算的自我練習應用程序，界面如下圖所示。 Text1Text4Text3Text2Label4Label2VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄44要求: (1) 執行時，當在Text1中輸入一種運算符后，在標簽Label2中立即出現該運算符號。(2) 單擊“出題”按鈕可以產生兩個0，1000之間的隨機整數，這時由Text2、Label2和Text3組成一個表達式。(3) 可以通過單擊“計算”按鈕計算所生成的表達式的值。(4) 也可以由用戶在文本框Text4中輸入運算結果通過單擊“判斷”按鈕可以判斷輸入的運算結果是否正確，然后在La

37、bel4上顯示“正確”或“錯誤”。(5) 單擊“退出”按鈕結束運行。Text1Text4Text3Text2Label4Label2VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄45(1) 在Text1中輸入加、減、乘、除符號后,在Label2中立即出現相應的運算符號。 Private Sub Text1_Change() Label2.Caption = Text1.Text End Sub(2) 單擊“出題”按鈕Command1,生成兩個0，1000之間的隨機整數。 Private Sub Command1_Click() Randomize Text2.Text = Int(Rnd * 1001) Text3.Text = Int(Rnd * 1001) Text4.Text= End SubText1Text4Text3Text2Label4Label2VB程序設計簡明教程程序設計簡明教程本書目錄本書目錄46(3) 單擊單擊“計算計算”按鈕按鈕Command2得出得出Text4的值。的值。Private Sub Command2_Click() If Label2.Ca