青島科技大學(xué)vb答案實(shí)驗(yàn)四

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

2、quot;) For b = 2 To aIf b Mod 2 = 0 Then c = c + bEnd If Next b Print cEnd Sub2）將輸入 100 時(shí)的運(yùn)行結(jié)果的界面截下來粘貼在下面：3）調(diào)試過程記錄（錯(cuò)誤情況及改正方法）2設(shè)計(jì)程序：求 100 以內(nèi)所有 19 的倍數(shù)的數(shù)。并求這些數(shù)的和。 要求：點(diǎn)擊“顯示”按鈕時(shí)，將結(jié)果顯示在窗體上。 點(diǎn)擊“求和”按鈕時(shí)，將結(jié)果顯示在一個(gè)文本框中。1)代碼設(shè)計(jì)如下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）將運(yùn)行結(jié)果的界面截下來粘貼在下面3）調(diào)試過程記錄（錯(cuò)誤情況及改正方法）3. 設(shè)計(jì)一個(gè)程序：我國(guó)今年的國(guó)民生產(chǎn)總值為 45600 億元，若今后每年以 9%的增長(zhǎng)率增長(zhǎng)，計(jì)算 多少年后能實(shí)現(xiàn)國(guó)民生產(chǎn)總值翻一番？要求：?jiǎn)螕簟坝?jì)算”按鈕時(shí)，將計(jì)算的結(jié)果顯示在窗體上。1）代碼設(shè)計(jì)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）將運(yùn)行結(jié)果的界面截下來粘貼在下面3）調(diào)試過程記錄（錯(cuò)誤情況及改正方法）4. 編寫一個(gè)程序，點(diǎn)擊窗體時(shí)在窗體上輸出所有水仙花數(shù)（水仙花數(shù)是指一個(gè)三位十進(jìn)制正整數(shù)，該數(shù)的各位數(shù)字的立方和等于該數(shù)本身，例如 153是個(gè)水仙花數(shù)，因?yàn)?13+53+33 =153 ）。1)代碼設(shè)計(jì)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）將程序運(yùn)行的結(jié)果圖截下粘貼在下面。3）調(diào)試過程記錄（錯(cuò)誤情況及改正方法）5. 編寫一個(gè)程序解百馬百瓦古題：大、小馬和馬駒共100匹，共馱 100 片瓦，大馬一馱三，小馬馱二，馬駒二馱一，一次馱完，三種馬都馱，共有多少種組合？ 要

6、求：?jiǎn)螕舸绑w將結(jié)果顯示在窗體上。1)代碼設(shè)計(jì)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) 將程序運(yùn)行的結(jié)果圖截下粘貼在下面。3）調(diào)試過程記錄（錯(cuò)誤情況及改正方法）錯(cuò)誤 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 &