【正文】 如上圖 中國(guó)最大的資料庫(kù)下載 語(yǔ)句格式 While 循環(huán)體 Wend 功能：當(dāng)條件成立 (為真 )時(shí)，執(zhí)行循環(huán)體；當(dāng)條件不成立 (為假 )時(shí)，終止循環(huán)。兩者區(qū)別在于判斷條件的先后次序不同 Do...Loop循環(huán)語(yǔ)句 中國(guó)最大的資料庫(kù)下載 格式： 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) 中國(guó)最大的資料庫(kù)下載 采用 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 開(kāi)始先讓 x初值為 1，以后逐次加 1，求 x為何值時(shí)，條件 3x+y/3=100成立。交替改變加、減號(hào) Next c Print π=。 s End Sub s＝ 36 語(yǔ)句 s＝ s+k(循環(huán)體語(yǔ)句 )的執(zhí)行過(guò)程 例 求 S = 1 + 2 + 3 + … + 8 中國(guó)最大的資料庫(kù)下載 采用 Print直接在窗體上輸出結(jié)果，程序代碼： Private Sub Form_Load() Show t = 1 For c = 1 To 8 t = t * c Next c Print T=。例如，統(tǒng)計(jì)一個(gè)班幾十名學(xué)生，甚至全校幾千名學(xué)生的學(xué)期成績(jī)，如求平均分、不及格人數(shù)等 本章主要內(nèi)容 For...Next / Do...Loop / While...Wend 循環(huán)出口語(yǔ)句 (Exit) 程序舉例 第 5章 循環(huán)結(jié)構(gòu)設(shè)計(jì) 中國(guó)最大的資料庫(kù)下載 循環(huán) 是指在指定的條件下多次重復(fù)執(zhí)行一組語(yǔ)句。被重復(fù)執(zhí)行的一組語(yǔ)句稱(chēng)為 循環(huán)體 VB提供的循環(huán)語(yǔ)句有 Do...Loop For...Next While...Wend For Each...Next 最常用的是 For...Next和 Do...Loop語(yǔ)句 中國(guó)最大的資料庫(kù)下載 For...Next循環(huán)語(yǔ)句 按指定次數(shù)執(zhí)行循環(huán)體 例 在窗體上顯示 2至 10 采用 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 中國(guó)最大的資料庫(kù)下載 說(shuō)明： 上述程序，循環(huán)變量 k的初值、終值和步長(zhǎng)值分別為 2， 10和 2，即從 2開(kāi)始，每次加 2，到 10為止，控制循環(huán) 5次。 t End Sub T＝ 40320 語(yǔ)句 t=t*c也稱(chēng)乘法器。 pi * 4 End Sub 程序運(yùn)行結(jié)果是： π＝ 例 用 π/4＝ 1 1/3 + 1/5 1/7 + …… 級(jí)數(shù)求 π的近似值 (取前 5000項(xiàng)來(lái)進(jìn)行計(jì)算 ) 中國(guó)最大的資料庫(kù)下載 下面采用“ 窮舉法 ”來(lái)解此題。如果當(dāng) x達(dá)到 30時(shí)還不能使條件成立，則可以斷定此題無(wú)解 例 用 100 元買(mǎi) 100 只雞，母雞 3元 1只，小雞 1元 3只，問(wèn)各應(yīng)買(mǎi)多少只 ? 中國(guó)最大的資料庫(kù)下載 采用 Print直接在窗體上輸出結(jié)果，程序代碼： Private Sub Form_Load() Dim x As Integer, y As Integer Show For x = 1 To 30 y = 100 x If 3 * x + y / 3 = 100 Then Print 母雞只數(shù)為 :。 s End Sub 程序運(yùn)行結(jié)果： S＝ 338350 例 求 S＝ 12 + 22 + … + 1002 中國(guó)最大的資料庫(kù)下載 采用 Print直接在窗體上輸出結(jié)果，程序代碼： Private Sub Form_Load() Show Dim pi As Single, n As Long, s As Integer pi = 0 : n = 1 : s = 1 Do While n = 100000 39。 本語(yǔ)句與上述 Do While...Loop循環(huán)語(yǔ)句相似 While...Wend循環(huán)語(yǔ)句 中國(guó)最大的資料庫(kù)下載 用于提前退出循環(huán) 格式： Exit {For|Do} 功能：直接從 For循環(huán)或 Do循環(huán)中退出 當(dāng)程序運(yùn)行時(shí)遇到 Exit語(yǔ)句時(shí)，就不再執(zhí)行循環(huán)體中的任何語(yǔ)句而直接退出，轉(zhuǎn)到循環(huán)語(yǔ)句 (Next、Loop)的下面繼續(xù)執(zhí)行 中國(guó)最大的資料庫(kù)下載 例 Do p = m Mod n If p=0 Then Exit Do End If m = n n = p Loop While p 0 = n 中國(guó)最大的資料庫(kù)下載 把每次輸入的