【正文】 是固定的場合。 For循環(huán)的重復次數(shù)可以由一個計數(shù)變量的上、下限來決定。 ? 語法： For 計數(shù)器 =初值 To 終值 [Step 增量 ] [循環(huán)體 ] Next 計數(shù)器 For…… Next 循環(huán) ? 說明： For循環(huán)執(zhí)行步驟如下： 1．將計數(shù)器設(shè)定為初值。 2．若增量為正、則判斷計數(shù)器的值是否小于終值；若增量為負，則判斷計數(shù)器的值是否大于終值。 3．若上述判斷值為 True，則執(zhí)行循環(huán)體中的語句，否則跳出循環(huán)。 4．到 Next語句 ,將計數(shù)器加上增量 5．重復步驟 2至 4 For…… Next 循環(huán) ? 例 ：求 S=1+2+3+…… +N，其中， N由用戶輸入 Private Sub Command1_Click() Dim N As Integer, I As Integer, S As Long N=Int (InputBox (―N=‖)) For I = 1 To N S = S + I Next I Print S=。 S End Sub For…… Next 循環(huán) ? 可以注意到，對于需要將某些語句執(zhí)行固定次數(shù)的循環(huán)，使用 For…… Next循環(huán)非常方便。而 For循環(huán)的次數(shù)是由循環(huán)的初值、終值和步長 3個因素確定，計算公式為： 循環(huán)次數(shù) = Int( (終值 初值 )/步長 ) + 1 ? 一般情況下， For…… Next循環(huán)需要正常結(jié)束，即循環(huán)變量到達終值。但在某些情況下，可能在循環(huán)變量到達終值前需要退出循環(huán)，這可通過 Exit For語句來實現(xiàn)。 For…… Next 循環(huán) ? 例 ：判斷用戶輸入的自然數(shù)是否為質(zhì)數(shù)。 ? 解析： ? 1和本身外沒有其他因數(shù)則該數(shù)為質(zhì)數(shù)，否則為合數(shù) ? N是否為質(zhì)數(shù)，可以用自 2至 N1循環(huán)查找 N的因數(shù)，如果沒有 N的因數(shù)，則 N為質(zhì)數(shù)；如果找到一個因數(shù)，可以退出循環(huán)得到 N是合數(shù)的結(jié)論。 ? ：若 N有因數(shù) qN 189。 則必有因數(shù) pN189。，即對于合數(shù) N必定有小于 N的平方根的因數(shù)。由此可精簡算法，使循環(huán)的終值由 N減小到 Sqr(N) For…… Next 循環(huán) ? 例 代碼 Private Sub Command1_Click() Dim N As Long, I As Integer N = Val(InputBox(―請輸入大于 2的自然數(shù)： ” )) If N =2 Then MsgBox 請輸入大于 2的正整數(shù) Exit Sub End If For I = 2 To Sqr(N) If N Mod I = 0 Then Exit For 39。若 N 能被 I 整除就是合數(shù) Next I If I Sqr(N) Then MsgBox Str(N)+‖是質(zhì)數(shù) ” Else MsgBox Str(N)+‖是合數(shù) ” End If End Sub For…… Next 循環(huán) ? For…… Next循環(huán)可以嵌套使用，嵌套層數(shù)沒有具體限制，其基本要求是：每個循環(huán)必須有一個唯一的循環(huán)變量；內(nèi)層循環(huán)的 Next語句必須在外層循環(huán)的 Next語句之前，內(nèi)外循環(huán)不得相互交叉。 ? 例如，下面的循環(huán)嵌套是正確的： For I= a To b For J = c to d ………… Next J Next I ? 下面的循環(huán)嵌套是錯誤的 For I= a To b For J= c To d ………… Next I Next J For…… Next 循環(huán) ? 例 ：求 S=3! + 6! + 9! + 12! Private Sub Command1_Click() Dim I As Integer, J As Long Dim K As Long Dim S As Long For I = 3 To 12 Step 3 K = 1 For J = 1 To I K = K * J Next J S = S + K Next I Print S=。 S End Sub Do…… Loop 循環(huán) ? 有些時候，我們希望循環(huán)能不限次數(shù)地重復執(zhí)行，直到某個條件被滿足為止， Do… Loop循環(huán)就可以根據(jù)循環(huán)條件是 True或 False決定是否結(jié)束循環(huán)。 ? Do…… Loop循環(huán)在語法上有以下 3種形式。 ? 條件前置的 ? 條件后置的 ? 無條件式的 Do…… Loop 循環(huán) ? 1. 條件前置的 Do…… Loop循環(huán) ? 用途：當需要先判斷條件、再執(zhí)行循環(huán)體時使用 ? 語法： Do While|Until 條件 循環(huán)體 Loop Do…… Loop 循環(huán) ? 1. 條件前置的 Do…… Loop循環(huán) ? 說明： ? ，決定是否要執(zhí)行循環(huán)體 ? While或 Until兩種，兩者為互補關(guān)系 ? While判斷時，若條件為 True，則反復執(zhí)行循環(huán)體，直到條件為 False時為止 ? Until判斷時，若條件為 False，則反復執(zhí)行循環(huán)體，直到條件為 True時為止 Do…… Loop 循環(huán) ? 例 ：計算調(diào)和級數(shù)的和，要求精確到小數(shù)點后 6位（數(shù)列的最后一項小于），調(diào)和級數(shù)為 Do…… Loop 循環(huán) ? 例 解法 1： Private Sub Command1_Click() Dim S As Single Dim A As Single Dim T As Long T = 1 A = 1 S = 1 Do While A = T = T + 1 A = 1 / T S = S + A Loop MsgBox ―S=‖ amp。 Format(S) End Sub Do…… Loop 循環(huán) ? 例 2： Private Sub Command1_Click() Dim S As Single Dim A As Single Dim T As Long T = 1 A = 1 S = 1 Do Until A T = T + 1 A = 1 / T S = S + A Loop MsgBox ―S=‖ amp。 Format(S) End Sub Do…… Loop 循環(huán) ? 2. 條件后置的 Do…… Loop循環(huán) ? 用途： ? 當需要先執(zhí)行循環(huán)體，再判斷條件時使用 ? 語法： Do 循環(huán)體 Loop While|Until 條件 Do…… Loop 循環(huán) ? 2. 條件后置的 Do…… Loop循環(huán) ? 說明： ? ，再判斷 Loop后的條件是否符合，以決定要不要重復執(zhí)行循環(huán)體 ? While或 Until，兩者為互補關(guān)系 ? While判斷時，若條件為 True，則反復執(zhí)行循環(huán)體，直到條件為 False時為止 ? Until判斷時，若條件為 False，則反復執(zhí)行循環(huán)體，直到條件為 True時為止 Do…… Loop 循環(huán) ? 例 ：利用 Do循環(huán)完成數(shù)值計算公式求 π Do…… Loop 循環(huán) ? 例 解法 1： Private Sub Command1_Click() Dim S As Single, Pi As Single Dim A As Single Dim m As Integer, k As Long m = 1 k = 1 A = 1 S = 1 Do k = k + 2 m = m A = m / k S = S + A Loop While Abs(A) = Pi = 4 * S MsgBox ―π= ‖ amp。 Format(Pi) End Sub 3．無條件的 Do…… Loop循環(huán) ? 用途： ? 當程序中可能需要無窮循環(huán)時，可使用無條件的Do…… Loop循環(huán) ? 語法： Do [循環(huán)體 ] Loop ? 說明： ? 使用此種循環(huán)可能使程序產(chǎn)生無窮循環(huán)，為了避免這種情況的發(fā)生，通常在循環(huán)體中要有條件語句，以在適當?shù)臅r候使用 Exit Do語句退出循環(huán)。 While…… Wend 循環(huán) ? 用途： ? While…… Wend循環(huán)與條件前置的 Do While…… Loop循環(huán)相似，要先判斷條件以決定是否執(zhí)行循環(huán)體。 ? 語法： While 條件 [循環(huán)體 ] Wend ? 說明： ? 先判斷條件是否成立，當條件為 True時執(zhí)行反復執(zhí)行循環(huán)體，直到條件為 False時為止。 While…… Wend語句是早期 Basic語言的循環(huán)語句，現(xiàn)在它的功能已完全被 Do... Loop語句所包括，所以不常使用了。 多重循環(huán) ? 通常把循環(huán)體內(nèi)不含有循環(huán)語句的循環(huán)叫做單層循環(huán)，而把循環(huán)體內(nèi)含有循環(huán)語句的循環(huán)稱為多重循環(huán)。例如在循環(huán)體內(nèi)含有一個循環(huán)語句的循環(huán)稱為二重循環(huán)。多重循環(huán)又稱作多層循環(huán)或循環(huán)嵌套。 多重循環(huán) ? 例 打印 “ 九九乘法表 ” ，輸出結(jié)構(gòu)如圖所示 多重循環(huán) ? 解析：九九乘法表是一個 9行 9列的二維表，行和列都要變化且行列相互約束 (第 I行需要有 I列 )，是一個典型的二重循環(huán)問題 Private Sub Form_Load() Show Dim I As Integer, J As Integer For I = 1 To 9 For J = 1 To I Print Format(I) amp。 amp。 Format(J) amp。 ＝ amp。 Format(I * J)。 Tab。 Next J Print : Print Next I End Sub Goto 型控制 ? GoTo 語句 ? 用途：在一個過程中改變語句的執(zhí)行順序，跳過部分代碼去執(zhí)行另一部分或返回已經(jīng)執(zhí)行過的某語句使之重復執(zhí)行。 ? 語法： GoTo {標號 |行號 } ? 說明： ? 1） GoTo語句改變程序執(zhí)行的順序，無條件的把控制轉(zhuǎn)移到“ 標號 ” 或 “ 行號 ” 所在的程序行，并從該行開始向下執(zhí)行。 ? 2）標號的命名與變量類似，但是必須以冒號結(jié)束；行號則是由數(shù)字指定，后面不跟冒號。 ? 3） GoTo語句的功能被限定在一個過程中，不能將控制跳轉(zhuǎn)到另一個過程中 Goto 型控制 ? On…… GoTo語句 ? 用途：在使用 GoTo型控制時要實現(xiàn)類似于 Select Case的功能，實現(xiàn)多分支選擇控制，就要用到 On…… GoTo型控制 ? 語法： On 數(shù)值表達式 GoTo 行號列表 |標號列表 ? 說明： ? Visual Basic在遇到 On…… GoTo語句時，先計算數(shù)值表達式的值，并將其四舍五入得到一個整數(shù)，根據(jù)這個整數(shù)值決定跳到第幾個行號或標號處執(zhí)行： ? 1）若該整數(shù)值為 1則轉(zhuǎn)向第一個行號或標號處執(zhí)行語句，若值為 2則轉(zhuǎn)向第二個行號或標呈處執(zhí)行語句 …… 并依此類推 ? 2) 若該整數(shù)值為 0或大于 “ 行號列表 ” 或 “ 標號列表 ” 中的項數(shù)，程序自動跳轉(zhuǎn)到 On…… GoTo語句后面的一個可執(zhí)行語句 ? 3)若該整數(shù)值為負數(shù)，會產(chǎn)生一個運行期錯誤。 小型案例 文本統(tǒng)計 ? 在一文本框中輸入一段文字，能夠?qū)ζ渲械膯卧~數(shù)、字母數(shù)、數(shù)字字符及其他字符數(shù)進行統(tǒng)計，通過對兩個 “ 統(tǒng)計 ” 按鈕的單擊，分別對單詞個數(shù)和字符個數(shù)進行統(tǒng)計，運行界面如圖 設(shè)計思路 ? 若要統(tǒng)計出單詞的個數(shù)，需要明白單詞間是用空格符分隔的。循環(huán)讀取字符時，需用一個邏輯變量來表明是否有新單詞開始，具體方法如下。 （ 1）設(shè)一邏輯變量初始值為真，當讀到第一個非空字符時，計數(shù)變量增 1，同時將該邏輯變量設(shè)為假。