1、Visual Basic Visual Basic 程序設計程序設計目 錄 前言 第1講 第2講 第3講 第4講 第5講 第6講 第7講 第8講 第第9 9講講 第10講 第11講 第12講 第13講 第14講 第15講 第16講回想上一講學習的內容 多分支選擇構造及運用本卷須知多分支選擇構造及運用本卷須知 IfElseifElseEndifIfElseifElseEndif Select casecaseEnd selectSelect casecaseEnd select For For 循環(huán)構造循環(huán)構造練習題 執(zhí)行下面程序后，問循環(huán)次數和s的值。 S=5 For i=2.6 to 4.9

2、 step 0.6 S=s+1 Next i第五章第五章 根本的控制構造根本的控制構造 (5 (5學時學時判別條件進展循環(huán) WhileWhile循環(huán)循環(huán)While While wendwend DoDo循環(huán)循環(huán)例：設例：設s=123n，求求s不大于不大于4000時的最時的最大的大的n。Do循環(huán)控制構造Doloop循環(huán)：對于事先不知道循環(huán)次數的操作，運用Do循環(huán)方便有效。語法格式有四種： Do whileloop語句do while exit do loop條件條件循環(huán)體循環(huán)體TFExit Do循環(huán)體循環(huán)體Do循環(huán)控制構造條件條件循環(huán)體循環(huán)體FTExit Do循環(huán)體循環(huán)體循環(huán)體條件TFExit

3、Do循環(huán)體Do循環(huán)控制構造循環(huán)體循環(huán)體條件條件FTExit Do循環(huán)體循環(huán)體Do循環(huán)控制構造例題：輸出120之間能被3整除的 一切整數及它們的和 用ForNext循環(huán)實現 用Do WhileLoop循環(huán)實現 用DoLoop While循環(huán)實現 用Do UntilLoop循環(huán)實現多重循環(huán) 把循環(huán)體內不含有循環(huán)語句的循環(huán)叫單層循環(huán)，把循環(huán)體內又含有循環(huán)語句的循環(huán)叫多重循環(huán)多層循環(huán)或嵌套循環(huán) 在運用多重循環(huán)時，要留意循環(huán)的完好性，一個循環(huán)必需完全包含在另一個循環(huán)的內部，不能出現交叉景象。Exit forDo Until LoopDo while LoopNextForExit DoDo while

4、LoopDo while LoopLoopDo while =, n 例7： 用輾轉相除法求兩自然數m，n的最大公約數和最小公倍數 m n r14 6 2 6 2 0Do While m n If m n Then m = m - n Else n = n - m End IfLoopm n 14 6 8 6 2 6 2 4 2 2輾轉相減法求最大公約數輾轉相減法求最大公約數的算法：的算法：對于知兩數對于知兩數m m、n n： 假設假設mn mn 那么那么m mn nm m ，假設假設nmnm那么那么n nm mn n ； mn mn，反復執(zhí)行，反復執(zhí)行 ；假設假設m=nm=n，那么，那么m

5、m、n n為最大為最大公約數公約數輾輾轉轉相相減減 For i = 1 To 9 For j = 1 To 9 se = i & & j & = & i * j Picture1.Print Tab(j - 1) * 9 + 1); se; Next j Picture1.Print Next i思索：打印左下三角或右上三角，程序如何改動？思索：打印左下三角或右上三角，程序如何改動？例例8 8 打印九九乘法表打印九九乘法表For j = 1 To iFor j = i To 9選擇構造運用中的常見錯誤選擇構造運用中的常見錯誤1.不循環(huán)或死循環(huán)的問題不循環(huán)或死循環(huán)的問題 主要是循環(huán)條件、循環(huán)初值

6、、循環(huán)終值、循環(huán)步長的設置有問題。主要是循環(huán)條件、循環(huán)初值、循環(huán)終值、循環(huán)步長的設置有問題。2.循環(huán)構造中短少配對的終了語句循環(huán)構造中短少配對的終了語句 For 短少短少 配對的配對的Next 3.循環(huán)嵌套時循環(huán)嵌套時,內外循環(huán)交叉內外循環(huán)交叉4.累加、連乘時，存放累加、連乘結果的變量賦初值問題累加、連乘時，存放累加、連乘結果的變量賦初值問題 在一重循環(huán)中，存放累加、連乘結果的變量賦初值在一重循環(huán)中，存放累加、連乘結果的變量賦初值應在循環(huán)語句前。應在循環(huán)語句前。 多重循環(huán)多重循環(huán) 這要視詳細問題分別對待。這要視詳細問題分別對待。循環(huán)運用中的常見錯誤循環(huán)運用中的常見錯誤四.其他輔助控制語句作用：

7、作用：EndEnd終了一個程序的運轉；其他表示某個構造終了一個程序的運轉；其他表示某個構造的終了，與對應的構造語句配對出現。的終了，與對應的構造語句配對出現。語句方式如下： With 對象 語句塊 End With作用：對某個對象執(zhí)行一系列的操作，而不用反復指出對象的稱號。等價等價五、常用算法一五、常用算法一算法：是對某個問題求解過程的描畫。1.累加、連乘例:1100的5或7的倍數的和 Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If Next i Print Sum例:310的乘積

8、 t = 1 For i =3 To 10 t = t * i Next i Print t思索：假設把循環(huán)體前面置各變量初值的語句放在循環(huán)體內，程序運轉時會產生什么情況？m1i0ii!11i!1 . !1.3!1! 211!11ei例例4.14 4.14 求自然對數求自然對數e e的近似值的近似值要求：誤差小于0.00001，近似公式為:m1i0ii!11i!1 . !1.3!1! 211!11ei例例4.14 4.14 程序代碼程序代碼要求：誤差小于0.00001 NotNextM: NotNextM: Next m Next mm能否為素數求100以內的素數思索： 此例用Go To語句對

9、非素數不再判別，假設不用GoTo語句，如何修正程序？見例4.152.2.求素數求素數3.3.窮舉法窮舉法“窮舉法也稱為“枚舉法或“試湊法。即將能夠出現的各種情況一一測試，判別能否滿足條件，普通采用循環(huán)來實現。 例4.16：百元買百雞問題。假定小雞每只5角,公雞每只2元，母雞每只3元。如今有100元錢要求買100只雞，編程列出一切能夠的購雞方案。設母雞、公雞、小雞各為x、y、z只，根據標題要求，列出方程為：x+y+z=100 3x+2y+0.5z=100三個未知數，兩個方程，此題有假設干個解。采用“窮舉法，把每一種情況都思索到。 方法一：最簡單三個未知數利用三重循環(huán)來實現。 方法二：從三個未知數

10、的關系，利用兩重循環(huán)來實現。4.4.遞推法遞推法 “遞推法又稱為“迭代法，其根本思想是把一個復雜的計算過程轉化為簡單過程的多次反復。每次反復都從舊值的根底上遞推出新值，并由新值替代舊值。 例4.17 猴子吃桃子。小猴在一天摘了假設干個桃子，當天吃掉一半多一個；第二天接著吃了剩下的桃子的一半多一個；以后每天都吃尚存桃子的一半零一個，到第7天早上要吃時只剩下一個了，問小猴那天共摘下了多少個桃子？2) 1(12111nnnnxxxx也就是：即：例4.17 分析 這是一個“遞推問題，先從最后一天推出倒數第二天的桃子，再從倒數第二天的桃子推出倒數第三天的桃子。 設第n天的桃子為Xn，那么它是前一天的桃子

11、數。例：隨機產生例：隨機產生1010個個100100200200之間的數，求最大值。之間的數，求最大值。Private Sub Command1_Click() Max = 100 For i = 1 To 10 x = Int(Rnd * 101 + 100) Print x; If x Max Then Max = x Next i Print Print 最大值=; MaxEnd Sub5.5.最小、最大值最小、最大值 在假設干個數中求最大值，普通先假設一個較小的數為最大值的初值，假設無法估計較小的值，那么取第一個數為最大值的初值；然后將每一個數與最大值比較，假設該數大于最大值，將該數交換為最大值；依次逐一比較。例4.18 實踐運用，求最短殘料。 有一根長度為321米的鋼資料，要將它截取成兩種規(guī)格a、b的長度分別為17米和27米的短料，每種至少1段，問分隔成a,b各多少段后，剩余的殘料r最少？ 分析，該題利用“試湊法經過二重循環(huán)求殘料r的最小值正數，殘料不能夠是負數。 程序如下：本講