【正文】 vate 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ùn)行結(jié)果： 4 16 36 64 100 中國最大的資料庫下載 說明： 上述程序，循環(huán)變量 k的初值、終值和步長值分別為 2， 10和 2，即從 2開始，每次加 2，到 10為止，控制循環(huán) 5次。 中國最大的資料庫下載 中國最大的資料庫下載 采用循環(huán)程序可以解決一些按一定規(guī)則重復(fù)執(zhí)行的問題。例如，統(tǒng)計(jì)一個(gè)班幾十名學(xué)生，甚至全校幾千名學(xué)生的學(xué)期成績，如求平均分、不及格人數(shù)等 本章主要內(nèi)容 For...Next / Do...Loop / While...Wend 循環(huán)出口語句 (Exit) 程序舉例 第 5章 循環(huán)結(jié)構(gòu)設(shè)計(jì) 中國最大的資料庫下載 循環(huán) 是指在指定的條件下多次重復(fù)執(zhí)行一組語句。每次循環(huán)都將循環(huán)體 (Print k*k)執(zhí)行一次 格式： For 循環(huán)變量＝初值 To 終值 [Step 步長值 ] Next 循環(huán)變量 功能： 本語句指定循環(huán)變量取一系列數(shù)值，并且對循環(huán)變量的每一個(gè)值把循環(huán)體執(zhí)行一次 初值、終值和步長值都是數(shù)值表達(dá)式，步長值可以是正數(shù)(稱為遞增循環(huán) )，也可以是負(fù)數(shù) (稱為遞減循環(huán) ) 若步長值為 1，則 Step 可以省略 中國最大的資料庫下載 (1)求出初值、終值和步長值，并保存起來 (2)將初值賦給循環(huán)變量 (3)判斷循環(huán)變量值是否超過終值 (步長值為正時(shí)，指大于終值；步長值為負(fù)時(shí)，指小于終值 )。 s End Sub s＝ 36 語句 s＝ s+k(循環(huán)體語句 )的執(zhí)行過程 例 求 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=。先將 t置 1(不能置 0) 在循環(huán)程序中，常用累加器和累乘器來完成各種計(jì)算任務(wù) 例 求 T = 8! = 1 2 3 … 8 中國最大的資料庫下載 采用 Print直接在窗體上輸出結(jié)果，程序代碼如下： Private Sub Form_Load() Show Dim pi As Single, c As Integer, s As Integer pi = 0 s = 1 39。交替改變加、減號 Next c Print π=。 其做法是：從所有可能解中，逐個(gè)進(jìn)行試驗(yàn)，若滿足條件，就得到一個(gè)解，否則不是。 令母雞為 x只，小雞為 y只，根據(jù)題意可知 y = 100 – x 開始先讓 x初值為 1，以后逐次加 1，求 x為何值時(shí)，條件 3x+y/3=100成立。 x, Print 小雞只數(shù)為 :。兩者區(qū)別在于判斷條件的先后次序不同 Do...Loop循環(huán)語句 中國最大的資料庫下載 格式： Do [{While|Until} 條件 ] 循環(huán)體 Loop Do While...Loop語句的功能： 當(dāng)條件成立 (為真 )時(shí)，執(zhí)行循環(huán)體；當(dāng)條件不成立 (為假時(shí) )，終止循環(huán) Do Until...Loop(直到型循環(huán) )語句的功能： 當(dāng)條件不成立 (為假 )時(shí)，執(zhí)行循環(huán)體，直到條件成立 (為真 )時(shí)，終止循環(huán) 1. 前測型 Do...Loop循環(huán) 中國最大的資料庫下載 采用 Do While...Loop語句 采用 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=?；?1/n= pi = pi + s / n s = s n = n + 2 Loop Print π=。當(dāng)最后一項(xiàng)的絕對值小于 105時(shí)，停止計(jì)算 中國最大的資料庫下載 Do Loop [{While|Until}條件 ] 功能： 先執(zhí)行循環(huán)體，然后判斷條件，根據(jù)條件決定是否繼續(xù)執(zhí)行循環(huán) 注意，本語句執(zhí)行循環(huán)的最少次數(shù)為 1，而前測型Do...Loop語句的最少次數(shù)為 0(即一次都不執(zhí)行循環(huán) ) 2. 后測型 Do...Loop 中國最大的資料庫下載 For…Next 前測型 S=0 s=0:k=1 For k=1 to 8 Do While k=8 s=s+k s=s+k Next k k=k+1 Print s Loop Print s s=0 : k=1 do