VisualBasic循環(huán)結構程序設計

1、 計算機軟件技術基礎計算機軟件技術基礎 計算機軟件技術基礎Visual BasicVisual Basic程序設計程序設計 計算機軟件技術基礎計算機軟件技術基礎 選擇結構程序設計選擇結構程序設計：IfThen 語句（單分支結構）語句（單分支結構）If.ThenElse 語句（雙分支結構）語句（雙分支結構）IfThen Else If 語句（多分支結構）結構語句（多分支結構）結構Select Case 語句（多分支結構）語句（多分支結構）回回 顧顧 計算機軟件技術基礎計算機軟件技術基礎 IfThen Else If 語句（多分支結構）結構語句（多分支結構）結構 語句格式：語句格式：If If 表

2、達式表達式1 1 Then Then 語句塊語句塊1 1 ElseIf ElseIf 表達式表達式2 2ThenThen 語句塊語句塊2 2 Else Else 語句塊語句塊 n+1n+1 End If End If FTTT表達式表達式1表達式表達式2表達式表達式nn語句塊語句塊11語句塊語句塊2語句塊語句塊nn語句塊語句塊n+11F圖圖 多分支結構多分支結構 計算機軟件技術基礎計算機軟件技術基礎 Select Case語句（多分支結構）語句（多分支結構） FTFF表達式表表達式表n語句塊語句塊n+1語句塊語句塊nT表達式表表達式表2語句塊語句塊2T表達式表表達式表1語句塊語句塊1圖圖 Se

3、lect Case Select Case 結構結構格式：格式：Select Case Select Case 測試變量或表達式測試變量或表達式 Case Case 表達式表表達式表1 1 語句塊語句塊11 Case Case 表達式表表達式表2 2 語句塊語句塊22 Case Case 表達式表表達式表n n 語句塊語句塊nn Case Else Case Else 語句塊語句塊n+1n+1 End Select End Select 計算機軟件技術基礎計算機軟件技術基礎 表達式表有四種形式：表達式表有四種形式： 一個表達式。一個表達式。如：如：Case 6一組用逗號隔開的枚舉值。一組用逗號

4、隔開的枚舉值。如：如： Case 1，3，5，7表達式表達式1 TO 表達式表達式2。如：如： Case 1 To 10Is 。如：如：Case Is=80 另外，在一個情況語句中，另外，在一個情況語句中，上述四種形式可以混合使用。上述四種形式可以混合使用。格式：格式：Select Case 測試變量或表達式測試變量或表達式 Case 表達式表表達式表1 語句塊語句塊1 Case 表達式表表達式表2 語句塊語句塊2 Case 表達式表表達式表n 語句塊語句塊n Case Else 語句塊語句塊n+1End Select 計算機軟件技術基礎計算機軟件技術基礎 3. 3 循環(huán)結構程序設計循環(huán)結構程

5、序設計在指定的條件下多次重復執(zhí)行一組語句。在指定的條件下多次重復執(zhí)行一組語句。VBVB中提供了兩種類型的循環(huán)語句：中提供了兩種類型的循環(huán)語句： 計數(shù)循環(huán)語句；計數(shù)循環(huán)語句； 條件循環(huán)語句。條件循環(huán)語句。 計算機軟件技術基礎計算機軟件技術基礎 1. Do.Loop循環(huán)循環(huán)DoLoopDoLoop循環(huán)用于事先不知道循環(huán)次數(shù)的循環(huán)結構。循環(huán)用于事先不知道循環(huán)次數(shù)的循環(huán)結構。此種語句四種語法格式：此種語句四種語法格式： Do While Loop 語句語句 Do Loop While 語句語句 Do Until Loop 語句語句 Do Loop Until 語句語句 計算機軟件技術基礎計算機軟件技術

6、基礎 格式：格式：Do While Do While 條件表達式條件表達式 循環(huán)體循環(huán)體 Loop Loop . Do While Loop語句語句TF條件條件循環(huán)體循環(huán)體圖圖 Do While Loop語句流程圖語句流程圖說明：說明： 條件表達式可以是一個邏輯表達式，也可以是一個關系表達條件表達式可以是一個邏輯表達式，也可以是一個關系表達式，其值應是邏輯型。式，其值應是邏輯型。 Do While Do While和和LoopLoop應成對出現(xiàn)。應成對出現(xiàn)。 循環(huán)體中要有控制循環(huán)的語句，以避免出現(xiàn)死循環(huán)。循環(huán)體中要有控制循環(huán)的語句，以避免出現(xiàn)死循環(huán)。 這種循環(huán)可以一次也不執(zhí)行循環(huán)體。這種循環(huán)可

