【正文】 窗體上輸出結(jié)果，程序代碼如下： Private Sub Form_Load() Show Dim pi As Single, c As Integer, s As Integer pi = 0 s = 1 39。累乘器，在原有積的基礎(chǔ)上每次乘一個(gè)數(shù) Next Print T=。 t = 1 39。 t End Sub T＝ 40320 語句 t=t*c 稱為乘法器。前 n項(xiàng)之和 新加的數(shù) k = 1 s ← s + k 0 1 k = 3 s ← s + k 1 + 2 3 k = 2 s ← s + k 1 2 k = 8 s ← s + k 1 + 2 + ? 7 8 …… 主頁 ? 算法：通常采用重復(fù)運(yùn)算來解決問題 累加、累乘等 如用級(jí)數(shù) π/4＝ 1 1/3 + 1/5 1/7 + …… 來求 π ? 設(shè)置循環(huán)變量 使每次運(yùn)算變量值有所不同 ? 控制循環(huán) 計(jì)數(shù)控制或條件控制 循環(huán)結(jié)構(gòu)程序的實(shí)現(xiàn) 求 S = 1 + 2 + 3 + … + 8 s = 0 For k = 1 To 8 s = s + k Next k Print s=。累加器，在原有和的基礎(chǔ)上每次加一個(gè)數(shù) Next Print s= 。 s = 0 39。 s s＝ 36 n = 1: s = 0 Do While n = 8 s = s + n n = n + 1 Loop Print s=。 主頁 采用循環(huán)程序可以解決一些按一定規(guī)則重復(fù)執(zhí)行的問題。主頁 計(jì)算機(jī)具有速度快、精度高的特點(diǎn)，特別適于進(jìn)行重復(fù)性的工作，重復(fù)次數(shù)越多越能顯示它的威力。所以，使用計(jì)算機(jī)時(shí)，應(yīng)盡量把問題歸納為簡單而有規(guī)則的重復(fù)運(yùn)算和操作，以充分發(fā)揮計(jì)算機(jī)的特長。例如，統(tǒng)計(jì)一個(gè)班幾十名學(xué)生，甚至全校幾千名學(xué)生的學(xué)期成績，如求平均分、不及格人數(shù)等 本章主要內(nèi)容 第 5章 循環(huán)結(jié)構(gòu)程序設(shè)計(jì) Do...Loop For...Next 退出 循環(huán)出口語句 (Exit) 循環(huán)語句 多重循環(huán) 列表框與組合框 常用算法 程序舉例 主頁 循環(huán) 是指在指定的條件下多次重復(fù)執(zhí)行一組語句 被重復(fù)執(zhí)行的一組語句稱為 循環(huán)體 VB提供的循環(huán)語句有 For...Next Do...Loop While...Wend For Each...Next 最常用的是 For...Next和 Do...Loop語句 假 真 循環(huán)體 循環(huán)條件 主頁 For...Next循環(huán)主要是用在知道循環(huán)次數(shù)的情況下；若事先不知道循環(huán)次數(shù)，可以使用當(dāng)型循環(huán) Do...Loop 1. For...Next循環(huán)語句 (計(jì)數(shù)控制 ) For 循環(huán)變量＝初值 To 終值 [Step 步長值 ] Next 循環(huán)變量 2. Do While...Loop語句 (條件控制 ) Do [{While|Until} 條件 ] 循環(huán)體 Loop 循環(huán)語句 示例 求 S = 1 + 2 + 3 + … + 8 s = 0 For k = 1 To 8 s = s + k Next k Print s=。 s 例 K為循 環(huán)變量 專設(shè)變量 n來控制循環(huán) 主頁 例 求 S = 1 + 2 + 3 + ? 8 ，把結(jié)果顯示在窗體上。累加器初值為 0 For k = 1 To 8 s = s + k 39。 s 程序執(zhí)行結(jié)果是： s＝ 36 分析 累加器 s = s + k 舊值。 s 把長式子改為 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 例 主頁 例 T = 8! = 1 2 3 ? 8 ，把結(jié)果顯示在網(wǎng)頁上。累乘器初值為１ For c = 1 To 8 t = t * c 39。 t 程序執(zhí)行結(jié)果是： T＝ 40320 分析 c = 1 t ← t * c 1 1 c = 3 t ← t * c 1 * 2 3 c = 2 t ← t * c 1 2 c = 8 t ← t * c 1 * 2 * ? 7 8 …… 累乘器 t = t * k 舊值。s表示加或減運(yùn)算 For c = 1 To 10000 Step 2 pi = pi + s / c s = s 39。 pi * 4 End Sub 程序運(yùn)行結(jié)果是： π＝ 例 用 π/4＝ 1 1/3 + 1/5 1/7 + …… 級(jí)數(shù)求 π的近似值 (取前 5000項(xiàng)來進(jìn)行計(jì)算 ) 例 主頁 For t = 1 To 3 If t = 1 Then a = 3 If t = 2 Then a = 2 If t = 3 Then a = 1 Print a。