习题8解答
2. 求程序运行结果题
1）试写出下列程序运行结果
Public Sub Fig1() Dim i As Integer
Debug.Print Tab(10); \ For i = 1 To 5
Debug.Print Tab(10 - i); \ Next i
For i = 4 To 1 Step -1
Debug.Print Tab(10 - i); \ Next i
Debug.Print Tab(10); \End Sub
解答： * *** * * * * * * * * * * * * * * * * * * * * * *** *
2）求下列程序运行结果
Public Sub 作业2()
Dim x, y, i As Double x = 0: y = 0 For i = 1 To 8
If i Mod 2 <> 0 Then x = x - i Else
y = y + i End If Next
Debug.Print \
Debug.Print \ Debug.Print \End Sub
解答：
i= 9 x=-16 y= 20
3）求下列程序的运行结果
Public Sub 作业3()
Dim m, s, k As Double m = 28 s = 0 k = 1
Do While k <= Int(m / 2) If Int(m / k) = m / k Then Debug.Print k s = s + k End If k = k + 1 Loop
Debug.Print \End Sub
解答：
1 2 4 7 14 s= 28
4）当n=10时，求下列程序运行结果
Public Sub 作业4()
Dim n, a1, a2, a3, i As Double
n = Val(InputBox(\请输入n，要求n>=3\ If n <= 2 Then Exit Sub End If a1 = 1 a2 = 1
Debug.Print a1; a2 For i = 2 To n - 1 a3 = a1 + a2 a1 = a2
a2 = a3
Debug.Print a3 Next End Sub
解答：
1 1 2 3 5 8 13 21 34 55 3. 改错题
1）程序改错,下面的每个程序均有两个错误，试调试修改正确。 (1)计算1+2+3+?+N的值。
Public Sub Sum()
Dim i, n, s, y, k As Double n = Val(InputBox(\请输入n\i = 1: s = 0 Do While i<=n s = s+ i i = i + 1 Loop
Debug.Print \End Sub
(2)程序的功能是计算公式Y=1-1/3！+1/5！-1/7！?，式中除第1项外，其余各项可用1/（2N+1）表示。 4. 编程题
1）已知
ì?X+Y???Z=íX*Y*Sgn(Y)???X/Y??当X
试编成求Z的值，请分别使用Select Case和If…ElseIf…EndIf编写程序。
2
2）编写程序，求一元二次方程Ax+Bx+C = 0的解，输入为系数A,B和C。 解答：
Public Sub exer841() Dim A, B, C As Double
Dim delta, r1, r2 As Double
A = Val(InputBox(\请输入A的值\B = Val(InputBox(\请输入B的值\C = Val(InputBox(\请输入C的值\delta = B * B - 4 * A * C If delta < 0 Then
Debug.Print \无解\ElseIf delta = 0 Then r1 = -B / (2 * A)
Debug.Print \唯一解为：\Else
r1 = (-B + Sqr(delta)) / (2 * A) r2 = (-B - Sqr(delta)) / (2 * A)
Debug.Print \解为：\End If End Sub
3）用整数0-6依次表示星期日、星期一、??、星期六，编程实现下列功能：
用键盘输入一个整数，在显示器上输出对应的中文表示星期几，如果键入的整数范围不在-1到6之内，则显示“输入数据错误”，返回要求再次键入正确数字。当键入-1时，程序终止。
4）乘火车旅行的行李收费标准如下：成年人可免费携带重量20公斤的行李，未成年人可免费携带10公斤的行李，超出这个重量，火车站将加收费用，收费标准是每公斤每百公里收费为0.20元，不足百公里按百公里记。试编程按不同类型的人和行李重量来记收费用。
解答：
Public Sub exer844() Dim person As Integer
Dim weight, charge As Double
person = Val(InputBox(\成年人;\未成年人\选择乘客类型\
weight = Val(InputBox(\输入行李重量\If person = 1 And weight > 20 Then charge = 0.2 * (weight - 20)
ElseIf person = 2 And weight > 10 Then charge = 0.2 * (weight - 10) Else
charge = 0 End If
Debug.Print \收费标准：\End Sub
5）编写程序完成求和S=1+(1+2)+(1+2+3)+?+（1+2+?+10）。如果求S=1! + 2! + 3! + ? + 10!，试编写程序并比较其同异。
解答：
Public Sub exer845() Dim i As Integer Dim s, sum As Long s = 0 sum = 0
For i = 1 To 10 s = s + i
sum = sum + s
Debug.Print s, sum Next End Sub
Public Sub exer845() Dim i As Integer Dim s, sum As Long s = 1 sum = 0
For i = 1 To 10 s = s * i
sum = sum + s
Debug.Print s, sum Next End Sub
6）编程求100到200之间即能被3整除又能被5整除的正整数的个数，并显示这些数。
解答：
Public Sub exer846() Dim i, count As Integer count = 0
For i = 100 To 200
If i Mod 15 = 0 Then count = count + 1 End If Next
Debug.Print count End Sub
7）编程完成下列图形的打印。其中第一个*所在列为第10行，第20列。