【正文】 t = t + n n = n + 1 Loop Next x A. 8 B. 9 D. 11 請(qǐng)回答問題 想一想 思考題 B 主頁(yè) 請(qǐng)回答問題 想一想 思考題 顯示結(jié)果為： 16 執(zhí)行下列程序段后，顯示的結(jié)果是 ______ s = 0 For m = 1 To 4 Step 2 n = 1 Do While n=m s = s + n n = n + 1 Loop Next m Print s + m + n 例 主頁(yè) 列表框與組合框 列表框和組合框都能為用戶提供若干個(gè)選項(xiàng)，供用戶從中任意選擇 列表框 (ListBox) List屬性：字 符型數(shù)組 , 存放列表 框的表項(xiàng) 數(shù)組的下標(biāo)從 0開始。確定開始顯示的坐標(biāo) Print , 五元 , 二元 , 一元 n = 0 39。 在進(jìn)入內(nèi)循環(huán)之前，使用 Print Tab()來對(duì)起始輸出位置定位，退出內(nèi)循環(huán)后，使用 Print來控制換行。當(dāng)最后一項(xiàng)的絕對(duì)值小于 105時(shí)，停止計(jì)算 例 主頁(yè) “輾轉(zhuǎn)相除法”算法： 求出 m/n余數(shù) p，若 p＝ 0， n即為最大公約數(shù)；若 p非 0，則把原來的分母 n作為新的分子 m，把余數(shù) p作為新的分母 n (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 例 輸入兩個(gè)正整數(shù)，求它們的最大公約數(shù) 例 主頁(yè) 編寫的“計(jì)算”按鈕 Click事件過程代碼如下： Private Sub Command1_Click() Dim m As Integer, n As Integer, p As Integer m = Val() : n = Val() If m = 0 Or n = 0 Then MsgBox (數(shù)據(jù)錯(cuò)誤 !) End End If Do p = m Mod n m = n n = p Loop While p 0 = m End Sub 若輸入的 m和 n的值為 85和 68，則運(yùn)行結(jié)果如上圖 主頁(yè) 用于提前退出循環(huán) 格式： Exit {For|Do} 功能：直接從 For循環(huán)或 Do循環(huán)中退出 當(dāng)程序運(yùn)行時(shí)遇到 Exit語(yǔ)句時(shí)，就不再執(zhí)行循環(huán)體中的任何語(yǔ)句而直接退出，轉(zhuǎn)到循環(huán)語(yǔ)句 (Next、 Loop)的下面繼續(xù)執(zhí)行 主頁(yè) 把每次輸入的數(shù)累加。 i = 0: n = 1 Do While i 32 i = (i + 1) * (i + 1) n = n + 1 Loop Print n A. 2 B. 3 C. 4 D. 5 請(qǐng)回答問題 想一想 思考題 C 主頁(yè) s = ABCDEFGHIJ: c = For k = 2 To Len(s) Step 3 a = Mid(s, k) c = c + Left(a, 1) Next k Print c A. BDF B. CFI C. BEH 下列程序的運(yùn)行結(jié)果是？ 想一想 思考題 C 主頁(yè) 采用 Do While...Loop語(yǔ)句 采用 Print直接在窗體上輸出結(jié)果，程序代碼： Private Sub Form_Load() Dim n As Integer, s As Long Show n = 1: s = 0 Do While n = 100 s = s + n * n n = n + 1 Loop Print s=。交替改變加、減號(hào) Next c Print π=。累乘器，在原有積的基礎(chǔ)上每次乘一個(gè)數(shù) Next Print T=。 t End Sub T＝ 40320 語(yǔ)句 t=t*c 稱為乘法器。累加器，在原有和的基礎(chǔ)上每次加一個(gè)數(shù) Next Print s= 。 s s＝ 36 n = 1: s = 0 Do While n = 8 s = s + n n = n + 1 Loop Print s=。主頁(yè) 計(jì)算機(jī)具有速度快、精度高的特點(diǎn)，特別適于進(jìn)行重復(fù)性的工作，重復(fù)次數(shù)越多越能顯示它的威力。例如，統(tǒng)計(jì)一個(gè)班幾十名學(xué)生，甚至全校幾千名學(xué)生的學(xué)期成績(jī)，如求平均分、不及格人數(shù)等 本章主要內(nèi)容 第 5章 循環(huán)結(jié)構(gòu)程序設(shè)計(jì) Do...Loop For...Next 退出 循環(huán)出口語(yǔ)句 (Exit) 循環(huán)語(yǔ)句 多重循環(huán) 列表框與組合框 常用算法 程序舉例 主頁(yè) 循環(huán) 是指在指定的條件下多次重復(fù)執(zhí)行一組語(yǔ)句 被重復(fù)執(zhí)行的一組語(yǔ)句稱為 循環(huán)體 VB提供的循環(huán)語(yǔ)句有 For...Next Do...Loop While...Wend For Each...Next 最常用的是 For...Next和 Do...Loop語(yǔ)句 假 真 循環(huán)體 循環(huán)條件 主頁(yè) For...Next循環(huán)主要是用在知道循環(huán)次數(shù)的情況下；若事先不知道循環(huán)次數(shù)，可以使用當(dāng)型循環(huán) Do...Loop 1. For...Next循環(huán)語(yǔ)句 (計(jì)數(shù)控制 ) For 循環(huán)變量＝初值 To 終值 [Step 步長(zhǎng)值 ] Next 循環(huán)變量 2. Do While...Loop語(yǔ)句 (條件控制 ) Do [{While|Until} 條件 ] 循環(huán)體 Loop 循環(huán)語(yǔ)句 示例 求 S = 1 + 2 + 3 + … + 8 s = 0 For k = 1 To 8 s = s + k Next k Print s=。累加器初值為 0 For k = 1 To 8 s = s + k 39。 s 把長(zhǎng)式子改為 8次加 主頁(yè) 采用 Print直接在窗體上輸出結(jié)果，程序代碼