VB實驗6簡單循環(huán)程序設(shè)計

1、 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識Visual BasicVisual Basic程序設(shè)計實驗指導(dǎo)程序設(shè)計實驗指導(dǎo)第1頁 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第2頁掌握掌握For/Next、Do/Loop、While/Wend語句語句的基本語法和執(zhí)行過程的基本語法和執(zhí)行過程掌握以下基本算法的應(yīng)用：累加、連乘掌握以下基本算法的應(yīng)用：累加、連乘掌握掌握Rnd函數(shù)的使用、判斷水仙花數(shù)的方法函數(shù)的使用、判斷水仙花數(shù)的方法掌握在文本框中每行輸出一定數(shù)目的數(shù)據(jù)掌握在文本框中每行輸出一定數(shù)目的數(shù)據(jù)（如每行輸出（如每行輸出5個）的方法。個

2、）的方法。 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第3頁在在Visual Basic中實現(xiàn)循環(huán)結(jié)構(gòu)最常用的兩種循中實現(xiàn)循環(huán)結(jié)構(gòu)最常用的兩種循環(huán)語句是環(huán)語句是For/Next循環(huán)語句和循環(huán)語句和Do/Loop循環(huán)語句。循環(huán)語句。在循環(huán)次數(shù)已知的情況下，常使用在循環(huán)次數(shù)已知的情況下，常使用For/Next循環(huán)循環(huán)語句，其格式如下：語句，其格式如下：For = To Step 循環(huán)體語句循環(huán)體語句 Exit For 循環(huán)體語句循環(huán)體語句Next 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第4頁說明：說明：在循環(huán)體內(nèi)對循環(huán)控制變量可以多次引用

3、，但在循環(huán)體內(nèi)對循環(huán)控制變量可以多次引用，但不要對其賦值，否則會影響原來的循環(huán)控制規(guī)不要對其賦值，否則會影響原來的循環(huán)控制規(guī)律。律。For/Next循環(huán)語句在循環(huán)語句在 = ，并且并且為非零時，循環(huán)將執(zhí)行一次；在如為非零時，循環(huán)將執(zhí)行一次；在如下情況時，循環(huán)不會執(zhí)行。下情況時，循環(huán)不會執(zhí)行。 初值初值 終值終值 ，并且，并且為零或正數(shù)。為零或正數(shù)。 初值初值 終值終值 ，并且，并且為負數(shù)。為負數(shù)。注意注意: 一旦進入循環(huán)，其一旦進入循環(huán)，其“終值終值”和和“步長步長”不會再不會再改變。改變。 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第5頁在循環(huán)次數(shù)未知時，常使用在

4、循環(huán)次數(shù)未知時，常使用Do/Loop循環(huán)語句，循環(huán)語句，其一般形式如下其一般形式如下:第一種形式：第一種形式：Do While 循環(huán)體語句 Exit Do 循環(huán)體語句 Loop 第二種形式：第二種形式：Do Until 循環(huán)體語句 Exit Do 循環(huán)體語句Loop 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第6頁第三種形式：第三種形式：Do 循環(huán)體語句 Exit Do 循環(huán)體語句 Loop While 第四種形式：第四種形式：Do 循環(huán)體語句 Exit Do 循環(huán)體語句Loop Until 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第7

5、頁說明：說明：（1）在前面兩種形式中，邏輯判斷是在每一次循）在前面兩種形式中，邏輯判斷是在每一次循環(huán)的開始處進行的，所以有可能一次循環(huán)都不環(huán)的開始處進行的，所以有可能一次循環(huán)都不執(zhí)行。在后面兩種形式中，直到每次循環(huán)結(jié)束執(zhí)行。在后面兩種形式中，直到每次循環(huán)結(jié)束時，才進行邏輯判斷，因此，至少可以執(zhí)行一時，才進行邏輯判斷，因此，至少可以執(zhí)行一次循環(huán)。次循環(huán)。（2）While ，當條件成立時執(zhí)行循環(huán)；，當條件成立時執(zhí)行循環(huán)；Until ，當條件成立時跳出循環(huán)。，當條件成立時跳出循環(huán)。 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第8頁 目的和要求目的和要求上一頁上一頁下一頁下

