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