2010(春)(计算机二级考试VB上机)VB01ok

江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷（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盘的根目录下。

实用文档
实用文档。