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