vb程序設(shè)計(jì)習(xí)題及答案第7章過程-在線瀏覽
2025-03-03 21:58本頁面
【正文】 tion 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 = yEnd Function圖76程序運(yùn)行結(jié)果程序運(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)))的值?！緟⒖即鸢浮砍绦虼a設(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é)果:。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 IfEnd Function運(yùn)行結(jié)果：如a、b的值分別輸入為3和5則程序運(yùn)行結(jié)果如圖77所示。7．8 編寫程序,利用Sub過程計(jì)算54的數(shù)組中,每行最大元素及其位置和每列最大元素及其位置。程序代碼設(shè)計(jì)Private Sub Form_Click() Dim a(1 To 5, 1 To 4) As Integer Randomize Timer For i = 1 To 5 For j = 1 To 4 a(i, j) = Int(20 * Rnd + 1) Print Format(a(i, j), )。 i。 最大元素是:。 位置在第。 列 Next i Print For j = 1 To 4 Call ld(a(), j, n) Print 第。 列。 a(n, j)。 n。Private Sub ld(x() As Integer, j, n) Max = x(1, j) n = 1 For i = 2 To 5 If x(i, j) Max Then Max = x(i, j) n = i End If Next iEnd Sub程序運(yùn)行結(jié)果如圖78所示：(要求用Sub過程處理除一百元以外的鈔票的數(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):。 s$ Print 100元。 s1 Print 10元。 s3 Print 1元。 s5 Print 1角。 s7 Print 1分。圖79程序運(yùn)行結(jié)果【參考答案】程序代碼設(shè)計(jì)Private Sub Form_Click() Dim b
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1