江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷（2008春）
二级 Visual Basic语言 （试卷代号VB03）
（本试卷完成时间 70分钟）
【考试须知】
1． 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；
2． 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；
3． 程序代码书写应呈锯齿形。
一、改错题（14分）
【题目】本程序功能是求二维的随机整数数组每一行元素中素数的个数。
Option Explicit
Dim a() As Integer, m As Integer, n As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer
m = InputBox("行数", , 4)
n = InputBox("列数", , 5)
ReDim a(m, n)
For i = 1 To m
For j = 1 To n
a(i, j) = Int(Rnd * 90) + 10
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer
Dim k As Integer, m As Integer, n As Integer ‘m,n 为局部变量，不可与窗体变量重名
‘k = 0 ‘原位置，错
For i = 1 To m
k = 0 ‘正确位置
For j = 1 To n
If prime(a(i, j)) Then k = k + 1
Next j
Text1 = Text1 & k & vbCrLf
Next i
End Sub
Private Function prime(n As Integer) As Boolean
Dim i As Integer
For i = 2 To Sqr(n)
If n Mod i = 0 Then Exit For
‘应该是：
Exit Function
Next i
prime = True
End Function
【要求】
1． 新建工程，输入上述代码，改正程序中的错误；
2． 改错时，不得增加或删除语句，但可适当调整语句位置；
3． 将窗体文件和工程文件分别命名为F1和P1，并保存到指定目录下。
二、编程题（26分）
【题目】编写程序，查找给定范围[A, B]内所有升序完全平方数。所谓升序完全平方数是指该数的平方根是一个整数，且组成该数的各位数字由左至右，依次递增。例如13689的平方根是117，它就是一个升序完全平方数。
【编程要求】
1． 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；
2． 运行程序，在文本框1和文本框2中分别输入A与B的值，按“查找”按钮，开始查找并在列表框中显示结果；按“清除”按钮，则将所有文本框与列表框清空，焦点置于文本框1上；
3． 程序中应定义一个名为sx的函数过程，用于判断一个正整数是否为升序数。
【提示】判断一个整数是否为升序数，首先要分解得到该数的各位数字，再逐位依次判断其大小。
【要求】
将窗体文件和工程文件分别命名为F2和P2，并保存到指定目录下。
代码在下页：
Option Explicit
Private Sub Command1_Click()
Dim a As Long, b As Long, i As Long
a = Val(Text1.Text)
b = Val(Text2.Text)
For i = a To b
If Sqr(i) = Int(Sqr(i)) Then ‘判i的平方根是整数？
If sx(i) Then List1.AddItem i & "--" & Sqr(i)
‘sx(i):判i是升序数？
End If
Next i
End Sub
Private Function sx(n As Long) As Boolean
Dim i As Integer
For i = 1 To Len(CStr(n)) - 1
If Mid(n, i, 1) >= Mid(n, i + 1, 1) Then
sx = False
Exit Function
End If
Next i
sx = True
End Function
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
List1.Clear
Text1.SetFocus
End Sub
2008年春VB03-1
本文档为【vb上机】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483