原创力文档- 3
- 0
- 约1.45千字
- 约 3页
- 2018-03-29 发布于河南
- 举报
2002秋上机5
江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷（2002年秋） 二级 Visual Basic 语言（试卷代号VB05） （本试卷完成时间 70分钟）
[试卷须知] 1． 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考； 2． 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分； 3． 程序代码书写应呈锯齿形。
一、 改错题（17分）
[题目]下面程序的功能是从菲波那契数列中找出长度为两位和三位的非素数元素。
注：菲波那契数列即：
?
Option Explicit Private Function fib(n As Integer) As Long If n = 1 And n = 2 Then ?????fib = 1 Else ?????fib = fib(n - 1) + fib(n - 2) End If End Function
Private Function Prime(n As Integer) As Boolean Dim k As Integer Prime = False For k = 2 To Sqr(n) 牋牋營f n Mod k = 0 Then Exit Function Next k Prime = True End Function
Private Sub
文档评论（0）