2002秋上机5.docVIP

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