VB程序設(shè)計(jì) 習(xí)題及答案第7章 過(guò)程

1、第7章 過(guò) 程71 編寫程序,利用Sub過(guò)程計(jì)算下式的值:s=a!+b!+c!a,b,c的值由鍵盤輸入【參考答案】程序代碼設(shè)計(jì)Private Sub Form_Click() Dim s As Integer, n As Integer For i = 1 To 3 n = InputBox(n=) Call fact(n, f) s = s + f Next i Print s=; sEnd SubPrivate Sub fact(n, f) f = 1 For i = 1 To n f = f * i Next i圖7-1程序運(yùn)行結(jié)果End Sub運(yùn)行結(jié)果：如a、b、c的值分別輸入為4、5

2、、6則程序運(yùn)行結(jié)果如圖7-1所示：72 編寫程序,打印100200之間的所有素?cái)?shù)。要求:(1) 每行輸出5個(gè)素?cái)?shù)。(2) 利用Function過(guò)程判斷每個(gè)數(shù)是否為素?cái)?shù),是返回1,否則返回0?！緟⒖即鸢浮砍绦虼a設(shè)計(jì)Private Sub Form_Click() Print 2; k = 1 For i = 3 To 100 f = prime(i) If f = 1 Then k = k + 1 If k Mod 5 = 0 Then Print i Else Print i; End If Next iEnd SubPrivate Function prime(n) prime = 1圖7