6、一頁退退 出出預(yù)備知識預(yù)備知識第9頁 實驗6-1 實驗6-2 實驗6-3 實驗6-4 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第10頁【題目】【題目】隨機產(chǎn)生并顯示隨機產(chǎn)生并顯示10個個110之間的整數(shù)，之間的整數(shù)，分別求出其中的所有奇數(shù)之和和偶數(shù)之積分別求出其中的所有奇數(shù)之和和偶數(shù)之積 。 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第11頁【要求】【要求】利用利用For/Next、Do/Loop兩種循環(huán)語句加以實現(xiàn)。兩種循環(huán)語句加以實現(xiàn)?！痉治觥俊痉治觥浚?）為了產(chǎn)生某個范圍內(nèi)的隨機整數(shù)，可以使用如下）為了產(chǎn)生某個范圍內(nèi)的隨機整數(shù)，可

7、以使用如下公式：公式：Int(UpperBound - LowerBound + 1) * Rnd + LowerBound)其中，其中，UpperBound為隨機整數(shù)范圍的上限，而為隨機整數(shù)范圍的上限，而LowerBound則為隨機整數(shù)范圍的下限。根據(jù)此公式，則為隨機整數(shù)范圍的下限。根據(jù)此公式，如果要生成如果要生成110之間的隨機整數(shù)，使用之間的隨機整數(shù)，使用Int(10 1 + 1) * Rnd + 1)這個算術(shù)表達式即可。這個算術(shù)表達式即可。 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第12頁【分析】【分析】（2）累加定式）累加定式累加器累加器 Sum = 0

8、語句序列語句序列 Sum = Sum + 累加項累加項 其中，其中，Sum為累加值。為累加值。（3）累乘定式）累乘定式Item = 1語句序列語句序列 Item = Item * 累乘項累乘項 其中，其中，Item為累乘結(jié)果。為累乘結(jié)果。 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第13頁【實驗步驟】【實驗步驟】（1）界面設(shè)計）界面設(shè)計請參照圖請參照圖6-1所示的界面設(shè)計窗體。所示的界面設(shè)計窗體。（2）完善程序代碼）完善程序代碼（3）運行工程并保存文件）運行工程并保存文件運行程序，觀察運行結(jié)果，運行程序，觀察運行結(jié)果， 最后將窗體文件保最后將窗體文件保存為存為F6-

9、1.frm，工程文件保存為，工程文件保存為P6-1.vbp。 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第14頁【題目】【題目】編寫一個歌唱比賽統(tǒng)計選手得分的程序。編寫一個歌唱比賽統(tǒng)計選手得分的程序。 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第15頁【要求】【要求】（1）單擊）單擊“評委給分評委給分”按鈕，則利用鍵盤輸按鈕，則利用鍵盤輸入入10個個0100分之間的整數(shù)，同時顯示在文本分之間的整數(shù)，同時顯示在文本框中（每行顯示框中（每行顯示5個）。個）。（2）單擊）單擊“最后得分最后得分”按鈕，則計算選手的最按鈕，則計算選手的最后得分。選

10、手的最后得分計算方法為：在評委的后得分。選手的最后得分計算方法為：在評委的給分中，去掉一個最高分和一個最低分，最后計給分中，去掉一個最高分和一個最低分，最后計算平均分。算平均分。 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第16頁【分析】【分析】（1）要找出）要找出10個數(shù)的最大值和最小值，可以先假設(shè)第一個數(shù)的最大值和最小值，可以先假設(shè)第一個輸入的數(shù)據(jù)為最大和最小，將其分別賦給變量個輸入的數(shù)據(jù)為最大和最小，將其分別賦給變量maxValue和和minValue，然后依次與以后輸入的其他，然后依次與以后輸入的其他9個數(shù)據(jù)逐一進行個數(shù)據(jù)逐一進行比較，如果比比較，如果比ma

