vb程序設(shè)計(jì)習(xí)題及答案第5章循環(huán)結(jié)構(gòu)程序設(shè)計(jì)-預(yù)覽頁(yè)
【正文】 5．4 試編寫(xiě)打印下面圖案的源程序。 Next j Next i For k = 3 To 1 Step 1 Tab(10 k)。 Sum圖55（1）程序運(yùn)行結(jié)果End Sub SumEnd Sub SumEnd Sub SumEnd SubPrivate Sub Form_Load() = True 計(jì)算1+1/2+1/3+……+1/N 單擊窗體開(kāi)始End Sub程序運(yùn)行結(jié)果如圖55（5）所示：圖55（5）程序運(yùn)行結(jié)果【參考答案】程序代碼設(shè)計(jì)Private Sub Form_Click() s = 0 For i = 1 To 10 a = Int(10 * Rnd) b = Int(10 + 90 * Rnd) str1$ = 第 amp。 + amp。 第二次回答)) If a + b = c Then s = s + 5 str2$ = str1$ amp。Private Sub Form_Load() = True 加法題，第一次回答正確10分， 第二次回答正確5分 單擊窗體開(kāi)始End Sub圖56 程序運(yùn)行結(jié)果程序運(yùn)行結(jié)果如圖56所示： n。Private Sub Form_Load() = True 貸款額10萬(wàn)元，年利率7% 計(jì)算還貸數(shù)據(jù) 單擊窗體開(kāi)始End Sub圖57 程序運(yùn)行結(jié)果程序運(yùn)行結(jié)果如圖57所示：5．9 一個(gè)球從10米的高處落下，它每次反彈的高度為前一次下落高度的2/3，編寫(xiě)程序計(jì)算球第10次落地時(shí)運(yùn)動(dòng)的總路程。對(duì)一個(gè)分?jǐn)?shù)化簡(jiǎn)，實(shí)際是要尋找分子N與分母M的最大公因子。 nEnd Sub程序運(yùn)行結(jié)果如圖510所示：圖510 程序運(yùn)行結(jié)果到第十天一看，只剩一顆糖果。Private Sub Form_Load() = True 計(jì)算糖果數(shù) 單擊窗體開(kāi)始End Sub程序運(yùn)行結(jié)果如圖511所示： y。 y?！緟⒖即鸢浮砍绦虼a設(shè)計(jì)Private Sub Form_Click() k = 0 For n = 3 To 100 For i = 2 To n 1 If n Mod i = 0 Then Exit For Next i If i n 1 Then k = k + 1: Print Format(n, )。【參考答案】程序代碼設(shè)計(jì)Private Sub Form_Click() n = Val(InputBox(輸入一個(gè)大于6的偶數(shù))) If n = 6 Or n Mod 2 0 Then 數(shù)據(jù)錯(cuò)誤 Else For m1 = 2 To n / 2 m2 = n m1 f = 0 For i = 2 To m1 1 If m1 Mod i = 0 Then f = 1: Exit For Next i For i = 2 To m2 1 If m2 Mod i = 0 Or f = 1 Then f = 1: Exit For Next i If f = 0 Then Print m
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1