VB程序设计 习题及答案第7章 过程.docVIP

第7章 过 程 ? 7．1 编写程序,利用Sub过程计算下式的值: s=a!+b!+c! a,b,c的值由键盘输入 【参考答案】 程序代码设计 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=; s End Sub ? Private Sub fact(n, f) f = 1 For i = 1 To n f = f * i Next i End Sub 运行结果： 如a、b、c的值分别输入为4、5、6 则程序运行结果如图7-1所示： ? 7．2 编写程序,打印100～200之间的所有素数。 要求: (1) 每行输出5个素数。 (2) 利用Function过程判断每个数是否为素数,是返回1,否则返回0。 【参考答案】 程序代码设计 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 i End Sub ? Private Function prime(n) prime = 1 For i = 2 To n - 1 If n Mod i = 0 Then prime = 0: Exit For Next i End Function 程序运行结果如图7-2所示： ? 7．3 编写程序,利用Function过程计算下式的值: (1+2+3+…+m)+(1+2+3+…+n) y = ─────────────── (1+2+3+…+p) 【参考答案】 程序代码设计 Private Sub Form_Click() m = Val(InputBox(输入m:)) n = Val(InputBox(输入n:)) p = Val(InputBox(输入p:)) y = (sum(m) + sum(n)) / sum(p) Print sum=; y End Sub ? Private Function sum(n) s = 0 For i = 1 To n s = s + i Next i sum = s End Function 运行结果： 如输入m值为：20，n值为：15，p值为：10 则程序运行结果如图7-3所示： ? 7．4 编写Function过程计算n!,调用该函数过程计算下式的值: S=1+1/(1+4!)+1/(1+4!+7!)+…+1/(1+4!+…+19!) 【参考答案】 程序代码设计 Private Sub Form_Click() s = 0 t = 0 For i = 1 To 19 Step 3 t = t + fact(i) s = s + 1 / t Next i Print s=; s End Sub ? Private Function fact(n) f = 1 For i = 1 To n f = f * i Next i fact = f End Function 程序运行结果如图7-4所示。 ? ? x x2 x3 xn 7-5计算 ex = 1 + ─ + ─ + ─ + … + ─ 1! 2! 3! n! xn 设x=1，2，3，4，5，6 时，分别打印ex 的值,要求精度─ 0.0001 n! 用Function过程计算n!,调用该过程,计算上式的值。 【参考答案】 程序代码设计 Private Sub Form_Click() For x = 1 To 6 S