7、以一次也不執(zhí)行循環(huán)體。 計算機軟件技術基礎計算機軟件技術基礎 例例 打印打印1到到20的整數(shù)。的整數(shù)。格式：格式：Do While Do While 條件表達式條件表達式 循環(huán)體循環(huán)體 Loop Loop Private Sub Form_Click() Dim i As Integer i = 1 Do While i = 20 Print i i = i + 1 LoopEnd Sub 計算機軟件技術基礎計算機軟件技術基礎 TF條件條件循環(huán)體循環(huán)體圖圖 DoLoop WhileDoLoop While語句流程圖語句流程圖格式：格式： Do Do 循環(huán)體循環(huán)體 Loop WhileLoop

8、While條件表達式條件表達式 . Do Loop While語句語句說明：說明： 至少要執(zhí)行循環(huán)體一次。至少要執(zhí)行循環(huán)體一次。 與與Do WhileDo While循環(huán)的區(qū)別：循環(huán)的區(qū)別： Do WhileDo While循環(huán)先測試條件是否成立，只有成立才執(zhí)行循環(huán)；循環(huán)先測試條件是否成立，只有成立才執(zhí)行循環(huán)；而該循環(huán)先執(zhí)行循環(huán)體，后測試條件是否成立。而該循環(huán)先執(zhí)行循環(huán)體，后測試條件是否成立。 計算機軟件技術基礎計算機軟件技術基礎 Private Sub Form_Click() Dim i As Integer i = 1 Do Print i i = i + 1 Loop While i

9、20 Print i i = i + 1 LoopEnd Sub 計算機軟件技術基礎計算機軟件技術基礎 Private Sub Form_Click() Dim i As Integer i = 1 Do Print i i = i + 1 Loop Until i 20End Sub . Do Loop Until語句語句格式：格式：Do Do 循環(huán)體循環(huán)體 Loop UntilLoop Until條件表達式條件表達式TF條件條件循環(huán)體循環(huán)體圖圖 Do Loop UntilDo Loop Until語句流程圖語句流程圖打印打印1到到20的整數(shù)。的整數(shù)。 計算機軟件技術基礎計算機軟件技術基礎

10、例例 DoLoop循環(huán)編程計算下式的值循環(huán)編程計算下式的值( (兩種方法當型和直到型兩種方法當型和直到型) )。 10012111X方法一、方法一、用用當型循環(huán)當型循環(huán)實現(xiàn)，程序如下：實現(xiàn)，程序如下：Private Sub Form_Click()s = 0: i = 1Do While i 100 s = s + 1 / i i = i + 1LoopPrint s=; sEnd Sub 計算機軟件技術基礎計算機軟件技術基礎 方法二、用直到型循環(huán)實現(xiàn)： Private Sub Form_Click()s = 0: i = 1Dos = s + 1 / ii = i + 1Loop Until

11、 i 100 也可寫為也可寫為Loop While i = 100Print s=; sEnd Sub 計算機軟件技術基礎計算機軟件技術基礎 2. For Next循環(huán)循環(huán)循環(huán)體循環(huán)體Exit For循環(huán)體循環(huán)體循環(huán)變量增加步長循環(huán)變量增加步長循環(huán)變量獲得初值循環(huán)變量獲得初值FT循環(huán)變量在終值內(nèi)循環(huán)變量在終值內(nèi)圖圖 ForFor循環(huán)的執(zhí)行過程循環(huán)的執(zhí)行過程格式：格式：For For 循環(huán)變量循環(huán)變量 = = 初值初值 To To 終值終值 Step Step 步長步長 Next Next 循環(huán)變量循環(huán)變量 計算機軟件技術基礎計算機軟件技術基礎 For For 循環(huán)變量循環(huán)變量 = = 初值初值

12、 To To 終值終值 Step Step 步長步長 Next Next 循環(huán)變量循環(huán)變量 For i = m To n Step x s = s * i Print sNext im = 1: n = 10: s = 1: x = 2 計算機軟件技術基礎計算機軟件技術基礎 說明：說明： 格式中的參數(shù)說明：格式中的參數(shù)說明： 循環(huán)變量必須為數(shù)值型。循環(huán)變量必須為數(shù)值型。 循環(huán)的初值、終值和步長都是數(shù)循環(huán)的初值、終值和步長都是數(shù)值表達式，其值不一定是整數(shù)，可值表達式，其值不一定是整數(shù)，可以是實數(shù)，以是實數(shù)，VB自動取整。自動取整。增量參數(shù)可正可負。增量參數(shù)可正可負。如果增量為正，則初值必須小于等

