【正文】 Loop Print s s=0 : k=1 do s=s+k k=k+1 Loop While k=8 Print s三種循環(huán)語句比較 示例：求和 s = 1 + 2 + 3 + … + 8后測型 “輾轉相除法 ”算法： 求出 m/n余數(shù) p，若 p＝ 0， n即為最大公約數(shù)；若 p非 0，則把原來的分母 n作為新的分子 m，把余數(shù) p作為新的分母 n繼續(xù)求解 ? 設計步驟如下： ? (1)創(chuàng)建應用程序的用戶界面和設置對象屬性 例 輸入兩個正整數(shù)，求它們的最大公約數(shù) ? 編寫的 “計算 ”按鈕 Click事件過程代碼如下： Private Sub Command1_Click() Dim m As Integer, n As Integer, p As Integer m = Val() : n = Val() If m = 0 Or n = 0 Then MsgBox (數(shù)據(jù)錯誤 !) End End If Do p = m Mod n m = n n = p Loop While p 0 = m End Sub 若輸入的 m和 n的值為 85和 68，則運行結果如上圖 語句格式 While 條件 ? 循環(huán)體 Wend ?? 功能：當條件成立 (為真 )時，執(zhí)行循環(huán)體；當條件不成立 (為假 )時，終止循環(huán)。兩者區(qū)別在于判斷條件的先后次序不同 Do...Loop循環(huán)語句 格式： Do [{While|Until } 條件 ] 循環(huán)體 Loop? Do While...Loop 語句的功能： 當條件成立 (為真 )時，執(zhí)行循環(huán)體；當條件不成立 (為假時 )，終止循環(huán)? Do Until...Loop(直到型循環(huán) )語句的功能： 當條件不成立 (為假 )時，執(zhí)行循環(huán)體，直到條件成立 (為真 )時，終止循環(huán) 1. 前測型 Do...Loop循環(huán) ? 采用 Do While...Loop 語句 采用 Print直接在窗體上輸出結果，程序代碼： Private Sub Form_Load() Dim n As Integer, s As Long Show n = 1: s = 0 Do While n = 100 s = s + n * n n = n + 1 Loop Print s=。 令母雞為 x只，小雞為 y只，根據(jù)題意可知 y = 100 – x 開始先讓 x初值為 1，以后逐次加 1，求 x為何值時，條件 3x+y/3=100成立。交替改變加、減號 Next c Print π=。 t End Sub 程序運行結果是： ? T＝ 40320?語句 t=t*c也稱乘法器。被重復執(zhí)行的一組語句稱為 循環(huán)體 VB提供的循環(huán)語句有 Do...Loop For...Next While...Wend For Each...Next 最常用的是 For...Next和 Do...Loop語句 For...Next循環(huán)語句 按指定次數(shù)執(zhí)行循環(huán)體 例 在窗體上顯示 2至 10各偶數(shù)的平方數(shù) ? 采用 Print直接在窗體上輸出結果，程序代碼： Private Sub Form_Load() Dim k As Integer Show For k = 2 To 10 Step 2 Print k * k Next k End Sub 循環(huán)語句程序運行結果： 4 16 36 64 100 說明： 上述程序，循環(huán)變量 k的初值、終值和步長值分別為 2， 10和 2，即從 2開始，每次加 2，到 10為止，控制循環(huán) 5次。例如，統(tǒng)計一個班幾十名學生，甚至全校幾千名學生的學期成績，如求平均分、不及格人數(shù)等 本章主要內容 循環(huán)語句 ?? For...Next / Do...Loop / While...Wend ? 循環(huán)出口語句 (Exit)?? 多重循環(huán) ?? 列表框與組合框 ?? 程序舉例 第 5章 循環(huán)結構設計? 循環(huán) 是指在指定的條件下多次重復執(zhí)行一組語句。 s End Sub 程序運行結果如下： ? s＝ 36? 語句 s＝ s+k(循環(huán)體語句 )的執(zhí)行過程 例 求 S = 1 + 2 + 3 + … + 8 采用 Print直接在窗體上輸出結果，程序代碼： Private Sub Form_Load() Show t = 1 For c = 1 To 8 t = t * c Next c Print T=。s表示加或減運算 For c = 1 To 10000 Step 2 pi = pi + s / c s = s 39。直到條件滿足或判別出無解為止。 y End If Next x End Sub 運行結果： ? 母雞