【正文】 ，則循環(huán)體一次也不執(zhí)行。 For…Next 循環(huán)語句 For…Next 循環(huán)語句以 指定的次數(shù) 重復(fù)執(zhí)行一組語句。下面的程序段是錯(cuò)誤的。 分析：輾轉(zhuǎn)相除法求兩個(gè)數(shù) m， n的最大公約數(shù)的思想如下： （ 1）求 m除以 n的余數(shù) r，即 r=m mod n； (2) 若 r≠0，轉(zhuǎn)（ 3）；若 r=0，則此時(shí)的 n就是最大公約數(shù)，轉(zhuǎn)（ 4）； (3) 把 n的值給 m，把 r的值給 n，即 m←n ， n←r ，轉(zhuǎn)（ 1）； （ 4） 循環(huán)結(jié)構(gòu)的下一個(gè)語句。 例：求自然對(duì)數(shù) e的近似值，要求其誤差小于 (即求和公式的最后一項(xiàng)的值小于 )，近似公式為： 分析：本例涉及兩個(gè)重要的運(yùn)算：一個(gè)是累加求和，另一個(gè)是求階乘。 j) next j next I … 例： 求和 !101!31!21!11 ???? ? i = 1 S = 0 Do While i = 10 求 i!賦給 fac S = s + 1 / fac i = i + 1 Loop Dim i, j As Integer Dim s, fac As Double i = 1 s = 0 Do While i = 10 fac = 1 For j = 1 To i fac = fac * j Next s = s + 1 / fac i = i + 1 Loop 注：在循環(huán)嵌套的結(jié)構(gòu)中，內(nèi)、外層循環(huán)的循環(huán)變量不能同名。 例：求 1到 1000之間的所有完數(shù)。顯示該數(shù)列的前 20項(xiàng)。 Dim i, j, c As Integer Dim str1 As String str1 = For i = 1 To 9 For j = 1 To i c = i * j If c = 9 Then str1 = str1 amp。 End If Next str1 = str1 amp。 通過分析可知，公雞的只數(shù)在 0…50 之間，母雞的只數(shù)在0…33 之間，小雞的只數(shù)在 0…100 之間，那么可以利用三重循環(huán)，把這些組合全部測試一遍。把上面的公式轉(zhuǎn)換成： 每一項(xiàng)的正負(fù)號(hào)利用 (1)^(n1)來實(shí)現(xiàn)，通項(xiàng)公式為： (1) ^(n1)*(1/(2*n1))。通過分析發(fā)現(xiàn)：每個(gè)數(shù)字與它們所在的行、列號(hào)有一定的關(guān)系。 循環(huán)的嵌套 在一個(gè)循環(huán)體內(nèi)又包含了另一個(gè)循環(huán)結(jié)構(gòu)的循環(huán)，稱為循環(huán)的嵌套。若在第一次進(jìn)入循環(huán)結(jié)構(gòu)之前，條件不成立，那么循環(huán)體一次也不執(zhí)行。若表達(dá)式的值為 True，則執(zhí)行語句塊。 （ 6） Next表示循環(huán)的終端語句 循環(huán)變量 =初值 語句塊 1 語句塊 2 循環(huán)變量 =循環(huán)變量 +步長 循環(huán)變量是否 超過終值 ? 是否執(zhí)行到 Exit for語句 ? Y N N Y 例：計(jì)算 1+2+3+…+100 。循環(huán)結(jié)構(gòu)程序設(shè)計(jì) 所謂循環(huán)結(jié)構(gòu)就是根據(jù)某一條件重復(fù)地執(zhí)行某些操作（程序段）。（不能用等差數(shù)列求和的計(jì)算公式） Dim i, s As Integer s = 0 ’在計(jì)算累加和時(shí)，存放和的變量的 初值為 0 For i = 1 To 100 s = s + i Next MsgBox(1+2+3+…+100 的和為： + Str(s), , 求和 ) 考慮：如何求 1*2*3*…*100 說明： （ 1） 當(dāng)退出循環(huán)時(shí)，循環(huán)控制變量的值保存的是退出時(shí)的值 。 （ 2）語句塊：即循環(huán)體。 Do…Loop 語句 可分為四種 : 1. Do While…Loop 循環(huán)結(jié)構(gòu) 語句形式如下： Do While 條件表達(dá)式 語句塊 A [Exit do] 語句塊 B Loop 這種結(jié)構(gòu)也是先判斷條件，然后決定是否執(zhí)行循環(huán)體 . 例：判斷一個(gè)數(shù) n是否為素?cái)?shù)。前面講的所有循環(huán)結(jié)構(gòu)語句都可以互相包含（必須是完整的包含，而不能交叉）形成循環(huán)的嵌套。假定行號(hào)為 i，列號(hào)為 j，數(shù)字為 k，則 k=（ i1） *4+j。 程序如下： Dim s As Double Dim n As Integer s = 0 n = 0 Do n = n + 1 s = s + (1) ^ (n 1) * (1 / (2 * n 1)) Loop While 1 / (2 * n 1) = 10 ^ 6 MsgBox(π的值為： + Format(4 * s, .), , 利用求和公式求 π的值 ) 例：裴波那契數(shù)列是由計(jì)算某類動(dòng)物繁殖增長量而提出的。 Dim x, y, z As Integer Dim str1 As String str1 = For x = 0 To 50 For y = 0 To 33 For z = 0 To 100 If x + y + z = 100 And 6 * x + 9 * y + z = 300 Then str1 = str1 + Str(x) + + Str(y) + + Str(z) + + Chr(13) + Chr(10) End If Next Next Next MsgBox(所有的買法如下： + vbCrLf +