11、xValue大，則將之賦給大，則將之賦給maxValue，如果比，如果比minValue小，則將之賦給小，則將之賦給minValue，輸入數(shù)據(jù)完畢時，即可，輸入數(shù)據(jù)完畢時，即可得到得到10個數(shù)中的最大值和最小值。個數(shù)中的最大值和最小值。 （2）在文本框中顯示多項數(shù)據(jù)，需要先把各數(shù)據(jù)逐個）在文本框中顯示多項數(shù)據(jù)，需要先把各數(shù)據(jù)逐個連接在一起。如果將變量連接在一起。如果將變量a中的內(nèi)容連接到文本框中的內(nèi)容連接到文本框Text1現(xiàn)現(xiàn)有內(nèi)容的后面，可使用有內(nèi)容的后面，可使用Text1.Text = Text1.Text & a實現(xiàn)。實現(xiàn)。 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出

12、預(yù)備知識預(yù)備知識第17頁有時為了使顯示效果美觀，經(jīng)常需要進行換行處理。如有時為了使顯示效果美觀，經(jīng)常需要進行換行處理。如果每顯示一項換行，可使用果每顯示一項換行，可使用Text1.Text = Text1.Text & a & Chr(13) & Chr(10)。如果每顯示。如果每顯示5項后換行，項后換行，可以使用如下程序段：可以使用如下程序段：n = 0For a = k To w Text1.Text = Text1.Text & a n = n + 1 If n Mod 5 = 0 Then Text1.Text = Text1.Text & Ch

13、r(13) & Chr(10) End IfNext a 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第18頁【實驗步驟】【實驗步驟】（1）界面設(shè)計）界面設(shè)計請參照圖請參照圖6-2所示的界面設(shè)計窗體。所示的界面設(shè)計窗體。（2）完善程序代碼）完善程序代碼（3）運行工程并保存文件）運行工程并保存文件運行程序，觀察程序運行結(jié)果，最后將窗體文運行程序，觀察程序運行結(jié)果，最后將窗體文件保存為件保存為F6-2.frmF6-2.frm，工程文件保存為，工程文件保存為P6-2.vbpP6-2.vbp。 。 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識

14、第19頁【題目】【題目】求水仙花數(shù)。求水仙花數(shù)。水仙花數(shù)是指這樣的三位整數(shù)，它水仙花數(shù)是指這樣的三位整數(shù)，它各 位 數(shù) 字 的 立 方 和 恰 好 等 于 該 數(shù) 本 身 。 例 如各 位 數(shù) 字 的 立 方 和 恰 好 等 于 該 數(shù) 本 身 。 例 如153=1153=13 3+5+53 3+3+33 3。編程將所有的水仙花數(shù)顯示在窗體上，。編程將所有的水仙花數(shù)顯示在窗體上，并在文本框中顯示個數(shù)。并在文本框中顯示個數(shù)。 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第20頁【分析】【分析】（1）用循環(huán)語句列出）用循環(huán)語句列出100999之間的整之間的整數(shù)數(shù)i（窮舉法

15、）。（窮舉法）。（2）將）將i分解成個、十、百位（利用除法、分解成個、十、百位（利用除法、求余的方法）。求余的方法）。（3）判斷）判斷i是否等于其個位、十位和百位三是否等于其個位、十位和百位三個數(shù)的立方和，若是則輸出。個數(shù)的立方和，若是則輸出。 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第21頁【實驗步驟】【實驗步驟】（1）界面設(shè)計）界面設(shè)計請參照圖請參照圖6-3所示的界面設(shè)計窗體。所示的界面設(shè)計窗體。（2）完善程序代碼）完善程序代碼（3）運行工程并保存文件）運行工程并保存文件運行程序，觀察程序運行結(jié)果，最后將窗體文運行程序，觀察程序運行結(jié)果，最后將窗體文件保存為件保存為F6-3.frm，工程文件保存為，工程文件保存為P6-3.vbp。 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第22頁【題目】【題目】求級數(shù)和。求級數(shù)和。編程求下列級數(shù)的和，最后一項的值編程求下列級數(shù)的和，最后一項的值不小于不小于0.0000010.000001。 2311!2 !3!nXXXXSn 目的和要求目的和要求上一頁上一頁下一頁下一頁退退 出出預(yù)備知識預(yù)備知識第23頁【分析】【分析】從上面的求和展開式中可以看出，相從上面的求和展開式中可以看出，相鄰兩項之間存在著如下關(guān)系：鄰兩項之間存在著如下關(guān)系：利用循環(huán)可以求出利用循環(huán)可以求出S的近似