多分支結(jié)構(gòu)-完整精講版課件

1、 第七課 多分支結(jié)構(gòu) 如果要處理的問題需要從多個(gè)可能的方案中選擇其中的一種，就要進(jìn)行多分支選擇，雖然用If語句的嵌套可以實(shí)現(xiàn)多分支選擇，但是實(shí)現(xiàn)起來比較麻煩。所以，在Visual Basic 中，多分支選擇通常用Select Case語句來實(shí)現(xiàn)。多分支選擇結(jié)構(gòu)的特點(diǎn)是：從多個(gè)選擇結(jié)構(gòu)中，選擇第一個(gè)條件為真的分支完成操作。 1 Select Case語句的格式 Select Case 測(cè)試條件 Case 表達(dá)式列表1 語句塊1 Case 表達(dá)式列表2 語句塊2 Case 表達(dá)式列表n 語句塊n Case Else 語句塊n+1 End Select Select Case語句的功能是根據(jù)測(cè)試條件

2、的值，在一組相互獨(dú)立的可選語句序列中挑選要執(zhí)行的語句序列。 Select Case語句的執(zhí)行過程： 首先計(jì)算“測(cè)試條件”的值，然后從上到下，從左到右依次檢查該值與哪一個(gè)Case子句中的“表達(dá)式列表”相匹配，如果找到了，則執(zhí)行該Case子句下面的語句塊，然后執(zhí)行End Select 之后的語句；如果所有的“表達(dá)式列表”均不符合要求，則執(zhí)行Case Else下面的語句塊，然后執(zhí)行End Select 之后的語句，若此時(shí)語句中不含有Case Else子句，則什么都不執(zhí)行，直接轉(zhuǎn)去執(zhí)行End Select 之后的語句。 例1某航空公司規(guī)定在旅游的旺季(79)月份，如果訂票數(shù)超過20張，票價(jià)優(yōu)惠15%，

3、20張以下，優(yōu)惠5%；在旅游的淡季(15)月份、10月份、11月份，如果訂票數(shù)超過20張，票價(jià)優(yōu)惠30%，20張以下，優(yōu)惠20%；其它情況一律優(yōu)惠10%。請(qǐng)?jiān)O(shè)計(jì)程序，根據(jù)月份和訂票張數(shù)決定票價(jià)的優(yōu)惠率。 題目分析：設(shè)月份為m，張數(shù)為n。設(shè)計(jì)一個(gè)命令按鈕Command1的單擊事件Click()來運(yùn)行程序，代碼如下：例1 Private Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer m = Val(Text1.Text) n = Val(Text2.Text) Select Case m Case Is = 5,

4、 10, 11 If n 20 Then r = 20 Else r = 30 Case 7 To 9 If n 20 Then r = 5 Else r = 15 Case Else r = 10 End Select Label4.Caption = 所訂機(jī)票的優(yōu)惠率為： & Str(r) & % End Sub【例1】 該題的運(yùn)行結(jié)果如圖3-5所示。 圖3-5 運(yùn)行結(jié)果 【例2】設(shè)計(jì)一個(gè)四則運(yùn)算的自我練習(xí)應(yīng)用程序，界面如下圖所示。 Text1Text4Text3Text2Label4Label2要求: (1) 執(zhí)行時(shí)，當(dāng)在Text1中輸入一種運(yùn)算符后，在標(biāo)簽Label2中立即出現(xiàn)該運(yùn)算符

5、號(hào)。(2) 單擊“出題”按鈕可以產(chǎn)生兩個(gè)0，1000之間的隨機(jī)整數(shù)，這時(shí)由Text2、Label2和Text3組成一個(gè)表達(dá)式。(3) 可以通過單擊“計(jì)算”按鈕計(jì)算所生成的表達(dá)式的值。(4) 也可以由用戶在文本框Text4中輸入運(yùn)算結(jié)果通過單擊“判斷”按鈕可以判斷輸入的運(yùn)算結(jié)果是否正確，然后在Label4上顯示“正確”或“錯(cuò)誤”。(5) 單擊“退出”按鈕結(jié)束運(yùn)行。(1) 在Text1中輸入加、減、乘、除符號(hào)后，在Label2中立即出現(xiàn)相應(yīng)的運(yùn)算符號(hào)。 Private Sub Text1_Change() Label2.Caption = Text1.Text End Sub(2) 單擊“出題”按

6、鈕Command1，生成兩個(gè)0，1000之間的隨機(jī)整數(shù)。 Private Sub Command1_Click() Randomize Text2.Text = Int(Rnd * 1001) Text3.Text = Int(Rnd * 1001) Text4.Text= End Sub(3) 單擊“計(jì)算”按鈕Command2得出Text4的值。Sub Command2_Click() If Label2.Caption = + Then Text4.Text = Val(Text2.Text) + Val(Text3.Text) ElseIf Label2.Caption = - Then

7、 Text4.Text = Val(Text2.Text) - Val(Text3.Text) ElseIf Label2.Caption = * Then Text4.Text = Val(Text2.Text) * Val(Text3.Text) ElseIf Label2.Caption = / Then Text4.Text = Val(Text2.Text) / Val(Text3.Text) Else a = MsgBox(運(yùn)算類型錯(cuò)，請(qǐng)重輸, , 警告) Text1.SetFocus: Text1.SelStart = 0 Text1.SelLength = Len(Text1.

8、Text) End IfEnd Sub(4) Text4的內(nèi)容也可以由用戶輸入，通過單擊“判斷”按鈕Command3判斷輸入結(jié)果是否正確。 Private Sub Command3_Click() Select Case Label2.Caption Case + If Text4.Text=Val(Text3.Text)+Val(Text2.Text) Then Label4.Caption = 正確 Else Label4.Caption = 錯(cuò)誤 End IfCase -“ If Text4.Text=Val(Text2.Text)-Val(Text3.Text) Then Label4

9、.Caption = 正確 Else Label4.Caption = 錯(cuò)誤 End IfCase * If Text4.Text=Val(Text2.Text)*Val(Text3.Text) Then Label4.Caption = 正確 Else Label4.Caption = 錯(cuò)誤 End IfCase / If Text4.Text=Val(Text2.Text)/Val(Text3.Text) Then Label4.Caption = 正確 Else Label4.Caption = 錯(cuò)誤 End If Case Else a=MsgBox(運(yùn)算類型錯(cuò)，請(qǐng)重輸, , 警告) Text1.SetFocus Text1.SelStart