江苏省210年二级计算机考试VB上机试题.docVIP

PAGE PAGE 6 2010春计算机等级考试（二级） Visual Basic程序设计上机考试试卷 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷（2010春） 二级 Visual Basic 语言 （试卷代号VB01） （本试卷完成时间 70分钟） [考试须知] 1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 2．考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分； 3．程序代码书写应呈锯齿形。 一、改错题（14分） [题目]本程序的功能是：找出指定范围内，本身及其平方数均由不同数字组成的整数。 Option Explicit Private Sub Command1_Click() Dim n As Integer, k As Long, st As String For n = 500 To 800 k = n ^ 2 If validate(n) And validate(k) Then st = n ^2= k List1.AddItem st End If Next End Sub Private Function validate(n As Long) As Boolean Dim p As String, i As Integer, a() As Integer, j As Integer p = Str(n) ReDim a(Len(p)) For i = 1 To Len(p) a(i) = Mid(p, i, 1) Next i For i = 1 To UBound(a) - 1 For j = i + 1 To UBound(a) If a(i) = a(j) Then Exit For Next Next i validate = True End Function [要求] 1．新建工程，输入上述代码，改正程序中的错误； 2．改错时，不得增加或删除语句，但可以适当调整语句位置； 3．将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。 二、编程题（26分） [题目] 某数列的前二项为2和7，其后继项根据当前最后两项的乘积按下列规则生成：（1）若乘积为一位数，则该乘积即为数列的后继项；（2）若乘积为两位数，则该乘积的十位数和个位数依次作为数列的两个后继项。编写程序，生成该数列的前n项，并把它们显示在文本框中。 [编程要求] 1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2．运行程序，首先在第一个文本框中输入需要的数列项数，按“运行”按钮，生成所要求的数列，按每行10个数据项的格式，输出到多行文本框中；按“清理”按钮，将两个文本框清空，并将焦点置于第一个文本框上；按“结束”按钮，结束程序运行； 3．程序中应定义一个通用过程，用于生成所要求的数列。 [要求] 将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷（2010春） 二级 Visual Basic 语言 （试卷代号VB02） （本试卷完成时间 70分钟） [考试须知] 1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 2．考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分； 3．程序代码书写应呈锯齿形。 一、改错题（14分） [题目]本程序的功能是：利用随机函数生成n个可被3整除，且至少包含一个8的三位整数。 Option Explicit Private Sub Command1_Click() Dim n As Integer, a() As Integer, i As Integer Dim st As String n = InputBox(数据个数n：, 查找, 15) ReDim a(n) Call find(a) For i = 1 To n If n Mod 3 0 Then st = st Str(a(i)) Else st = st Str(a(i)) vbCrLf End If Next i Text1 = st End Sub Private Sub find(a() As Integer) Dim ub As Integer, k As Integer,