vb程序設(shè)計(jì)習(xí)題及答案第5章循環(huán)結(jié)構(gòu)程序設(shè)計(jì)(編輯修改稿)
2025-07-11 11:08 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 +1/3+?? +1/N=。 Sum End Sub Private Sub Form_Load() = True 計(jì)算 1+1/2+1/3+?? +1/N 單擊窗體開(kāi)始 End Sub 程序運(yùn)行結(jié)果 如圖 55（ 5）所示： 圖 55（ 4）程序運(yùn)行結(jié)果 由隨機(jī)函數(shù)產(chǎn)生 10道一位整數(shù)與兩位整數(shù)相加的加法題，產(chǎn)生的加法題依次顯示在屏幕上，每產(chǎn)生一道題后，由用戶(hù)輸入答案，如果答案正確，記 10 分；如果答案錯(cuò)誤，允許第二次輸入 答案，第二次輸入答案正確，記 5分，錯(cuò)誤記 0分。最后給出總得分。 【參考答案】 程序代碼設(shè)計(jì) Private Sub Form_Click() s = 0 For i = 1 To 10 a = Int(10 * Rnd) b = Int(10 + 90 * Rnd) str1$ = 第 amp。 i amp。 題 amp。 a amp。 + amp。 b c = Val(InputBox(str1$ amp。 第一次回答 )) If a + b = c Then s = s + 10 str2$ = str1$ amp。 10分 Else c = Val(InputBox(str1$ amp。 第二次回答 )) If a + b = c Then s = s + 5 str2$ = str1$ amp。 5分 Else str2$ = str1$ amp。 0分 End If End If str2$ Next i 總分 。 s End Sub Private Sub Form_Load() = True 加法題，第一次回答正確 10分， 第二次回答正確 5分 單擊窗體開(kāi)始 End Sub 圖 55（ 5）程序運(yùn)行結(jié)果 程序運(yùn)行結(jié)果 如圖 56 所示： 編寫(xiě) 計(jì)算還貸款年限的程序，從貸款的第三年開(kāi)始還貸，貸款年利按復(fù)利計(jì)算。貸款額 10萬(wàn)元，年利率 7%，每年還款數(shù) 3萬(wàn)元，要求輸出經(jīng)過(guò)多少年才能還清貸款，以及最后一年的還款數(shù)。 【參考答案】 程序代碼設(shè)計(jì) Private Sub Form_Click() Dim p As Single p = 10 r = n = 0 While (p 0) p = p * (1 + r) n = n + 1 If n = 3 Then p = p 3 Wend 還清貸款時(shí)間 amp。 n。 年 最后一年的還款 數(shù) amp。 (3 + p) amp。 萬(wàn) End Sub Private Sub Form_Load() = True 貸款額 10萬(wàn)元，年利率 7% 計(jì)算還貸數(shù)據(jù) 單擊窗體開(kāi)始 End Sub 程序運(yùn)行結(jié)果 如圖 57 所示： 輸入三角形的三條邊 A、 B、 C，根據(jù) A、 B、 C的數(shù)值判斷三角形的性質(zhì)，并給出如圖 56 程序運(yùn)行結(jié)果 圖 57 程序運(yùn)行結(jié)果 下信息：（ 1）等邊三角形；（ 2）等腰三角形；（ 3）任意三角形；（ 4）不能構(gòu)成三角形。 【參考答案】 (1)用戶(hù)界面設(shè)計(jì) (2)控件屬性設(shè)置 (略 ) (3)程序代碼設(shè)計(jì) Private Sub Command1_Click() a = Val() b = Val() c = Val() If (a = b And b =
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1