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 Command1_click()Dim temp As String, k As Integer, p As Longk = 1: p = fib(k)Do Until Len(temp) 4牋牋爐emp = Str(p)牋牋營f Len(temp) = 2 Or Len(temp) = 3 Then牋牋牋牋牋List1.AddItem p牋牋燛nd If牋牋爇 = k + 1牋牋爌 = fib(k)Looptemp = For k = 0 To List1.ListCount牋牋營f Not Prime(List1.List(k)) Then 牋牋牋牋牋爐emp = temp List1.List(k) Chr(13) Chr(10)牋牋牋End IfNext kText1 = temp End Sub[要求]1． 新建工程，输入上述代码，改正程序中的错误；2． 该措时，不得增加或删除语句，但可适当调整语句的位置；3． 将窗体文件和工程文件分别命名F1.frm和P1.vbp,并保存到软盘A的根目录下。 二、编程题（23分） [题目]随机生成所有数组元素都是两位数的3×3的二维数组，找出其中不同行、不同列的三个数组元素的乘积最大的一组，并且这三个元素按下面的形式显示在图片框中。[编程要求]1． 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2． 按“计算”按钮，则开始运行程序，依照题目要求将随机生成的数组显示在图片框中，同时必须使用循环结构找出结果，并按图示格式显示在文本框中；按“结束”按钮，则结束程序运行；3． 程序中要有一个通用过程，其功能是找出符合条件的三个数组元素。[要求]将窗体文件和工程文件分别命名为F2.frm 和 P2.vbp，并保存到软盘A的根目录下。