vb程序設(shè)計 習(xí)題及答案第7章 過程-預(yù)覽頁
【正文】 7． 6 編寫兩個 Function 過程 ,分別計算 40， 16， 34， 26， 52 的最大公約數(shù)和最小公倍數(shù)。 a， b 的值由鍵盤輸入。 【參考答案】 說明： 采用隨機(jī)函數(shù) Rnd 產(chǎn)生 20 個 1～ 20 之間 的隨機(jī)整數(shù)，存放在數(shù)組 a 中。 行 。 m。 最大元素是 :。 行 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ù)額后 ,自動確定發(fā)給多少張一百元、五十元、十元、五元、一元、五角、一角、五分、一分的鈔票 ,并輸出實(shí)發(fā)工資總額和所需各種鈔票的總數(shù)目。 s0 Print 50 元 。 s4 Print 5 角 。 s8 End Sub Private Sub fenp(l, s$, s1, s2, s3, s4, s5, s6, s7, s8) l1 = Val(Mid$(s$, l 4, 1)) l2 = Val(Mid$(s$, l 3, 1)) l3 = Val(Mid$(s$, l 1, 1)) l4 = Val(Mid$(s$, l, 1)) s1 = l1 \ 5 s2 = l1 Mod 5 s3 = l2 \ 5 s4 = l2 Mod 5 s5 = l3 \ 5 s6 = l3 Mod 5 s7 = l4 \ 5 s8 = l4 Mod 5 End Sub 程序運(yùn)行結(jié)果如圖 79 所示： （注意：輸入的工資保留到分） 7． 10 編寫程序 ,把任意一個十進(jìn)制數(shù) N 轉(zhuǎn)換成分別用二進(jìn)制、八進(jìn)制和十六進(jìn)制表示的數(shù)，要求用 Sub 過程實(shí)現(xiàn)數(shù)制的轉(zhuǎn)換。 For i = k To 1 Step 1 If b(i) = 10 Then Print a。 ElseIf b(i) = 12 Then Print c。 ElseIf b(i) = 14 Then Print e。 Else Print b(i)。 ) 【參考答案】 程序代碼設(shè)計 Private Sub Form_Click() Dim no(5) As Long, a(5, 4) As Integer Dim s(5) As Integer, aver(5) As Integer For i = 1 To 5 no(i) = InputBox(no:) For j = 1 To 4 a(i, j) = InputBox(score:) Next j Next i Call sort(no(), a(), s(), aver(), 5, 4) Print 名次 學(xué)號 平均成績 For i = 1 To 5 Print i。 aver(i) Next i End Sub 圖 710程序運(yùn)行結(jié)果 Sub sort(no
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1