vb程序設(shè)計(jì)習(xí)題及答案第7章過程-文庫吧資料
2025-06-13 11:08本頁面
【正文】 oop End Sub Private Sub zhuanh(a, b() As Integer, m) aa = a k = 1 Do Until a = 0 r = a Mod m b(k) = r k = k + 1 a = a \ m Loop k = k 1 Print (。 s7 Print 1 分 。 s5 Print 1 角 。 s3 Print 1 元 。 s1 Print 10 元 。 s$ Print 100 元 。 (要求用 Sub 過程處理除一百元以外的鈔票的數(shù)目 ) 【參考答案】 程序代碼設(shè)計(jì) Private Sub Form_Click() num = Val(InputBox(輸入職工編號 :)) s$ = InputBox(輸入職工工資 :) l = Len(s$) s0 = Val(Left$(s$, l 5)) Call fenp(l, s$, s1, s2, s3, s4, s5, s6, s7, s8) Print 職工編號 :。 n。 a(n, j)。 列 。 列 Next i Print For j = 1 To 4 Call ld(a(), j, n) Print 第 。 位置在第 。 最大元素是 :。 i。 程序代碼設(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), )。 7． 8 編寫程序 ,利用 Sub過程計(jì)算 5 4的數(shù)組中 ,每行最大元素及其位置和每列最大元素及其位置。 【參考答案】 程序代碼設(shè)計(jì) Private Sub Form_Click() a = Val(InputBox(輸入 a 的值 :)) b = Val(InputBox(輸入 b 的值 :)) t = f(f(f(a))) + f(f(2 + f(b))) Print 計(jì)算結(jié)果 :。 d End Sub Private Function gcd(x, y) If x y Then t = x x = y y = t End If r = x Mod y Do While r 0 x = y y = r r = x Mod y Loop gcd = y 圖 75 程序運(yùn)行結(jié)果 End Function 程序運(yùn)行結(jié)果如圖 76 所示 ： 7． 7 利用 Function 過程計(jì)算下式的值 : cos2x (0x) f(x)= int(6x25x+1) (0≤ x≤ 3) e3x (3x) 調(diào)用該 Function 過程計(jì)算 f(f(f(a)))+f(f(2+f(b)))的值。 【參考答案】 程序代碼設(shè)計(jì) Private Sub Form_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
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號-1