【正文】 語(yǔ)句塊 循環(huán)變量 = 循環(huán)變量 + 步長(zhǎng) F 循環(huán)變量 = 初值 有 E x i t F o r F N e x t 的下一語(yǔ)句 例 將可打印的ASCII碼制成表格輸出 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 102 Do…Loop 循環(huán)語(yǔ)句 Do循環(huán)用于控制循環(huán)次數(shù)未知的循環(huán)結(jié)構(gòu)。 形式 1： Do { While|Until }條件 語(yǔ)句塊 [Exit Do 語(yǔ)句塊 ] Loop 形式 1為先判斷后執(zhí)行，有可能一次也不執(zhí)行； 形式 2為先執(zhí)行后判斷，至少執(zhí)行一次。 形式 2： Do 語(yǔ)句塊 [Exit Do 語(yǔ)句塊 ] Loop { While|Until} 條件 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 103 Do…Loop 流程 F T 語(yǔ)句塊 語(yǔ)句塊 Do W h i l e ? L o o p 表達(dá)式列表 1 有 E x i t D o F T T F 語(yǔ)句塊 語(yǔ)句塊 表達(dá)式列表 1 Do ? L o o p W h i l e 有 E x i t D o F T 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 104 循環(huán)例題 例 我國(guó)有 13億人口，按人口年增長(zhǎng) %計(jì)算，多少年后我國(guó)人口超過(guò) 26億。 解此問(wèn)題兩種方法 ， 可根據(jù)公式： )0 0 o g ()2l o g (n 0 . 0 0 8 )1 3 ( 126 n???直接利用標(biāo)準(zhǔn)函數(shù)對(duì)數(shù)可求得，但求得的年數(shù)不為整數(shù)；也可利用循環(huán)求得 。 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 105 循環(huán)的嵌套 在一個(gè)循環(huán)體內(nèi)又包含了一個(gè)完整的循環(huán)結(jié)構(gòu)稱為循環(huán)的嵌套 。 循環(huán)嵌套對(duì) For循環(huán)語(yǔ)句和Do… Loop語(yǔ)句均適用 。 例 打印九九乘法表 思考： 打印上三角或下三角程序如何改動(dòng)？ 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 106 其他輔助控制語(yǔ)句 Go To 語(yǔ)句 無(wú)條件地轉(zhuǎn)移到標(biāo)號(hào)或行號(hào)指定的那行語(yǔ)句 。 Go To {標(biāo)號(hào) |行號(hào) } 注意：標(biāo)號(hào)是字符序列 ， 首字符必須為字母 ， 標(biāo)號(hào)后應(yīng)有冒號(hào)；行號(hào)是一個(gè)數(shù)字序列； 例 判斷輸入的數(shù)是否為素?cái)?shù) 素?cái)?shù)就是除 1和本身以外 ， 不能被其他任何整數(shù)整除的數(shù) 。 根據(jù)此定義 ， 判別某數(shù) m是否為素?cái)?shù)最簡(jiǎn)單的方法就是依次用 i=2~m1去除 ， 只要有一個(gè)數(shù)能整除 m， m就不是素?cái)?shù)；否則 m是素?cái)?shù) 。 要求一定范圍內(nèi)的素?cái)?shù)，只要將 m作為外循環(huán)體變量。 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 107 退出和結(jié)束語(yǔ)句 VB中有多種形式的 Exit語(yǔ)句 ， 用于退出某種控制結(jié)構(gòu)的執(zhí)行 。 Exit的形式如下： Exit For、 Exit Do、 Exit Sub、 Exit Function 獨(dú)立的 End語(yǔ)句用于結(jié)束一個(gè)程序的運(yùn)行 ， 它可以放在任何事件過(guò)程中 。 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 108 綜合應(yīng)用 例 由計(jì)算機(jī)自動(dòng)產(chǎn)生四則運(yùn)算題 ， 并能判斷答案的正確性 。 設(shè)計(jì)思路： (1)通過(guò)隨機(jī)函數(shù) Rnd產(chǎn)生試題的操作數(shù)和運(yùn)算符 ， 運(yùn)算符 +、 、 、 247。 可對(duì)應(yīng)編號(hào) 1~4。 產(chǎn)生表達(dá)式通過(guò) Form_Load事件過(guò)程 。 (2)需要有一個(gè)全局變量保存四則運(yùn)算題的正確答案 ， 用戶答案可通過(guò)文本框輸入 。 (3)本題主要將隨機(jī)函數(shù) 、 If語(yǔ)句 、 Select語(yǔ)句綜合在一起使用 。 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 109 綜合應(yīng)用 最大公約數(shù) 例 。 求最大公約數(shù)的算法思想： (1)對(duì)于兩數(shù) m， n， 使得 mn (2) m除以 n得余數(shù) r 例 m=14 ,n=6 的最大公約數(shù) If m n Then t = m: m = n: n = t r=m mod n Do While (r 0) m=n n=r r= m mod n Loop MsgBox “最大公約數(shù) =” amp。 n 輾轉(zhuǎn)相減法 ? m=mn mn ? n=nm nm ? m、 n為公約數(shù) m=n Do While m n m n If m n Then 14 6 m = m – n 8 6 Else 2 6 n = n – m 2 4 End If 2 2 Loop (3)若 r=0，則 n為最大公約數(shù)，結(jié)束；否則執(zhí)行 (4) (4)m?n， n?r，再重復(fù)執(zhí)行 (2) 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 110 綜合應(yīng)用 級(jí)數(shù)求和 例 e的近似值 ， 其誤差小于 。 近似公式 分析：本例涉及到程序設(shè)計(jì)中兩個(gè)重要運(yùn)算： 累加和連乘 i!。 累加是在原有和的基礎(chǔ)上再加一個(gè)數(shù)；連乘則是在原有積的基礎(chǔ)上再乘以一個(gè)數(shù) 。 該題先求 i!，再將 1/i!進(jìn)行累加，循環(huán)次數(shù)未知，可先設(shè)置一個(gè)次數(shù)很大的值，然后在循環(huán)體內(nèi)判斷是否到達(dá)精度，也可用 Do While來(lái)實(shí)現(xiàn)。 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 111 綜合應(yīng)用 試湊法 例 百元買(mǎi)百雞 。 假定小雞每只 5角 ， 公雞每只 2元 ，母雞每只 3元 ， 編程求解購(gòu)雞方案 。 分析： (1) 設(shè)母雞 、 公雞 、 小雞各為 x、 y、 z， 列出方程為： x+y+z= 100 3x+2y+ = 100 三個(gè)未知數(shù) ， 兩個(gè)方程 ， 此題求若干個(gè)整數(shù)解 。 (2) 計(jì)算機(jī)求解此類問(wèn)題 ， 采用試湊法 (也稱窮舉法 )來(lái)實(shí)現(xiàn) ， 即將可能出現(xiàn)的各種情況一一羅列測(cè)試 ， 判斷是否滿足條件 ， 采用循環(huán)結(jié)構(gòu)來(lái)實(shí)現(xiàn) 。 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 112 綜合應(yīng)用 遞推法 遞推 (迭代 )法基本思想是把一個(gè)復(fù)雜的計(jì)算過(guò)程轉(zhuǎn)化為簡(jiǎn)單過(guò)程的多次重復(fù) 。 每次都從舊值的基礎(chǔ)上遞推出新值 ， 并由新值代替舊值 。 例 小猴有桃若干 ， 第一天吃掉一半多一個(gè)；第二天吃剩下桃子的一半多一個(gè)；以后每天都吃尚存桃子的一半多一個(gè) ， 到第 7天只剩一個(gè) ， 問(wèn)小猴原有桃多少 ？ 分析： 用 后一天的 數(shù)推出前一天的桃子 數(shù) 。 設(shè)第 n天的桃子為 xn， 是前一天的桃子的二分之一減去 1。 2)1(121 11 ????? ?? nnnn xxxx 也就是：即：迭代法 類似的應(yīng)用求高次方程的近似根。 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 113 程序調(diào)試 隨著程序的復(fù)雜性提高 ， 程序中的錯(cuò)誤也伴隨而來(lái) 。 對(duì)初學(xué)者 ， 看到出現(xiàn)錯(cuò)誤不要害怕 ，關(guān)鍵是如何改正錯(cuò)誤 ， 失敗是成功之母 。 上機(jī)的目的 ， 不光是為了驗(yàn)證你編寫(xiě)的程序的正確性 ， 還要通過(guò)上機(jī)調(diào)試 ， 學(xué)會(huì)查找和糾正錯(cuò)誤的方法和能力 。 VB為調(diào)試程序提供了一組交互的 、 有效的調(diào)試工具 ， 在此逐一介紹 。 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 114 錯(cuò)誤類型 語(yǔ)法錯(cuò)誤、運(yùn)行時(shí)錯(cuò)誤和邏輯錯(cuò)誤三類。 語(yǔ)法錯(cuò)誤 本章目錄 錯(cuò)誤的代碼顯示為紅色，窗口上顯示出錯(cuò)的原因。 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 115 運(yùn)行錯(cuò)誤 指令代碼執(zhí)行了一非法操作引起的。例如，類型不匹配、試圖打開(kāi)一個(gè)不存在的文件等。程序會(huì)自動(dòng)中斷，并給出有關(guān)的錯(cuò)誤信息。 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 116 邏輯錯(cuò)誤 程序運(yùn)行后，得不到所期望的結(jié)果，這說(shuō)明程序存在邏輯錯(cuò)誤。例如，運(yùn)算符使用不正確、語(yǔ)句的次序不對(duì)、循環(huán)語(yǔ)句的起始、終值不正確等。通常，邏輯錯(cuò)誤不會(huì)產(chǎn)生錯(cuò)誤提示信息，故錯(cuò)誤較難排除，需要程序員仔細(xì)地閱讀分析程序，并具有調(diào)試程序的經(jīng)驗(yàn)。 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 117 調(diào)試和排錯(cuò) VB的三種模式 (1) 設(shè)計(jì)模式 (設(shè)計(jì) ) 可以進(jìn)行程序的界面設(shè)計(jì)、屬性設(shè)置、代碼編寫(xiě)等。 (2) 運(yùn)行模式 (運(yùn)行 ) 執(zhí)行啟動(dòng)命令進(jìn)入運(yùn)行模式。在此階段，可以查看程序代碼，但不能修改。 (3) 中斷模式 (Break) 執(zhí)行中斷命令，進(jìn)入中斷模式。在中斷模式下可以查看代碼、修改代碼、檢查數(shù)據(jù)。 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 118 設(shè)置的斷點(diǎn) 逐語(yǔ)句跟蹤 查看變量的值 調(diào)試和排錯(cuò) 插入斷點(diǎn) 按下 F9鍵 按 F8鍵跟蹤執(zhí)行 鼠標(biāo)指向所關(guān)心的變量 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 119 本章小節(jié) 結(jié)構(gòu)化程序設(shè)計(jì)三種結(jié)構(gòu) 順序結(jié)構(gòu) 、 選擇結(jié)構(gòu) 、 循環(huán)結(jié)構(gòu) If…Then 語(yǔ)句、 Select Case語(yǔ)句、 For與 Do循環(huán)語(yǔ)句 賦值語(yǔ)句與復(fù)合賦值語(yǔ)句 數(shù)據(jù)輸出和輸入 InputBox、 MsgBox 常用算法 素?cái)?shù)判定 、 級(jí)數(shù)求和 、 試湊法 、 迭代法解 方程 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 120 第 5章 數(shù)組和自定義類型 數(shù)組的概念 數(shù)組的基本操作和排序 列表框和組合框控件 自定義類型及其數(shù)組 綜合應(yīng)用 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 121 數(shù)組的概念 1. 引例 例 求 100個(gè)學(xué)生的平均成績(jī) ， 并統(tǒng)計(jì)高于平均分的人數(shù) 。 用簡(jiǎn)單變量和循環(huán) ， 求平均成績(jī)程序段如下： aver = 0 For i = 1 To 100 mark = InputBox(輸入學(xué)生成績(jī) ) aver = aver + mark Next i aver = aver / 100 由于循環(huán)體內(nèi)變量 mark只能放一個(gè)學(xué)生的成績(jī) ， 無(wú)法統(tǒng)計(jì)高于平均分的人數(shù) 。 若用簡(jiǎn)單變量保存 100個(gè)學(xué)生的成績(jī) ， 則需定義 100個(gè)變量和使用 100句輸入語(yǔ)句 。 由此引入了數(shù)組 。 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 122 用數(shù)組 解決問(wèn)題的程序如下： Dim mark(99) As Integer 39。 聲明數(shù)組 mark Dim aver!, overn%, i% aver = 0 For i = 0 To 99 39。 輸入成績(jī) ， 求分?jǐn)?shù)和 mark(i) = InputBox(輸入學(xué)生的成績(jī) ) aver = aver + mark(i) Next i aver = aver / 100 39。 求 100人的平均分 overn = 0 For i = 0 To 99 39。 統(tǒng)計(jì)高于平均分的人數(shù) If mark(i) aver Then overn = overn + 1 Next i MsgBox (平均分 : amp。 aver amp。 高于平均分人數(shù) : amp。 overn) 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 123 數(shù)組不是一種數(shù)據(jù)類型 ， 而是一組相同類型的變量的集合 。 程序中使用數(shù)組的最大好處是用一個(gè)數(shù)組名代表邏輯上相關(guān)的一批數(shù)據(jù) ， 用下標(biāo)表示該數(shù)組中的各個(gè)元素 ，和循環(huán)語(yǔ)句結(jié)合使用 ， 使得程序書(shū)寫(xiě)簡(jiǎn)潔 。 數(shù)組必須先聲明后使用 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 124 數(shù)組不是一種數(shù)據(jù)類型 ， 而是一組相同類型的變量的集合 。 程序中使用數(shù)組的最大好處是用一個(gè)數(shù)組名代表邏輯上相關(guān)的一批數(shù)據(jù) ， 用下標(biāo)表示該數(shù)組中的各個(gè)元素 ， 和循環(huán)語(yǔ)句結(jié)合使用 ， 使得程序書(shū)寫(xiě)簡(jiǎn)潔 。 數(shù)組必須先聲明后使用 使 用 Dim語(yǔ)句聲明 數(shù)組名 、 類型 、 維數(shù) 、 數(shù)組大小 聲明時(shí)下標(biāo)的個(gè)數(shù)確定數(shù)組的維數(shù) ,數(shù)組 聲明后在內(nèi)存可分配一塊連續(xù)的區(qū)域 。 本章目錄 安徽工業(yè)大學(xué)計(jì)算機(jī)學(xué)院 125