表格模板-流程图与选择结构 精品.ppt

《表格模板-流程图与选择结构 精品.ppt》由会员分享，可在线阅读，更多相关《表格模板-流程图与选择结构 精品.ppt（61页珍藏版）》请在第一文库网上搜索。

1、CHAPTER 7流程圖與選擇結構流程圖與選擇結構 讓讀者了解1.利用電腦處理問題的步驟利用電腦處理問題的步驟2.流程圖的意義與用法流程圖的意義與用法3.程式的基本結構有那些？程式的基本結構有那些？4.選擇結構有那些相關的敘述與函數？選擇結構有那些相關的敘述與函數？5.If-Then敘述的功能與用法敘述的功能與用法6.If-Then-Else敘述的功能與用法敘述的功能與用法7.巢式巢式If敘述的用法敘述的用法8.Select敘述的功能與用法敘述的功能與用法9.IIf、Choose與與Switch函數的功能與用法函數的功能與用法10.MsgBox敘述與函數的功能與用法敘述與函數的功能與用法訊息方

2、塊的產生與運用訊息方塊的產生與運用7-1 利用電腦處理問題的步驟一、一、瞭解問題瞭解問題：先瞭解問題的要求及條件，確定需要 輸入的資料及輸出的結果。二、二、設計解題程序設計解題程序：研究分析解題方法，構思有效可行的處理程序，可以用流程圖(Flow Chart) 來表達所要處理的步驟。三、三、編寫程式編寫程式：依程式語言的語法規則，將解題的程序轉寫成程式。四、四、上機執行上機執行：將程式自鍵盤輸入電腦執行。五、五、檢查結果檢查結果：檢查輸出結果是否正確，如果不正確，再將錯誤的原因找出來，並加以更正。7-2 流程圖的意義開始結束 a=b+c輸入n輸出n【例7】7-3 程式的基本結構程式的基本結構1

3、.輸入2.按此鈕3.輸入1.輸入2.按此鈕1.輸入2.按此鈕【例1】 根據分數（s），印出及格或不及格 If s=60 Then Print 及格 Else Print 不及格IF條件式1 Then ： IF 條件式2 Then 敘述區段 A Else 敘述區段 B End If：Else ： IF 條件式3 Then 敘述區段 C Else 敘述區段 D End If ：End IfIF 條件式條件式1 Then 敘述區段敘述區段 1ElseIf 條件式條件式m Then 敘述區段敘述區段m ： ： Else 敘述區段敘述區段n End If 格式三格式三:最後用Else，安排上述條件都不符

4、合時要執行的工作 【 例5】 將例4改用格式三If score60 Then Print 不及格 Print 請多用功！ElseIf score90 Then Print 及格 Print 恭喜！Else Print 優等 Print 發獎狀一張！End If 【例6】判斷輸入的字元是大寫字母、小寫字母、數字或都不是7-6 IIf函數格式格式： IIf(條件式條件式,資料資料1,資料資料2) 1. 如果條件式成立（結果為True），就傳回資料1，不成立（結果為 False）則傳回資料2。 2. 資料1與資料2都可配用數值、字串或運算式。Select Case 運算式運算式 Case 測試資料測

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

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

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

8、xtPrice) : 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 Sub【執行實例】 【程式碼】儲存資料夾：7-11#21 Private Sub cmdConvert_Click()2 Dim score As Single 設定score為單精數變數3 score = Val(txtScore) 將輸入文字方塊的資料轉成數值4 Select Case score5 Case Is = 806 lblResult = A7 Case Is = 708 lblResult = B9 Case Is = 6010 lblResult = C11 Case Else12 lblResult = D13 End Select14 End Sub 15 Private Sub cmdEnd_Click()16 End17 End Sub【執行實例】