2010秋VB02上机

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

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

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

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

【考试须知】

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

予评分；

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

【题目】本程序的功能是，查找首末两位数字之和与中间两位数字之和相等的素数。 Option Explicit

Private Sub CmdFind_Click()

Dim I As Integer, Fg As Boolean Dim Bl As Boolean For I = 1001 To 9999 Fg = False Call PD(I, Fg)

If Prime(I) And Fg Then List1.AddItem I Next I End Sub

Private Function Prime(N As Integer) As Boolean Dim k As Integer For k = 2 To Sqr(N)

If N Mod k = 0 Then Exit Function 'err Exit For Next k

Prime = True End Function

Private Sub PD(ByVal N As Integer, Flg As Boolean) 'err 无ByVal Dim I As Integer, A(4) As Integer, S As Integer Dim L As Integer

L = Len(CStr(N)) 'err Str(N) For I = 1 To L

A(I) = N Mod 10 N = N \\ 10 Next I

If A(1) + A(4) = A(2) + A(3) Then Flg = True End If End Sub 【要求】

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

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

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

2010年秋VB02-1

二、编程题（26分）

【题目】编写程序，将输入的一个8位整数的8个数字重新排列，组成新的8位的最大数和8位的最小数。 【编程要求】

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

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

2． 运行程序，在输入数据文本框中输入一个8位整数后，按“开始”按钮，则在相应的文

本框中，分别显示得到的最大数与最小数；按“清除”按钮，将所有文本框清空，焦点置于输入数据文本框上；按“结束”按钮，结束程序运行；

3． 程序中应定义通用过程，用于求由给定整数的数字组成的最大数与最小数。 【要求】

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

2010年秋VB02-2

本文来源：https://www.bwwdw.com/article/jhw3.html