07春VB上机.doc

江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷(2007春) 二级Visual Basic语言(试卷代号VB01) (本试卷完成时间70分钟) 【考试须知】 1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 2．考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不 予评分； 3．程序代码书写应呈锯齿形。 一、改错题(14分) 【题目】本程序的功能是：输入一个由正整数组成的数字串(各整数由逗号隔开，最后以#号结束)，从中找出所有是3的幂的数并显示在列表框中。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim S As String, ch As String, k As Integer Dim a() As Integer, t As Integer, i As Integer S = Text1 For i = 1 To Len(S) ch = Mid(S, i, 1) k = k + 1 If ch , And ch # Then t = t * 10 + Val(ch) Else ReDim Preserve a(k) a(k) = t t = 0 End If Next i For i = 1 To UBound(a) If Judge(a(i)) Then List1.AddItem a(i) Next i End Sub Private Function Judge(n As Integer) As Boolean Do While n 1 If n Mod 3 0 Then Exit Do End If n = n \ 3 Loop Judge = True End Function 【要求】 1．新建工程，输入上述代码，改正程序中的错误； 2．改错时，不得增加或删除语句，但可适当调整语句位置； 3．将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。 二、编程题(26分) 【题目】编写程序，找出满足下列条件的正整数：①该数的位数为N(N=3，4)；②该数的数字全部由偶数数字组成；③该数等于另一个由偶数数字组成的数的平方。 【编程要求】 1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界 面元素大小适中，且均可见； 2．在文本框中输入n值，按“运行”按钮，在规定范围内查找符合要求的数据并在列表框 中显示结果；按“清理”按钮，则将文本框及列表框清空，焦点置于文本框；按“结束”按钮，结束程序运行； 3．程序中应定义一个函数过程，用于判断一个数的各位数字均为偶数。 【要求】 将窗体文件和工程文件分别命名为F2和P2，并保存到软盘A的根目录下。 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷(2007春) 二级Visual Basic语言(试卷代号VB02) (本试卷完成时间70分钟) 【考试须知】 1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考： 2．考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分； 3．程序代码书写应呈锯齿形。 一、改错题(14分) 【题目】从10个各不相同的正整数中，剔除若干个数。使得保留下来的数中，任意两个数的和都不是平方数(所谓平方数就是该数等于某一个数的平方，例如4就是一个平方数)。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim A(10) As Integer, I As Integer, J As Integer, P As Integer, K As Integer Do While P = 10 K = Int(20 * Rnd) + 1 For J = 1 To P If K = A(J) Then Exit Do Next J If J P Then P = P + 1 A(P) = K Text1 = Text1 Str(K) End If Loop Call Delete(A, P) For I = 1 To P Text2 = Text2 Str(A(I)) Nex