江苏省2010年二级计算机考试VB上机试题

1、.2010春计算机等级考试（二级）Visual Basic程序设计上机考试试卷江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷（2010春）二级 Visual Basic 语言 （试卷代号VB01）（本试卷完成时间 70分钟）考试须知1改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3程序代码书写应呈锯齿形。一、改错题（14分）题目本程序的功能是：找出指定范围内，本身及其平方数均由不同数字组成的整数。Option ExplicitPrivate Sub Comma

2、nd1_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 NextEnd SubPrivate Function validate(n As Long) As Boolean Dim p As String, i As Integer, a() As Integer, j As Integer p =

3、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 = TrueEnd Function要求1新建工程，输入上述代码，改正程序中的错误；2改错时，不得增加或删除语句，但可以适当调整语句位置；3将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。二、编程题（26分）题目 某数列的前二项为2和7

4、，其后继项根据当前最后两项的乘积按下列规则生成：（1）若乘积为一位数，则该乘积即为数列的后继项；（2）若乘积为两位数，则该乘积的十位数和个位数依次作为数列的两个后继项。编写程序，生成该数列的前n项，并把它们显示在文本框中。编程要求1程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2运行程序，首先在第一个文本框中输入需要的数列项数，按“运行”按钮，生成所要求的数列，按每行10个数据项的格式，输出到多行文本框中；按“清理”按钮，将两个文本框清空，并将焦点置于第一个文本框上；按“结束”按钮，结束程序运行；3程序中应定义一个通用过程，用于生成所要求

5、的数列。要求将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷（2010春）二级 Visual Basic 语言 （试卷代号VB02）（本试卷完成时间 70分钟）考试须知1改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3程序代码书写应呈锯齿形。一、改错题（14分）题目本程序的功能是：利用随机函数生成n个可被3整除，且至少包含一个8的三位整数。Option ExplicitPrivate Sub Co

6、mmand1_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 = stEnd SubPrivate

7、 Sub find(a() As Integer) Dim ub As Integer, k As Integer, p As Integer Dim s As String Randomize ub = UBound(a) Do p = Int(Rnd * 899) + 100 s = CStr(p) If InStr(s, "8") <> 0 Or p Mod 3 = 0 Then k = k + 1 a(k) = p End If Loop Until k > ubEnd Sub要求1新建工程，输入上述代码，改正程序中的错误；2改错时，不得增加或删除

8、语句，但可以适当调整语句位置；3将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。二、编程题（26分）题目 编写程序，求指定范围内的非素数整数的所有真因子（除1和自身以外的因子）。编程要求1程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2运行程序，首先在X文本框与Y文本框中输入相应的数据后，按“运行”按钮，进行相关处理，在列表框中按给定格式输出结果；按“清理”按钮，清空两个文本框和列表框，焦点置于文本框X上；按“结束”按钮，结束程序运行；3程序中应定义一个通用过程，用于求整数的所有真因子。(注意：素数没有符合条件的因子)要

9、求将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷（2010春）二级 Visual Basic 语言 （试卷代号VB03）（本试卷完成时间 70分钟）考试须知1改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3程序代码书写应呈锯齿形。一、改错题（14分）题目本程序的功能是：找出指定数值范围内所有其平方数为升序数的整数。所谓升序数是指从最高位到最低位的数字依次递增的整数。例如1369就是一个升序平方数

10、。Option ExplicitPrivate Sub Command1_Click() Dim n As Integer, k As Integer For n = 20 To 180 k = n 2 If sx(k) Then List1.AddItem n & "2=" & k End If Next n If List1.ListCount <> 0 Then List1.AddItem "无升序平方数"End SubPrivate Function sx(ByVal n As Integer) As Boolean

11、Dim num() As Integer, k As Integer, p As Integer Dim i As Integer Do p = n Mod 10 k = k + 1 ReDim Preserve num(k) num(k) = p n = n 10 Loop Until n < 0 For i = 2 To UBound(num) If num(i) > num(i - 1) Then Exit Function Next i sx = TrueEnd Function要求1新建工程，输入上述代码，改正程序中的错误；2改错时，不得增加或删除语句，但可以适当调整语句位置；3将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。二、编程题（26分）题目 编写程序，将字符串中重复的字符删除，且不改变原有字符的排列顺序，并给出每个字符在原字符串中出现的次数。编程要求1程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2运行程序，首先在文本框1中输入测试字符串，然后按“运行”按钮，进行相关处理，在文本框2中，