青島科技大學(xué)vb答案實驗四

1、實驗四 循環(huán)結(jié)構(gòu)程序設(shè)計（ 4 個學(xué)時）、實驗?zāi)康?. 掌握 For 循環(huán)語句的使用。2. 掌握單 Do 循環(huán)語句的使用。3. 掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。、實驗內(nèi)容1. 設(shè)計一個程序：用 For 循環(huán)語句計算 1 n （正整數(shù) ）的所有的偶數(shù)之和。要求 : 程序運行后，單擊窗體彈出一個輸入框由用戶輸入n 的值，然后在窗體上顯示計算的結(jié)果。1）代碼設(shè)計如下Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integer a = InputBox(" 請輸入 n 值", n, "&

2、quot;) For b = 2 To aIf b Mod 2 = 0 Then c = c + bEnd If Next b Print cEnd Sub2）將輸入 100 時的運行結(jié)果的界面截下來粘貼在下面：3）調(diào)試過程記錄（錯誤情況及改正方法）2設(shè)計程序：求 100 以內(nèi)所有 19 的倍數(shù)的數(shù)。并求這些數(shù)的和。 要求：點擊“顯示”按鈕時，將結(jié)果顯示在窗體上。 點擊“求和”按鈕時，將結(jié)果顯示在一個文本框中。1)代碼設(shè)計如下Dim b As Integer, c As IntegerPrivate Sub Command1_Click()For b = 1 To 100If b Mod 19

3、 = 0 ThenPrint bEnd IfNext bEnd SubPrivate Sub Command2_Click()For b = 1 To 100If b Mod 19 = 0 Thenc = c + bEnd IfNext bText1.Text = cEnd Sub2）將運行結(jié)果的界面截下來粘貼在下面3）調(diào)試過程記錄（錯誤情況及改正方法）3. 設(shè)計一個程序：我國今年的國民生產(chǎn)總值為 45600 億元，若今后每年以 9%的增長率增長，計算 多少年后能實現(xiàn)國民生產(chǎn)總值翻一番？要求：單擊“計算”按鈕時，將計算的結(jié)果顯示在窗體上。1）代碼設(shè)計Private Sub Command1_C

4、lick()Dim a As Long, b As Long, c As Integer a = 45600: b = 2 * a: c = 0Do While a <b a = 1.09 * a c = c + 1 Loop Print c End Sub2）將運行結(jié)果的界面截下來粘貼在下面3）調(diào)試過程記錄（錯誤情況及改正方法）4. 編寫一個程序，點擊窗體時在窗體上輸出所有水仙花數(shù)（水仙花數(shù)是指一個三位十進制正整數(shù)，該數(shù)的各位數(shù)字的立方和等于該數(shù)本身，例如 153是個水仙花數(shù)，因為 13+53+33 =153 ）。1)代碼設(shè)計Private Sub Form_Click()Dim a

5、As Integer, b As Integer, c As IntegerFor a = 1 To 9For b = 0 To 9For c = 0 To 9If (100 * a + 10 * b + c) = (a 3 + b 3 + c 3) ThenPrint a & b & cEnd IfNext cNext bNext aEnd Sub2）將程序運行的結(jié)果圖截下粘貼在下面。3）調(diào)試過程記錄（錯誤情況及改正方法）5. 編寫一個程序解百馬百瓦古題：大、小馬和馬駒共100匹，共馱 100 片瓦，大馬一馱三，小馬馱二，馬駒二馱一，一次馱完，三種馬都馱，共有多少種組合？ 要

6、求：單擊窗體將結(jié)果顯示在窗體上。1)代碼設(shè)計Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integer, d As Integer d = 0For a = 1 To 100For b = 1 To (100 - a)c = 100 - a - bIf (3 * a + 2 * b + c / 2) = 100 Thend = d + 1Print d; Tab; " 大馬" & a & " 匹" Tab; "小馬" & b &

7、; " 匹" Tab; "馬駒" & c & " 匹" Print "*"End IfNext bNext aPrint "共有" & d & " 種方法 "End Sub2) 將程序運行的結(jié)果圖截下粘貼在下面。3）調(diào)試過程記錄（錯誤情況及改正方法）錯誤 For a = 0 To 100For b = 0 To (100 - a)For c = 0 To (100-a-b)If (3 * a + 2 * b + c / 2) = 100 Thend = d + 1Print d; Tab; " 大馬" & a & " 匹" Tab; "小馬" & b & " 匹" Tab; "馬駒" & c &