13、如果增量為正，則初值必須小于等于終值于終值如果增量為負，則初值必須大于等如果增量為負，則初值必須大于等于終值。于終值。如果沒有設置如果沒有設置step，則增量默認為，則增量默認為1。m = 1: n = 10: s = 1For i = m To n Step 2 s = s * i Print sNext i 計算機軟件技術基礎計算機軟件技術基礎 在在For語句和語句和Next語句之間語句之間的語句序列稱為的語句序列稱為循環(huán)體循環(huán)體，可，可以是一個或多個語句。以是一個或多個語句。 Next是循環(huán)終端語句，在是循環(huán)終端語句，在Next后面的循環(huán)變量與后面的循環(huán)變量與For中的循環(huán)變量必須相同。

14、中的循環(huán)變量必須相同。 當循環(huán)是單層循環(huán)時，當循環(huán)是單層循環(huán)時，Next后面的循環(huán)變量可以后面的循環(huán)變量可以不寫。不寫。m = 1: n = 10: s = 1For i = m To n Step 2 s = s * i Print sNext i 計算機軟件技術基礎計算機軟件技術基礎 ForFor循環(huán)語句的執(zhí)行過程循環(huán)語句的執(zhí)行過程1)1)把初值賦給循環(huán)變量把初值賦給循環(huán)變量2)2)檢查循環(huán)變量的值是否超過終值檢查循環(huán)變量的值是否超過終值3)3)如果超過就不執(zhí)行循環(huán)體，跳出如果超過就不執(zhí)行循環(huán)體，跳出循環(huán)，執(zhí)行循環(huán)，執(zhí)行NextNext后面的語句后面的語句4)4)否則執(zhí)行一次循環(huán)體，然后把

15、循否則執(zhí)行一次循環(huán)體，然后把循環(huán)變量增加步長，再賦給循環(huán)變量環(huán)變量增加步長，再賦給循環(huán)變量重復上述過程。重復上述過程。m = 1: n = 10: s = 1For i = m To n Step 2 s = s * i Print sNext i 計算機軟件技術基礎計算機軟件技術基礎 當初值等于終值時，不管當初值等于終值時，不管步長是正數(shù)還是負數(shù)，都執(zhí)步長是正數(shù)還是負數(shù)，都執(zhí)行一次循環(huán)體。行一次循環(huán)體。m = 1: n = 10: s = 1For i = m To n Step 2 s = s * i Print sNext i 循環(huán)次數(shù)由初值、終值和步長決定，計算公式為：循環(huán)次數(shù)由初值、

16、終值和步長決定，計算公式為：循環(huán)次數(shù)循環(huán)次數(shù)=INT（終值（終值 初值）初值）/步長步長+1） 計算機軟件技術基礎計算機軟件技術基礎 For語句和語句和Next語句必須成對出現(xiàn)，不能單獨使用。語句必須成對出現(xiàn)，不能單獨使用。在循環(huán)體中可以使用循環(huán)變量，但一般不再對循環(huán)在循環(huán)體中可以使用循環(huán)變量，但一般不再對循環(huán)變量賦值。變量賦值。 ForFor 循環(huán)變量循環(huán)變量 = = 初值初值 To To 終值終值 Step Step 步長步長 NextNext 循環(huán)變量循環(huán)變量 計算機軟件技術基礎計算機軟件技術基礎 例例 3.18 求求N的階乘的階乘 N!=1*2*3*(N-1)*NPrivate Sub

