vb程序設(shè)計(jì)習(xí)題及答案第7章過程(編輯修改稿)
2024-07-11 11:08 本頁面
【文章內(nèi)容簡介】 )))的值。 a， b 的值由鍵盤輸入。 【參考答案】 程序代碼設(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é)果 :。 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 所示。 7． 8 編寫程序 ,利用 Sub過程計(jì)算 5 4的數(shù)組中 ,每行最大元素及其位置和每列最大元素及其位置。 【參考答案】 說明： 采用隨機(jī)函數(shù) Rnd 產(chǎn)生 20 個(gè) 1～ 20 之間 的隨機(jī)整數(shù)，存放在數(shù)組 a 中。 程序代碼設(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 j Print Next i For i = 1 To 5 Call hd(a(), i, m) Print 第 。 i。 行 。 最大元素是 :。 a(i, m)。 位置在第 。 m。 列 Next i Print For j = 1 To 4 Call ld(a(), j, n) Print 第 。 j。 列 。 最大元素是 :。 a(n, j)。 位置在第 。 n。 行 Next j End Sub Private Sub hd(x() As Integer, i, m) Max = x(i, 1) m = 1 For j = 2 To 4 If x(i, j) Max Then Max = x(i, j) m = j End If Next j End Sub 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 i End Sub 圖 78 程序運(yùn)行結(jié)果 程序運(yùn)行結(jié)果如圖 78 所示： 7． 9 編寫程序 ,要求該程序在輸入某人的編號、實(shí)發(fā)工資數(shù)額后 ,自動(dòng)確定發(fā)給多少張一百元、五十元、十元、五元、一元、五角、一角、五分、一分的鈔票 ,并輸出實(shí)發(fā)工資總額和所需各種鈔票的總數(shù)目。 (要求用 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)
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號-1