3、-2程序運(yùn)行結(jié)果 For i = 2 To n - 1 If n Mod i = 0 Then prime = 0: Exit For Next iEnd Function程序運(yùn)行結(jié)果如圖7-2所示：73 編寫程序,利用Function過(guò)程計(jì)算下式的值: (1+2+3+m)+(1+2+3+n) y = (1+2+3+p) 【參考答案】程序代碼設(shè)計(jì)Private Sub Form_Click() m = Val(InputBox(輸入m:) n = Val(InputBox(輸入n:) p = Val(InputBox(輸入p:) y = (sum(m) + sum(n) / sum(p) Pr

4、int sum=; yEnd SubPrivate Function sum(n) s = 0 For i = 1 To n s = s + i Next i sum = sEnd Function運(yùn)行結(jié)果：如輸入m值為：20，n值為：15，p值為：10圖7-3程序運(yùn)行結(jié)果則程序運(yùn)行結(jié)果如圖7-3所示：74 編寫Function過(guò)程計(jì)算n!,調(diào)用該函數(shù)過(guò)程計(jì)算下式的值:S=1+1/(1+4!)+1/(1+4!+7!)+1/(1+4!+19!)【參考答案】程序代碼設(shè)計(jì)Private Sub Form_Click() s = 0 t = 0 For i = 1 To 19 Step 3 t = t

5、 + fact(i) s = s + 1 / t Next i Print s=; sEnd SubPrivate Function fact(n) f = 1 For i = 1 To n f = f * i Next i fact = fEnd Function圖7-4程序運(yùn)行結(jié)果程序運(yùn)行結(jié)果如圖7-4所示。 x x2 x3 xn 7-5計(jì)算 ex = 1 + + + + + 1! 2! 3! n! xn 設(shè)x=1，2，3，4，5，6 時(shí)，分別打印ex 的值,要求精度 0.0001 n! 用Function過(guò)程計(jì)算n!,調(diào)用該過(guò)程,計(jì)算上式的值。【參考答案】程序代碼設(shè)計(jì)Private Su

6、b Form_Click() For x = 1 To 6 Sum = 1 t = 1 n = 0 Do n = n + 1 t = t * x term = t / fact(n) Sum = Sum + term Loop Until term 0.0001 Print e; x; =; Sum Next xEnd SubPrivate Function fact(n) f = 1 For i = 1 To n f = f * i Next i fact = fEnd Function程序運(yùn)行結(jié)果如圖7-5所示：圖7-5程序運(yùn)行結(jié)果76編寫兩個(gè)Function過(guò)程,分別計(jì)算40，16，34

7、，26，52的最大公約數(shù)和最小公倍數(shù)?！緟⒖即鸢浮砍绦虼a設(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 For i = 3 To 5 a1 = c a2 = a(i) b = gcd(a1, a2) c = c * a(i) / b Next i Print 最小公倍數(shù)為：; c For i = 3 To 5 d =

8、 gcd(d, a(i) Next i Print 最大公約數(shù)為：; dEnd SubPrivate 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 = yEnd Function圖7-6程序運(yùn)行結(jié)果程序運(yùn)行結(jié)果如圖7-6所示：77利用Function過(guò)程計(jì)算下式的值: cos2x (0 x) f(x)= int(6x2-5x+1) (0 x3) e3-x (3x) 調(diào)用該Function過(guò)程計(jì)算f(f(f(a)+f

9、(f(2+f(b)的值。a，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é)果:; tEnd Sub圖7-7程序運(yùn)行結(jié)果Private Function f(x) If x 0 Then f = Cos(2 * x) ElseIf x Max Then Max = x(i, j) m = j End If Next jEnd Sub圖7-8程序運(yùn)行結(jié)果Private Sub ld

10、(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é)果如圖7-8所示：79 編寫程序,要求該程序在輸入某人的編號(hào)、實(shí)發(fā)工資數(shù)額后,自動(dòng)確定發(fā)給多少?gòu)堃话僭⑽迨?、十元、五元、一元、五角、一角、五分、一分的鈔票,并輸出實(shí)發(fā)工資總額和所需各種鈔票的總數(shù)目。(要求用Sub過(guò)程處理除一百元以外的鈔票的數(shù)目)【參考答案】程序代碼設(shè)計(jì)Private Sub Form_Click() num = Val(Input

11、Box(輸入職工編號(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):; num, 職工工資:; s$ Print 100元; s0 Print 50元; s1 Print 10元; s2 Print 5元; s3 Print 1元; s4 Print 5角; s5 Print 1角; s6 Print 5分; s7 Print 1分; s8End Sub Private Sub fenp(l, s

12、$, 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 5End Sub程序運(yùn)行結(jié)果如圖7-9所示：（注意：輸入的工資保留到分）圖7-9程序運(yùn)行結(jié)果710 編寫程序,把任意一個(gè)十進(jìn)制

13、數(shù)N轉(zhuǎn)換成分別用二進(jìn)制、八進(jìn)制和十六進(jìn)制表示的數(shù)，要求用Sub過(guò)程實(shí)現(xiàn)數(shù)制的轉(zhuǎn)換?！緟⒖即鸢浮砍绦虼a設(shè)計(jì)Private Sub Form_Click() Dim b(30) As Integer Do Print 1-10進(jìn)制轉(zhuǎn)換為2進(jìn)制 Print 2-10進(jìn)制轉(zhuǎn)換為8進(jìn)制 Print 3-10進(jìn)制轉(zhuǎn)換為16進(jìn)制 Print 4-退出 n = Val(InputBox(請(qǐng)選擇1，2，3，或4:) Select Case n Case 1, 2, 3 a = Val(InputBox(請(qǐng)輸入一個(gè)10進(jìn)制整數(shù):) m = Val(InputBox(請(qǐng)輸入要轉(zhuǎn)換的進(jìn)制:) Call zhuanh

14、(a, b(), m) Case 4 Exit Do End Select LoopEnd 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 (; aa; )10=(; For i = k To 1 Step -1 If b(i) = 10 Then Print a; ; ElseIf b(i) = 11 Then Print b; ; ElseIf b(i) = 12 Then

15、Print c; ; ElseIf b(i) = 13 Then Print d; ; ElseIf b(i) = 14 Then Print e; ; ElseIf b(i) = 15 Then Print f; ; Else Print b(i); End If Next i Print ); mEnd Sub圖7-10程序運(yùn)行結(jié)果程序運(yùn)行結(jié)果如圖7-10所示：711 編寫Sub過(guò)程,用于計(jì)算n個(gè)學(xué)生m門課的平均成績(jī),并按平均成績(jī)的優(yōu)劣,打印學(xué)生的名次、學(xué)號(hào)和平均成績(jī)。(要求:學(xué)生的學(xué)號(hào),每門課的成績(jī)以及成績(jī)單的打印由主程序完成。)【參考答案】程序代碼設(shè)計(jì)Private Sub Form_

16、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é)號(hào) 平均成績(jī) For i = 1 To 5 Print i; ; no(i); ; aver(i) Next iEnd Sub圖7-11程序運(yùn)

17、行結(jié)果Sub sort(no&(), a%(), s%(), aver%(), n%, m%) For i = 1 To n s(i) = 0 For j = 1 To m s(i) = s(i) + a(i, j) Next j aver(i) = s(i) / m Next i For i = 1 To n - 1 For j = i + 1 To n If aver(i) aver(j) Then t = aver(i) aver(i) = aver(j) aver(j) = t k = no(i) no(i) = no(j) no(j) = k End If Next j Next iEnd Sub程序運(yùn)行結(jié)果如圖7-11所示：712 用Sub過(guò)程輸出由字符組成的三角形圖形,通過(guò)三次調(diào)用該過(guò)程，輸出下列三種圖形: A * O A A A * * * O O O A A A A A * * * * * O O O O O A A A A A A A * * * * * * * O O O O O O O A A A A A A A