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