2011春VB03上机

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷（2011春）

二级 Visual Basic语言 （试卷代号VB03）

（本试卷完成时间 70分钟）

【考试须知】

1． 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 2． 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不

予评分；

3． 程序代码书写应呈锯齿形。 一、改错题（14分）

【题目】本程序的功能是，输入整数n，在小于等于n的素数序列中，找出所有接连3个素数之和也是素数的子序列。 Private Sub Command1_Click()

Dim n As Integer, pn() As Integer, k As Integer Dim i As Integer, sum As Integer, st As String n = Text1 k = 2 Do

If prime(k) Then i = i + 1

ReDim pn(i) pn(i) = k End If k = k + 1 Loop Until k > n

For i = 1 To UBound(pn) sum = 0

For k = i To i + 2

sum = sum + pn(k) st = st & pn(k) & \ Next k

If prime(sum) Then

List1.AddItem Left(st, Len(st) - 1) & \ End If st = \ 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 Next i

prime = True End Function

2011年春VB03-1

【要求】

1． 新建工程，输入上述代码，改正程序中的错误；

2． 改错时，不得增加或删除语句，但可适当调整语句位置；

3． 将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。 二、编程题（26分）

【题目】编写程序，找出数组中的最大元素值，把最大元素与数组首元素位置对调；然后再 找出数组中的最小元素值，把最小元素与数组末尾元素位置对调。（若存在多个相等的最大元素，只对调其中一个即可，最小元素亦然） 【编程要求】

1． 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界

面元素大小适中，且均可见；

2． 运行程序，按“生成数组”按钮，出现如图的InputBox函数窗口，输入数据个数（或

使用缺省值）后按“确定”，则生成两位数的随机整数数组并显示在文本框Text1中；按“运行”按钮，找出数组最大元素和最小元素后，分别与数组首元素位置对调和与末尾元素位置对调，并将位置对调后的数组元素显示在文本框Text2中；按“清除”按钮，将两个文本框清空，焦点置于“生成数组”按钮上；

3． 程序中应定义一个通用过程，用于求一维数组的最大元素及最小元素。 【要求】

将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。

2011年春VB03-2

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库2011春VB03上机在线全文阅读。