1、1CHAPTER 7流程圖與選擇結構流程圖與選擇結構 234開始結束5 a=b+c輸入n輸出n67【例7】89101112131415161718192021221.輸入2.按此鈕3.輸入1.輸入2.按此鈕2324251.輸入2.按此鈕26272829【例1】 根據(jù)分數(shù)（s），印出及格或不及格 If s=60 Then Print 及格 Else Print 不及格3031IF條件式1 Then ： IF 條件式2 Then 敘述區(qū)段 A Else 敘述區(qū)段 B End If：Else ： IF 條件式3 Then 敘述區(qū)段 C Else 敘述區(qū)段 D End If ：End If323334

2、IF 條件式條件式1 Then 敘述區(qū)段敘述區(qū)段 1ElseIf 條件式條件式m Then 敘述區(qū)段敘述區(qū)段m ： ： Else 敘述區(qū)段敘述區(qū)段n End If 格式三格式三:最後用Else，安排上述條件都不符合時要執(zhí)行的工作35 【 例5】 將例4改用格式三If score60 Then Print 不及格 Print 請多用功！ElseIf score90 Then Print 及格 Print 恭喜！Else Print 優(yōu)等 Print 發(fā)獎狀一張！End If36 【例6】判斷輸入的字元是大寫字母、小寫字母、數(shù)字或都不是3738Select Case 運算式運算式 Case 測試資

3、料測試資料1 敘述區(qū)段敘述區(qū)段1 Case 測試資料測試資料2 敘述區(qū)段敘述區(qū)段2 Case 測試資料測試資料n 敘述區(qū)段敘述區(qū)段n CaseElse 敘述區(qū)段敘述區(qū)段End Select 7-7 Select Case敘述3940414243444546474849表7-2 MsgBox函數(shù)傳回值與按下的命令鈕對照表傳回值對應的常數(shù)變數(shù)按下的命令鈕1vbOK 確定 2VbCancel 取消 3VbAbort異常終止(A)4VbRetry重試(R)5VbIgnore略過(I)6VbYes是(Y)7VbNo否(N)50使用代碼使用常數(shù)變數(shù)作用35 (=3+32+0+0)vbYesNoCancel

4、+vbQuestion顯示是(Y)、否(N)與取消三個命令鈕及 圖示，並設定第一個按鈕是(Y)為預設按鈕273 (=1+16+256+0)vbOKCancel+vbCritical +vbDefaultButton2顯示確定與取消兩個命令鈕及 圖示，並設定第二個按鈕取消為預設按鈕格式碼的用法5152第一次執(zhí)行：第二次執(zhí)行 1.輸入2.按此鈕3.按此鈕1.輸入3.按此鈕4.按此鈕2.按此鈕537-11 應用實例【實例一】假設某出版社圖書售價依採購數(shù)量而分成下面三種 情況： 19本照定價出售 1049本照定價打九折 50本以上照定價打八折 設計程式輸入採購數(shù)量及定價，再計算並輸出其總金額。54物件

5、預設名稱NameCaptionTextFontSizeForm1（預設）計算購書價款(預設)Label1（預設）購書數(shù)量:12Label2（預設）定 價:12Label3（預設）總價款:12Label4lblResult（空白）12Text1txtQty(空白)12Text2txtPrice(空白)12Command1cmdCalculate計算12Command2cmdEnd結束1255【程式碼】儲存資料夾：7-11#101 Private Sub cmdCalculate_Click()02 Dim qty As Integer, price As Integer, money As In

6、teger03 price = Val(txtPrice) : qty = Val(txtQty)04 If qty = 10 And qty = 50 Then money = price * qty * 0.807 lblResult = money 08 End Sub 09 Private Sub cmdEnd_Click()10 End11 End Sub5657【執(zhí)行實例】585960【程式碼】儲存資料夾：7-11#21 Private Sub cmdConvert_Click()2 Dim score As Single 設定score為單精數(shù)變數(shù)3 score = Val(txtScore) 將輸入文字方塊的資料轉(zhuǎn)成數(shù)值4 Select Case score5 Case Is = 806 lblResult = A7 Case Is = 708 lblResult = B9 Case Is = 6010 lblResult = C11 C