第8章习题解答.docVIP

习题 8 1. 简答题 1）什么是算法？算法有什么特性？如何表示一个算法？ 2）什么是结构化程序设计？它的三种基本结构是什么？它们有什么特点？ 3）分支和循环语句中的条件是什么表达式表示？ 4）Do While型循环结构的程序构造中，对循环结构的要求是什么？ 5）VBA过程有哪四种？过程与函数的定义、调用有哪些不同，调用的传值与传址有哪些不同？ 6）什么是全局变量、私有变量、静态变量，如何使用？ 2. 求程序运行结果题 1）试写出下列程序运行结果 Public Sub Fig1() Dim i As Integer Debug.Print Tab(10); * For i = 1 To 5 Debug.Print Tab(10 - i); *; Spc(i - 1); *; Spc(i - 1); * Next i For i = 4 To 1 Step -1 Debug.Print Tab(10 - i); *; Spc(i - 1); *; Spc(i - 1); * 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 i=; i Debug.Print x=; x Debug.Print y=; y 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 s=; s 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 解：n=10 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 = 1 ‘s=0 Do While i n ‘i=n s = s + i i = i + 1 Loop Debug.Print S=; s End Sub (2)程序的功能是计算公式Y=1-1/3！+1/5！-1/7！…，式中除第1项外，其余各项可用1/（2N+1）表示。 Public Sub 作业5() Dim mm, n, p, y, k As Double mm = Val(InputBox(请输入计算公式中1后面的项目个数)) n = 1: p = 1: y = 1 Do While n = mm k = 2 * n + 1 p = p * (k - 1) * k y = y + (-1) /