Visual Basic 6.0程序设计教程 第4版 习题答案 作者 罗朝盛 第5章 习题参考答案.docVIP

第6章 习题参考答案 一、判断题 题号 1 2 3 4 5 6 答案 √ √ × √ √ × 二、选择题 题号 1 2 3 4 5 答案 D C A D B 三、程序填空题 1.（1） nsp=true (2) m mod i=0 (3) p1 and p2 (4) p1=nsp(i) 2．（1） number(i,7) (2) (int n, int m) (3) number=number*10+m 四、程序阅读 1. a=9 b=4 2．(1) 36 25 16 9 4 1 (2) 1 4 9 9 4 1 3． 6 4. 1 4 6 五、编写程序 1. Public Function fact(x As Integer) As Single 求x! Dim f As Single, i As Integer f = 1 For i = 1 To x f = f * i 累积 Next i fact = f End Function Private Sub Form_Click() Dim n%, m%, y! Do m% = Val(InputBox(m=)) n% = Val(InputBox(n=)) Loop Until m = n And n = 0 y = fact(m) / (fact(n) * fact(m - n)) Print y End Sub 2 private sub Insertfun(a%(), y%) Dim i as integer,n as integer n=ubound(a) Redim preserve a(n+1) For i=ubound(a)-1 to 0 step -1 If y a(i) then a(i+1)=a(i) If i=0 then a(i)=y Else a(i+1)=y exit for end if next i 3. 判断是否为回文函数 Private Function Judge(str As String) As Boolean Dim i As Integer Judge = True 假设为回文 For i = 1 To Len(str) \ 2 依次判断对应位置的两个字符，只要有一组不等即不是回文 If Mid(str, i, 1) Mid(str, Len(str) + 1 - i, 1) Then Judge = False Exit Function End If Next i End Function 4. Private Sub Form_Click() Dim n%,x! n = Val(InputBox(n=)) x = Val(InputBox(x=)) Print fe(n, x) 调用求值函数过程 End Sub 求值函数过程 Public Function fe(n%, x!) As Single Dim i As Integer, t As Single fe = 1: t = 1 For i = 1 To n t = t * x / i t为通项 fe = fe + t Next i End Function 5. Public Function Jsuns(m As Integer) As Boolean Dim k As Integer, s As Integer s = 0 For k = 1 To m / 2 If m Mod k = 0 Then s = s + k Next k If m = s Then Jsuns = True Else Jsuns = False End If End Function 142 Visual Basic程序设计教程 123 第5章 过程与函数