《第7章--程序VB選擇結構程序設計ppt課件.ppt》由會員分享，可在線閱讀，更多相關《第7章--程序VB選擇結構程序設計ppt課件.ppt（53頁珍藏版）》請在匯文網(wǎng)上搜索。

1、第7章 選擇結構程序設計,學習重點,If語句、IIf函數(shù)、Switch函數(shù)、Select Case語句的格式與使用。If 語句的嵌套使用。掌握常用的選擇結構算法。,本章內容,7.1 If語句7.2 Select Case語句7.3 基本算法及應用7.4 其他應用舉例本章小結,引言,分支結構,7.1 If語句,7.1.1 IfThen結構 7.1.2 IfThenElse結構 7.1.3 IfThenElseIf結構 7.1.4 If語句的嵌套 7.1.5 與If語句有關的函數(shù),注1：條件表達式的值為True或False，一般是邏輯或關系表達式，也可以是算術表達式（轉換為邏輯值）,7.1.1 I

2、fThen結構,兩種格式：,格式1： 塊形式 If Then 語句體End If,格式2：單行形式 If Then 語句體,注2：當條件為True時執(zhí)行語句體，否則執(zhí)行If語句的下一條語句,注3：語句體中可以是多條語句，當采用格式2時，所有的語句必須寫在一行，用冒號隔開語句體中的語句,7.1.1 IfThen結構,例：已知有兩數(shù)x、y，編程使x中存放較大的數(shù)分析：如果x=y，則不需要做處理 如果xy，則做交換處理實現(xiàn)：If x y Thentemp = xx = yy = tempEnd If用格式2描述： If x y Then temp = x:x = y:y = temp,特別注意：塊結

3、構時If和End If成對出現(xiàn),7.1.1 IfThen結構,例7-1 電子鬧鐘設計，主要利用文本框、按鈕、計時器控件實現(xiàn)鬧鐘功能。,例7-1,程序代碼如下：Private Sub Command1_Click() Timer1.Enabled = Not Timer1.Enabled 用Not運算進行開關控制End SubPrivate Sub Timer1_Timer() Dim d As Date d = Text1.Text If Hour(Time) = Hour(d) And Minute(Time) = Minute(d) Then Beep 到達時間后發(fā)聲End Sub,功能：

4、 連續(xù)1分鐘響鈴，60次,等價于：If Hour(Time) = Hour(d) And Minute(Time) = Minute(d) Then Beep End If,7.1.2 IfThenElse結構,兩種格式：,格式1：If Then 語句體1Else語句體2 End If,格式2：If Then 語句體1 Else 語句體2,注：當條件為True時執(zhí)行語句體1，否則執(zhí)行語句體2,例7-2 已知x，求,程序代碼如下：Private Sub CmdCul_Click() Dim x As Single, y As Single x = Val(txtX.Text) 第1個文本框的名稱

5、是txtX If x 0 Then MsgBox x不能小于0 Else y = Sqr(x) txtY.Text = Str(y) 第2個文本框的名稱是txtY End IfEnd Sub,等價于：If x 0 Then MsgBox x不能小于0 Else y = Sqr(x) : txtY.Text = Str(y),7.1.3 IfThenElseIf結構,If Then語句體1ElseIf Then語句體2Else語句體n+1End If,格式：,7.1.3 IfThenElseIf結構,判斷的順序為表達式1、表達式2只有當表達式1為False時才判斷表達式2，當表達式1和表達式2都

6、為False時，才判斷表達式3，程序執(zhí)行語句體n+1的條件為前n個表達式均為False。,7.1.3 IfThenElseIf結構,例：已知變量ch中存放了一個字符，判斷該字符是字母字符、數(shù)字字符、空格還是其它字符。分析：字母字符：ch=“a” And ch=“A” And ch=“0” And ch=“9”空格字符：ch=“ ”實現(xiàn)：,If ch=“a” And ch=“A” And ch=“0” And ch=“9” ThenPrint “數(shù)字字符”ElseIf ch=“ ” ThenPrint “空格” ElsePrint “其他字符”End If,7.1.3 IfThenElseIf結

7、構,例7-3 旅客乘車旅行，可免費攜帶30公斤行李，超過30公斤的部分每公斤需支付托運費10元，超過50公斤部分則每公斤需支付20元托運費。請編程根據(jù)每位旅客行李的重量計算其應付的行李托運費。,例7-3,此分段函數(shù)用程序代碼表示如下:Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 50 y = (x - 50) * 20 + 20 * 10 End If Text2.Text = yEnd Sub,能否寫成？,可以，但Else已經(jīng)包含了x=30的信息,7.1.4 If語句的嵌套

8、,If語句中又包含If語句在Then子句或Else子句的語句體中包含完整的一條If語句如： If x y ThenPrint x & “” & yElseIf xy ThenPrint x & “” & yElse Print x & “=” & yEnd If End If,7.1.4 If語句的嵌套,注1： If語句的完整性，即內層If語句必須完整地出現(xiàn)在外層If語句的Then子句或Else子句中。,內外層不能有交叉！,7.1.4 If語句的嵌套,注2：ElseIf的匹配原則Else始終與上面距離其最近的未被匹配過的 If匹配注3： If End If的匹配If 塊必須以一個 End If

