江苏省计算机2级VB春上机1由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“计算机二级vb上机试题”。
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷(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的根目录下。
