【文章內(nèi)容簡介】 這三種基本結構。 47 VBA程序的流程控制結構 順序結構是簡單的一種結構，計算機按照語句的排列順序依次執(zhí)行每一條語句。 例 85 ： 計算雞兔同籠 分析 :h代表頭 , F代表腳 ,c代表雞 . R代表兔子 R+C=H ① 2C+4R=F ② 2① ② 得： R=（ F2H） /2 C=HR 48 VBA程序的流程控制結構 例 85 ：計算雞兔同籠 Private Sub Command8_Click() Dim h%, f%, c!, r! h = Text0 f = Text2 r = (f 2 * h) / 2 c = h r Text4 = c Text6 = r End Sub 49 VBA程序的流程控制結構 選擇結構可以根據(jù)條件表達式的值來選擇程序運行的分支語句，主要有以下一些結構： 選擇結構 格式 1： If 條件 Then 語句序列 格式 2： If 條件表達式 Then 語句序列 End If 當程序執(zhí)行到這種格式的 If語句時，如果條件表達式為真，將執(zhí)行 Then后面的語句序列，如果條件表達式為假，程序?qū)⑻^語句序列而直接執(zhí)行 End If后面的語句。 If語句 50 VBA程序的流程控制結構 If語句 例如 ： Sub Panduan() Dim x As Integer x = InputBox(請輸入 X的值 ) If x 0 Then MsgBox 這是一個正數(shù) End If End Sub 運行模塊時，當輸入的值大于零時，彈出消息框提示為“ 這是一個正數(shù) ” 。 選擇結構 51 VBA程序的流程控制結構 選擇結構 格式： If 條件 Then 語句序列 1 [ Else 語句序列 2 ] End If 執(zhí)行過程：判斷條件，如果為真，執(zhí)行語句序列 1；如果為假，執(zhí)行語句序列 2。 語句 選擇結構 52 VBA程序的流程控制結構 選擇結構 例 86 輸入一個成績，給出 “ 及格 ” 或 “ 不及格 ” 的信息提示。 選擇 “ 模塊 ” 對象，單擊 “ 新建按鈕 ” 。在代碼窗口輸入以下代碼。 Sub Cjmark() Dim cj As Integer cj = InputBox(請輸入成績 :) If cj = 60 Then MsgBox 及格 Else MsgBox 不及格 End If End Sub 語句 53 VBA程序的流程控制結構 選擇結構 例 87 完善雞兔同籠問題，當計算結果為負數(shù)或小數(shù)時，提醒用戶 “ 數(shù)據(jù)有誤 ” ，并重新輸入總頭數(shù)和總腳數(shù)。 54 VBA程序的流程控制結構 選擇結構 3． IfThenElseIf多分支 執(zhí)行過程：依次判斷條件，如果找到一個滿足的條件，則執(zhí)行其下面的語句序列，然后跳過 End If，執(zhí)行后面的程序。如果所列的條件都不滿足，則執(zhí)行 Else語句后面的語句序列；如果所列出的條件都不滿足，又沒有 Else子句，是直接跳過 End If，不執(zhí)行后面的任何語句塊。 If 條件 l Then 語句序列 1 ElseIf 條件 2 Then 語句序列 2 …… [Else 語句序列 n+1] End If 55 VBA程序的流程控制結構 選擇結構 例 88 編寫程序，將學生的百分制成績按要求轉換成相應的等次輸出。成績在 [90， 100]為 “ 優(yōu)秀 ” ；成績在 [80， 90)為 “ 良好 ” ；成績在 [70，80)為 “ 中等 ” ；成績在[60， 70)， 60分以下的為 “ 不及格 ” 3． IfThenElseIf多分支 56 VBA程序的流程控制結構 選擇結構 3． IfThenElseIf多分支 例 88: 57 VBA程序的流程控制結構 選擇結構 4． Select Case 語句 (情況語句 ) 執(zhí)行過程：首先計算變量或表達式的值，然后依次計算 Case子句中表達式的值，如果變量或表達式的值和某個 Case表達式的值吻合，則執(zhí)行相應的語句序列，然后執(zhí)行 End Select下面的語句。當前 Case表達式的值不滿足，則進行下一個 Case語句的判斷。如果都不滿足，有 Case Else部分則執(zhí)行語句序列n+1，否則執(zhí)行 End Select后面的語句。 58 VBA程序的流程控制結構 選擇結構 4． Select Case 語句 (情況語句 ) Select Case 變量或表達式 Case 表達式 1 語句組 1 Case 表達式 2 語句組 2 …… Case 表達式 n 語句組 n [Case Else 語句組 n+1] End Select 59 VBA程序的流程控制結構 選擇結構 4． Select Case 語句 (情況語句 ) Case表達式可以是下列 4種格式之一： ? 單一數(shù)值，如 Case 2。 ? 一行并列的數(shù)值，數(shù)值之間用逗號隔開，如 Case 5, 6,7 ? 用關鍵字 To分隔開兩個數(shù)值或表達式之間的范圍， 如 Case 1 to 10 ? 用關鍵字 Is連接關系運算符，如 =、 、 、 =、 、 =，后面跟變量或具體的值， Is=15。 Case語句是依次測試的，并執(zhí)行第一個符合 Case條件的相關的程序代碼，即使再有其他符合條件的分支也不會再執(zhí)行。如果沒有找到符合條件的，并且有 Case Else語句，就會執(zhí)行該語句后面的程序代碼。 60 VBA程序的流程控制結構 選擇結構 4． Select Case 語句 (情況語句 ) 例 89 將例 88的程序代碼用 Select Case情況語句完成 61 VBA程序的流程控制結構 選擇結構 IIf（ 條件表達式 ， 表達式 1， 表達式 2） IIf函數(shù)首先要計算 “ 條件表達式 ” ，當 “ 條件表達式 ” 的值為 “ 真 ” 時，則 IIf函數(shù)返回 表達式 1的值；否則，返回 表達式 2的值。 例如，求 x,y中大的數(shù)，將其存入 MaxNum變量中，可以使用如下語句： MaxNum = IIf(x y, x, y) 5． IIf( ) 函數(shù) 62 在程序設計中，可以使用循環(huán)語句在滿足條件的前提下重復執(zhí)行一行或幾行程序代碼。 在 VBA中，循環(huán)語句有 3種： For… Next Do… Loop While… Wend VBA的程序結構 循環(huán)語句 63 功能：能夠重復執(zhí)行程序代碼區(qū)域特定次數(shù)。 格式： For 循環(huán)變量 =初值 To 終值 [Step步長 ] 循環(huán)體 [條件語句序列 Exit For 結束條件語句序列 ] Next [循環(huán)變量 ] VBA的程序結構 1． For… Next語句 循環(huán)語句 64 For語句的執(zhí)行步驟如下： （ 1）循環(huán)變量取初值。 （ 2）循環(huán)變量與終值比較，確定循環(huán)是否進行 . （ 3）執(zhí)行循環(huán)體。 （ 4）循環(huán)變量值增加步長，即循環(huán)變量 =循環(huán)變量 +步長，程序跳轉至（ 2）。 VBA的程序結構 1． For… Next語句 循環(huán)語句 例 810： 使用 For… Next語句計算1～ 100之間數(shù)的和。 Private Sub Command1_Click() Dim i%, sum% For i = l To 100 sum = sum + i Next i = sum End Sub 思考： 如何計算2+4+….+100 1+1/21/3+1/4+…. 65 VBA的程序結構 1． For… Next語句 循環(huán)語句 例：輸出 110的數(shù) For i = 1 To 10 s = s amp。 amp。 i Next Text0=s 例：輸出 101的數(shù) For i = 10 To 1 step 1 s = s amp。 amp。 i Next Text0=s 思考： 換成 s=i amp。 s ,程序結果如何？ 66 VBA的程序結構 1． For… Next語句 循環(huán)語句 例：輸入任意 10個數(shù)，求其最大數(shù) Private Sub Command4_Click() Dim x!, max! x = InputBox(第 1個數(shù) ) Text0 = x: max=x For i = 2 To 4 x = InputBox(第 amp。 i amp。 個數(shù) ) Text0 = Text0 amp。 amp。 x If x max Then max = x End If Next i = 最大數(shù)為： amp。 max End Sub 思考：如何求最大數(shù)的位置？ 67 （ 1） Do While… Loop 功