17、 Form_Click() Dim s As Single Dim n As Integer s = 1 n = Val(InputBox(輸入自然數(shù)n) If n 34 Then Exit Sub End If For i = 1 To n s = s * i Print s Next i Print n=; n, s=; sEnd Sub 計算機軟件技術基礎計算機軟件技術基礎 3、循環(huán)的強制退出 Exit For Exit Do 常和If、Select Case配合使用，使循環(huán)中的程序不再繼續(xù)進行 計算機軟件技術基礎計算機軟件技術基礎 3-19 求從1001000之間所有3的倍數(shù)的數(shù)之和，

18、當和大于3000時，停止計算并輸出和。Private Sub Command1_Click() Dim i As Integer Dim sum As Integer sum = 0 i = 100 Do While i 3000 Then Exit Do End If End If i = i + 1 Loop Print i, sumEnd Sub 計算機軟件技術基礎計算機軟件技術基礎 4、WhileWend循環(huán)格式：格式：While Wend例例 打印打印1到到20的整數(shù)的整數(shù)功能：和功能：和Do While循環(huán)循環(huán)的功能完全相同的功能完全相同Private Sub Form_Click

19、() Dim I As Integer I = 1 While I = 20 Print I I = I + 1 WendEnd Sub 計算機軟件技術基礎計算機軟件技術基礎 允許將一個循環(huán)語句完整地放到另一個循環(huán)語句中，形成循環(huán)的嵌套或多層嵌套。被包含的循環(huán)稱為內(nèi)循環(huán)，包含循環(huán)的循環(huán)稱為外循環(huán)。如果嵌套層數(shù)較多，也可以從外到內(nèi)依次稱之為第一層循環(huán)，第二層循環(huán)，。Visual Basic循環(huán)嵌套的層數(shù)沒有限制注意:外循環(huán)必須完全包含內(nèi)循環(huán)，不得交叉。 For i=1 To 9 For j=1 to 9 Next i Next j 5.循環(huán)的嵌套多重循環(huán)結構 計算機軟件技術基礎計算機軟件技術基礎

20、 (2)(2) 循環(huán)語句的開始關鍵字和終端關鍵字必須成對出現(xiàn)ForNext語句，內(nèi)外層循環(huán)有相同終點時，允許共用一個關鍵字Next，各層中的循環(huán)控制變量不能省略，內(nèi)層在前，外層在后For i=1 To 9 For j=1 to 9 N e x t jNext i For i=1 To 9For j=1 to 9 Next j,i可以寫成可以寫成 計算機軟件技術基礎計算機軟件技術基礎 ForNext循環(huán)語句構成的嵌套來說，各層的循環(huán)變量名(成員名)不能相同。For i=1 To 9 For j=1 to 9 Next j Next i (4)為了便于閱讀和維護，編程時每層循環(huán)建議采用縮排方式書寫

21、。 計算機軟件技術基礎計算機軟件技術基礎 3.21 百元買百雞問題百元買百雞問題Private Sub Form_click() Cls Rem 百元買百雞問題 Print 公雞, 母雞, 小雞 For x = 0 To 20 For y = 0 To 33 z = 100 - x - y If 5 * x + 3 * y + z / 3 = 100 Then Print x, y, z End If Next y, xEnd Sub100元錢買元錢買100只雞只雞公雞公雞5元一只元一只母雞母雞3元一只元一只小雞小雞1元三只元三只 計算機軟件技術基礎計算機軟件技術基礎 循環(huán)結構程序設計循環(huán)結構

22、程序設計 VB中提供了兩種類型的循環(huán)語句：中提供了兩種類型的循環(huán)語句： 計數(shù)循環(huán)語句；計數(shù)循環(huán)語句； 條件循環(huán)語句。條件循環(huán)語句。 要求掌握的循環(huán)結構：要求掌握的循環(huán)結構： DoLoop For.Next DoLoop語句有四種語法格式：語句有四種語法格式： Do While Loop 語句語句 Do Loop While 語句語句 Do Until Loop 語句語句 Do Loop Until 語句語句小小 結結 計算機軟件技術基礎計算機軟件技術基礎 For 循環(huán)變量循環(huán)變量 = 初值初值 To 終值終值 Step 步長步長 Next 循環(huán)變量循環(huán)變量小小 結結循環(huán)次數(shù)計算公式為：循環(huán)次數(shù)

23、計算公式為：循環(huán)次數(shù)循環(huán)次數(shù)=INT（終值（終值 初值）初值）/步長步長+1） 計算機軟件技術基礎計算機軟件技術基礎 習 題 計算機軟件技術基礎計算機軟件技術基礎 3-23 用下面公式計算的近似值，直到最后一項的絕對值小于10-6為止.71513114 計算機軟件技術基礎計算機軟件技術基礎 Private Sub Form_Click()Dim s As IntegerDim n As Single, t As Single, pi As Singlen = 1pi = 0s = 1t = 1Do While Abs(t) = 0.000001 pi = pi + t n = n + 2 s = -s t = s / nLooppi = pi * 4Print pi=; piEnd Sub.71513114 計算機軟件技術基礎計算機軟件技術基礎 5-2 編程求ex的近似值展開式。要求最后一項的值小于等于0.000001為止。kxkxkxkk)!1(!1!.! 3! 2! 1132nxxxxenx 計算機軟件技術基礎計算機軟件技術基礎 Private Sub Form_Click() Dim x As Single, y As Single, f1 As Single Dim f2 As Single, k As In