9、 語句結束,If ThenIf Then Else End IfElseIf Then If Then Else End IfEnd If,7.1.4 If語句的嵌套,為使程序結構更為清晰，要養(yǎng)成良好的書寫習慣。,If ThenIf Then Else End IfElseIf Then If Then Else End IfEnd If,為體現(xiàn)層次，可以使用Tab健排放不同層次的語句,7.1.4 If語句的嵌套,例7-4 根據(jù)用戶輸入年齡和性別，輸出不同的歡迎信息。其中小于14歲的男性為boy，大于14歲的男性為guy，其中小于14歲的女性為girl，大于14歲的女性為miss。,例7-4,

10、程序代碼如下：Private Sub Command1_Click() If Op_male.Value = True Then If Val(Txt_age.Text) 14 Then 小于14歲的男性 MsgBox Hello,boy! Else 大于或等于14歲的男性 MsgBox Hello,guy! End If Else If Val(Txt_age.Text) 14 Then 小于14歲的女性 MsgBox Hello,girl! Else 大于或等于14歲的女性 MsgBox Hello,miss! End If End IfEnd Sub,7.1.5 與If語句有關的函數(shù),1

11、. IIf函數(shù)*2. Switch函數(shù),1. IIf函數(shù),格式：IIf(條件表達式，條件為True時的表達式，條件為False 時的表達式)功能：根據(jù)條件表達式的值，確定函數(shù)返回后面兩個表達式的其中一個的值。,1. IIf函數(shù),IIf函數(shù)實際上是IfThenElse結構的一個簡寫 IIf函數(shù)中后兩個表達式可以是各種類型的表達式，也可以是一個IIf函數(shù)的調用Print x & IIf(x 0, “大于0”, “小于或小于0”) s = IIf(x 0, 1, IIf(x = 0, 0, -1) 判斷x的符號,1. IIf函數(shù),將If語句改寫成使用IIf函數(shù)：,If x 30 Then y = 0

12、 ElseIf x = 50 Then y = (x - 30) * 10 Else y = (x - 50) * 20 + 20 * 10 End If,等價于：y = IIf(x 30, 0, IIf(x = 50, (x - 30) * 10, (x - 50) * 20 + 20 * 10),2. Switch函數(shù),格式Switch(表達式1,值1, 表達式2,值2 , 表達式n,值n) 功能計算一組條件表達式列表的值，然后返回與條件表達式列表中最先為True的表達式所對應的Variant型數(shù)值或表達式。如：lblstatus.Caption= _ Switch(grade=90,A,

13、grade=80,B,grade80,C)用于多分支情況 條件表達式和值必須成對出現(xiàn) !,2. Switch函數(shù),將If語句改寫成使用Switch函數(shù)：,If x 30 Then y = 0 ElseIf x = 50 Then y = (x - 30) * 10 Else y = (x - 50) * 20 + 20 * 10 End If,等價于：y = Switch(x 50, (x-50)*20+20*10),7.2 Select Case語句,(多分支語句)格式：Select Case Case 表達式列表1Case 表達式列表2Case ElseEnd Select,7.2 Sel

14、ect Case語句,T,表達式1,語句體1,表達式2,語句體2,T,表達式n,語句體n,語句體n+1,T,執(zhí)行過程:計算測試表達式的值；依次比較各個表達式，符合條件則進入相應的語句體執(zhí)行；執(zhí)行Select Case語句的下一條語句。,計算測試表達式的值,7.2 Select Case語句,注1：測試表達式可以是數(shù)值或字符串表達式；注2：各表達式列表 合法的格式：一個常量或常量表達式多個常量或常量表達式，用逗號隔開，逗號相當于“或” ，如：Case 1，3，5，7表達式1 to 表達式2，表示從表達式1到表達式2中所有的值，其中表達式1的值必須小于表達式2的值。如：Case 1 to 5Is關

15、系運算表達式，可以使用的關系運算符為：、=、=，不可以使用邏輯運算符表示多個范圍。 前面四種情況的組合，如Case Is10,2,4,6,Is 0 注3：若有多個Case表達式符合條件，則只執(zhí)行第一個符合的Case下的語句體。,7.2 Select Case語句,例：已知變量ch中存放了一個字符，判斷該字符是字母字符、數(shù)字字符、空格還是其它字符。(用Select Case語句改寫)分析：將各種字符的判斷條件改寫成符合要求的Case條件字母字符：ch=“a” And ch=“A” And ch=“0” And ch=“9” “0” To “9”空格字符：ch=“ ” “ ”Is=“ ”實現(xiàn)：,S

16、elect Case chCase “a” To “z”, “A” to “Z”Print “字母字符” Case “0” To “9”Print “數(shù)字字符”Case “ ”Print “空格”Case ElsePrint “其他字符”End Select,7.2 Select Case語句,例7-5簡單運算器分析：運算符的判斷：共四種取值，事先已在ComboBox中,Select Case Cmbop.Text Case txtresult = Val(txtX) + Val(txtY) Case txtresult = Val(txtX) - Val(txtY) Case txtresult = Val(txtX) * Val(txtY) Case txtresult = Val(txtX) / Val(txtY)End Select,7.2 Select Case語句,所有Select Case語句可以替換為IfThenElseIf語句。只有在If語句和每一個ElseIf語句計算相同條件表達式時，才能用Select Case結構替換IfThenElseIf結構。,7.3 基本算