【正文】 Sum = Sum + x = Sum Loop MsgBox (累加運(yùn)算結(jié)束 ) End Sub 以 1作為“終止循環(huán)標(biāo)志” 例 設(shè)計(jì)一個(gè) “ 加法器 ” 程序 中國(guó)最大的資料庫(kù)下載 多重循環(huán)是指循環(huán)體內(nèi)含有循環(huán)語(yǔ)句的循環(huán) 例 多重循環(huán)程序示例 程序運(yùn)行結(jié)果 Private Sub Form_Load() 1 5 Show 1 6 For i = 1 To 3 ?外循環(huán) 1 7 For j = 5 To 7 ?內(nèi)循環(huán) 2 5 Print i, j 2 6 Next j 2 7 Next i 3 5 End Sub 3 6 3 7 注意內(nèi)、外循環(huán)層次要分清，不能交叉 多 重 循 環(huán) 中國(guó)最大的資料庫(kù)下載 本例可采用 兩重循環(huán) 來(lái)實(shí)現(xiàn)。 pi * 4 End Sub 程序運(yùn)行結(jié)果： π＝ 例 用 π /4＝ 1 1/3 + 1/5 1/7 + …… 級(jí)數(shù) ,求 π的近似值。 y End If Next x End Sub 運(yùn)行結(jié)果： 母雞只數(shù)為： 25 小雞只數(shù)為： 75 中國(guó)最大的資料庫(kù)下載 For...Next循環(huán)主要是用在知道循環(huán)次數(shù)的情況下，若事先不知道循環(huán)次數(shù)，可以使用當(dāng)型循環(huán) Do...Loop Do...Loop兩種格式： 前測(cè)型循環(huán)結(jié)構(gòu) 和 后測(cè)型循環(huán)結(jié)構(gòu) 。直到條件滿(mǎn)足或判別出無(wú)解為止。s表示加或減運(yùn)算 For c = 1 To 10000 Step 2 pi = pi + s / c s = s 39。超過(guò)終值時(shí)，退出循環(huán)，執(zhí)行 Next (4)執(zhí)行循環(huán)體 (5)遇到 Next語(yǔ)句時(shí)，修改循環(huán)變量值，即把循環(huán)變量的當(dāng)前值加上步長(zhǎng)值再賦給循環(huán)變量 (6)轉(zhuǎn)到 (3)去判斷循環(huán)條件 例 For...Next語(yǔ)句的執(zhí)行步驟 中國(guó)最大的資料庫(kù)下載 采用 Print直接在窗體上輸出結(jié)果，程序代碼： Private Sub Form_Load() Show s = 0 For k = 1 To 8 s = s + k Next k Print s=。 中國(guó)最大的資料庫(kù)下載 中國(guó)最大的資料庫(kù)下載 采用循環(huán)程序可以解決一些按一定規(guī)則重復(fù)執(zhí)行的問(wèn)題。每次循環(huán)都將循環(huán)體 (Print k*k)執(zhí)行一次 格式： For 循環(huán)變量＝初值 To 終值 [Step 步長(zhǎng)值 ] Next 循環(huán)變量 功能： 本語(yǔ)句指定循環(huán)變量取一系列數(shù)值，并且對(duì)循環(huán)變量的每一個(gè)值把循環(huán)體執(zhí)行一次 初值、終值和步長(zhǎng)值都是數(shù)值表達(dá)式，步長(zhǎng)值可以是正數(shù)(稱(chēng)為遞增循環(huán) )，也可以是負(fù)數(shù) (稱(chēng)為遞減循環(huán) ) 若步長(zhǎng)值為 1，則 Step 可以省略 中國(guó)最大的資料庫(kù)下載 (1)求出初值、終值和步長(zhǎng)值，并保存起來(lái) (2)將初值賦給循環(huán)變量 (3)判斷循環(huán)變量值是否超過(guò)終值 (步長(zhǎng)值為正時(shí)，指大于終值；步長(zhǎng)值為負(fù)時(shí)，指小于終值 )。先將 t置 1(不能置 0) 在循環(huán)程序中，常用累加器和累乘器來(lái)完成各種計(jì)算任務(wù) 例 求 T = 8! = 1 2 3 … 8 中國(guó)最大的資料庫(kù)下載 采用 Print直接在窗體上輸出結(jié)果，程序代碼如下： Private Sub Form_Load() Show Dim pi As Single, c As Integer, s As Integer pi = 0 s = 1 39。 其做法是：從所有可能解中，逐個(gè)進(jìn)行試驗(yàn)，若滿(mǎn)足條件，就得到一個(gè)解，否則不是。 x, Print 小雞只數(shù)為 :?；?1/n= pi = pi + s / n s = s n = n + 2 Loop Print π=。當(dāng)輸入 1時(shí)結(jié)束程序的運(yùn)行 (1)創(chuàng)建應(yīng)用程序的用戶(hù)界面和設(shè)置對(duì)象屬性 (2)編寫(xiě)程序代碼 Private Sub Form_Load() Show Sum = 0 Do While True 39。 例 編一程序，輸出下列所示的圖形 中國(guó)最大的資料庫(kù)下載 采用 Print直接在窗體上輸出結(jié)果，程序代碼如下： Private Sub Form_Load() Show For i = 1 To 7 Print Tab(10 i)。記錄解的組數(shù) For a = 0 To 10 For b = 0 To 10 c = 10 b a If a + 2 * b + 5 * c = 25 And c = 0 Then n = n + 1 Print (。若未選定任何項(xiàng)，則 ListIndex的值為 1 (6)Text屬性 ：存放當(dāng)前選定表項(xiàng)的文本內(nèi)容 (7)Selected屬性 ：邏輯值，表示列表框中某一表項(xiàng)是否被選中 (8)Sorted屬性 ：設(shè)置列表框