vb程序設(shè)計(jì)習(xí)題及答案第7章過(guò)程(存儲(chǔ)版)
【正文】 rm_Click() Dim a(1 To 5) As Integer a(1) = 40 a(2) = 16 a(3) = 34 a(4) = 26 a(5) = 52 a1 = a(1) a2 = a(2) b = gcd(a1, a2) d = b c = a(1) * a(2) / b For i = 3 To 5 a1 = c a2 = a(i) b = gcd(a1, a2) c = c * a(i) / b Next i Print 最小公倍數(shù)為 ： 。 程序代碼設(shè)計(jì) Private Sub Form_Click() Dim a(1 To 5, 1 To 4) As Integer Randomize Timer 圖 76 程序運(yùn)行結(jié)果 圖 77 程序運(yùn)行結(jié)果 For i = 1 To 5 For j = 1 To 4 a(i, j) = Int(20 * Rnd + 1) Print Format(a(i, j), )。 列 Next i Print For j = 1 To 4 Call ld(a(), j, n) Print 第 。 (要求用 Sub 過(guò)程處理除一百元以外的鈔票的數(shù)目 ) 【參考答案】 程序代碼設(shè)計(jì) Private Sub Form_Click() num = Val(InputBox(輸入職工編號(hào) :)) s$ = InputBox(輸入職工工資 :) l = Len(s$) s0 = Val(Left$(s$, l 5)) Call fenp(l, s$, s1, s2, s3, s4, s5, s6, s7, s8) Print 職工編號(hào) :。 s5 Print 1 角 。 。 。 。 Next j Print Next i End Sub 程序運(yùn)行結(jié)果如圖 712 所示 . 圖 712 程序運(yùn)行結(jié)果 。 (要求 :學(xué)生的學(xué)號(hào) ,每門課的成績(jī)以及成績(jī)單的打印 由主程序完成。 。 )10=(。 s3 Print 1 元 。 n。 位置在第 。 7． 8 編寫程序 ,利用 Sub過(guò)程計(jì)算 5 4的數(shù)組中 ,每行最大元素及其位置和每列最大元素及其位置。 =。 【參考答案】 程序代碼設(shè)計(jì) Private Sub Form_Click() Print 2。 (2) 利用 Function 過(guò)程判斷每個(gè)數(shù)是否為素?cái)?shù) ,是返回 1,否則返回 0。 x。 t End Sub Private Function f(x) If x 0 Then f = Cos(2 * x) ElseIf x = 3 Then f = Int(6 * x * x 5 * x + 1) Else f = Exp(3 x) End If End Function 運(yùn)行結(jié)果： 如 a、 b 的值分別輸入為 3 和 5 則程序運(yùn)行結(jié)果如圖 77 所示。 a(i, m)。 位置在第 。 s2 Print 5 元 。 aa。 圖 79 程序運(yùn)行結(jié)果 ElseIf b(i) = 13 Then Print d。 m End Sub 程序運(yùn)行結(jié)果如圖 710 所示： 7． 11 編寫 Sub 過(guò)程 ,用于計(jì)算 n個(gè)學(xué)生 m門課的平均成績(jī) ,并按平均成績(jī)的優(yōu)劣 ,打印學(xué)生的名次、學(xué)號(hào)和平均成績(jī)。 圖 711程序運(yùn)行結(jié)果 For j = 1 To 2 * i 1 Print a$。 no(i)。 ElseIf b(i) = 15 Then P
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1