[計算機軟件及應(yīng)用]vb循環(huán)結(jié)構(gòu)-文庫吧
2025-09-20 04:09 本頁面
【正文】 pi = 0: n = 1 c = 1 Do Until 1/n pi = pi + c / n n = n + 2 c = c Loop pi = pi * 4 Print π=。 pi End Sub 說明： 1）變量 c的作用：實現(xiàn)加減法的交替 2） n的取值規(guī)律 3） π的編輯：通過輸入法的特殊字符輸入 后測型 Do...Loop語句 ? 格式： Do 循環(huán)體 Loop [{While|Until} 條件 ] ? 功能：先執(zhí)行一次循環(huán)體，然后判斷條件，根據(jù)結(jié)果決定是否再執(zhí)行循環(huán)體 ? 注意： 后測型 Do語句最少執(zhí)行 1次循環(huán)體 前測型 Do語句最少執(zhí)行 0次循環(huán)體（即一次都不執(zhí)行循環(huán)） 例 ? 程序代碼 Private Sub Command1_Click() Dim n As Integer,s As Integer n=1 s=0 Do s=s+n n=n+1 Loop While n=100 Print s=。s End Sub 或?qū)憺椋? Loop Until n100 例 ?題目：輸入兩個正整數(shù)，求它們的最大公約數(shù)。運行界面如下： 例 ? 分析與思考 “ 輾轉(zhuǎn)相除法 ” 算法：設(shè)m、 n為兩個正整數(shù)。先求出 m/n余數(shù) p，若 p＝ 0，則 n即為最大公約數(shù)；若 p非 0，則把原來的分母 n作為新的分子 m，把余數(shù) p作為新的分母 n繼續(xù)求解，直到 p=0。 ? 分析與思考 1）輸入 m和 n的值 2）根據(jù) “ 輾轉(zhuǎn)相除法 ” 求解 3）輸出 n ? 例如 m n p 32 20 12 20 12 8 12 8 4 8 4 0 例 ? 程序代碼 Private Sub Command1_Click() Dim m As Integer, n As Integer, p As Integer m = Val() n = Val() p=m Mod n Do While p0 m = n n = p p = m Mod n Loop = n End Sub 思考：輸入時，是否要保證 mn？為什么？ While...Wend語句 ? 格式 While 循環(huán)體 Wend ? 功能：先測試條件，若條件成立，則執(zhí)行循環(huán)體，然后再次測試條件；若條件不成立，則跳出循環(huán) ? 本語句與 Do While...Loop語句功能相同，格式稍有差異 For...Next語句 ? 使用 Do...Loop 語句實現(xiàn)的循環(huán)，其特點是循環(huán)條件明確，但是循環(huán)次數(shù)不確定。其實，在明確循環(huán)次數(shù)的情況下，多使用 For...Next語句 ? 累加問題。求 s=1+2+… +100的和 ? Private Sub Command1_Click() Dim s As Integer, n As Integer s = 0 For n = 1 To 100 Step 1 s = s + n Next n Print s=。 s End Sub n：循環(huán)變量 1：循環(huán)變量初值 100：循環(huán)變量終值 Step 1:循環(huán)變量步長值 s=s+n：循環(huán)體 For...Next語句 ? 格式： For 循環(huán)變量＝初值 To 終值 [Step 步長值 ] 循環(huán)體 Next 循環(huán)變量 ? 說明 1） For部分的循環(huán)變量和 Next語句部分的循環(huán)變量應(yīng)該是同一個變量 2）步長值表示循環(huán)變量取值的變化規(guī)律，即從初值開始，每循環(huán)一次增加一個步長值，直到超過終值。 步長值可以是正數(shù)，稱為遞增循環(huán)，也可以是負數(shù)，稱為遞減循環(huán)。 若步長值為 1，則 Step 1可以省略 步長值不能為 0，若為 0，則循環(huán)語句不能在執(zhí)行有限次循環(huán)體后自動跳出循環(huán)。我們把這種循環(huán)稱為 “ 死循環(huán) ” 。 3）初值、終值和步長值可以是常量、變量、函數(shù)或表達式，常見的是常量 4）功能： For ...Next語句指定循環(huán)變量取一系列數(shù)值，并且對循環(huán)變量的每一個取值均把循環(huán)體執(zhí)行一次 For...Next語句 ?執(zhí)行步驟 ? 1）確定循環(huán)初值、終值和步長值 ? 2）將循環(huán)初值賦予循環(huán)變量 ? 3）判斷循環(huán)變量當(dāng)前值是否超過終值。若沒有超過終值，則執(zhí)行循環(huán)體；反之，若超過終值，則跳出循環(huán)，執(zhí)行 Next之后的語句 ? 4）執(zhí)行 Next語句，即給循環(huán)變量加上步長值再重新賦予 ? 5）跳轉(zhuǎn)到第 3步 ―超過 ” 的含義：步長值為正時，指大于終值；步長值為負時，指小于終值。 小測驗 ? 閱讀程序： Private Sub Form_Click() Dim a As Integer, j As Integer a = 0 For j = 1 To 15 a = a + j Mod 3 Next j Print a End Sub 程序運行后，單擊窗體，輸出結(jié)果是（ ） 15 小測驗 ? 有如下程序： Private Sub Command1_Click() Dim c As Integer, c1 As String c = 1234 c1 = Trim(Str(c)) For i = 1 To 4 Print Next i End Sub 程序運行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容： 1 12 123 1234 則在橫線上應(yīng)填入的內(nèi)容為：（ ） A） Right(c1, i) B） Left
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1