第三部分 全国计算机等级考试模拟试卷及参考答案

第三部分 全国计算机等级考试模拟试卷及参考答案

全国计算机等级考试模拟试卷一 （考试时间 90分钟，满分100分）

一、选择题（第1-20题每题2分，第21-30题每题3分，共70分） 1． 下列文件类型中，属于VB工程可以管理的文件是（ ）。 A) .EXE B) .BAT C) .COM D) .CLS 2．Visual Basic采用了（ ）编程机制。

A) 可视化 B) 事件驱动 C) 面向过程 D) 面向对象 3．下列语句中含有语法错误的是（ ）。 A) s$=a

4．用户可通过（ ）模拟屏幕的小图像来布置应用程序。 A) 窗体设计器 B)窗体布局窗口 C) 快捷菜单 D) 立即窗口

5．在Visual Basic中，称对象的数据为：（ ）。 A) 事件 B) 属性 C) 方法 D) 封装

6．在一个命令按钮的Click事件语句中，（ ）可以使得窗体（Form2）得到焦点。 A) Form2.GetFocus B) Form2.SetFocus C) Form2.LostFocus D) Call LostFocus

7．如果希望使窗体没有边框，应将其BorderStyle属性设为（ ）。 A) 0 B) 1 C) 2 D) 3 8．下列说法错误的是（ ）。

A) 在同一模块不同过程中的变量可以同名 B) 不同模块中定义的全局变量不可以同名

C) 引用另一模块中的全局变量时，必须在变量名前加模块名 D) 同一模块中不同级的变量可以同名

9．下列关于菜单的说法中，错误的是（ ）。

A) 除了Click事件之外，菜单项不能响应其他事件。

B) 每个菜单项都是一个控件，与其他控件一样也有其属性和事件。 C) 菜单项的索引号必须从1开始。 D) 菜单项的索引号可以不连续。

10．表达式8+2*3^2\\9/8-3 MOD 2 的结果是（ ）。 A) 22 B) 23 C) 24 D) 25

11．以下列（ ）方式打开一个不存在的文件时会产生错误。 A) Output B) Append C) Random D) Input 12．只能用来显示字符信息的控件是（ ）。 A) 文本框 B) 标签框 C) 图片框 D) 图像框 13．关于设置控件属性的叙述正确的是（ ）。

A) 用户必须重新设置属性的值，否则属性值为空。 B) 任何属性的值都可以由用户随意设置。

C) 属性值可以由用户设置，也可以使用系统的默认设置。 D) 属性值只能在属性窗口中设置。 14．下列（ ）是ReDim语句的作用。

A) 定义一个数组 B) 重定义一个可变数组 C) 清除一个数组的数据 D) 定义一个可变数组

15．若要设置文本框中所显示的文本颜色，使用的属性是（ ）。 A) BackColor B) FillColor C) ForeColor D) Backstyle

16．在某个循环中加入语句DoEvent的作用是（ ）。 A) 使循环停止等待其它事件的发生 B) 不允许其它事件打断此循环的执行

C) 循环等待一段时间后，继续执行

D) 如果有其它事件发生，去响应其它事件 17．在VB中，过程共有三种，它们是（ ）。 A) 事件过程，子过程和函数过程

B) Sub过程，Function过程和Property过程。 C) 事件过程，函数过程和属性过程。 D) Sub过程，函数过程和通用过程。

18．可以同时关掉所有打开文件的语句是（ ）。 A) Close All B) Close # C) Close D) 以上都不对 19．下列叙述中正确的是（ ）。

A) 在窗体的Form_Load事件过程中定义的变量是全局变量 B) 局部变量的作用域可以超出所定义的过程

C) 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程

D) 在调用过程时，所有局部变量被系统初始化为0或空字符串

20．代码段有时会在最上一行出现：Option Explicit，请问此句的作用是（ ）。 A) 表明此模块中的变量一律不用声明即可使用 B) 表明此模块中没有通用过程

C) 表明此模块内的变量必须先声明后使用

D) 表明此模块中的通用过程不能被其他模块调用 21．下列（ ）语句可以将变量A、B的值互换。 A) A=B : B=A

B) A=C : C=B : B=A

C) A=A+B : B=A-B : A=A-B D) A=(A+B)/2 : B=(A-B)/2

22．下列程序段的执行结果为（ ）。

x =Int(Rnd+4) Select Case x Case 5

Print “Excellent” Case 4

Print “Good” Case 3

Print “Pass” Case Else

Print “Fail”

End Select

A) Excellent B) Good C) Pass D) Fail

23．下列程序执行后，变量x的值为（ ）。

Dim a,b,c,d As Single Dim x As Single a=100 b=20 c=1000

If b>a Then

d=a：a=b：b=d End if

If b>c Then

x=b

Elseif a>c then x=c Else x=a

End if

A) 100 B) 20 C) 1000 D) 0

24．在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID AS Integer

Name As String*20

End Type

Private Sub Command1_Click()

Dim MaxSize,NextChar,MyChar

Open “d:\\temp\\female.txt” For Input As #1 MaxSize=LOF(1)

For NextChar=MaxSize to 1 Step -1 Seek #1,NextChar MyChar=Input(1,#1) Next NextChar Print EOF(1) Close #1 End Sub

程序运行后，单击命令按钮，其输出结果为（ ）。 A) True B) False C) 0 D) Null

25．在窗体上画出一个按钮Command1，其事件过程如下：

Private Sub Command1_Click() Static a As Integer a=8 a=a\\2 print a End Sub

当用户单击第三次按钮时，输出结果是（ ）。 A) 4 B) 2 C) 1 D) 0 26．下列程序段的执行结果为（ ）。 Dim A(10,10) For i=2 To 4 For j=4 To 5 A(i,j)=i*j Next j Next i

Print A(2,5)+A(3,4)+A(4,5)

A) 22 B) 42 C) 32 D) 52

27．若整型变量a的值为2，b的值为3，则下列程序段执行后整型变量c的值为（ ）。 If a>5 Then

If b<4 Then c=a-b Else c=b-a Else

If b>3 Then c=a*b Else c=a mod b End If

A) 2 B) -1 C) 1 D) 6 28．以下程序输出的结果为（ ）。 x=1 y=4

Do Until y>4 x=x*y y=y+1

Loop Print x

A) 4 B) 8 C) 12 D) 16 29．有如下函数过程：

Function gys(ByVal x As Integer, ByVal y As Integer) As Integer Do While y<>0 reminder=x Mod y x=y

y=reminder Loop gys=x

End Function

以下是调用该函数的事件过程，该程序的运行结果是（ ）。 Private Sub Command1_C1ick() Dim a As Integer Dim b As Integer a=100 b=25

x=gys(a,b) Print x End Sub

A) 0 B) 2 C) 50 D) 100

30．单击命令按钮时，下列程序代码的执行结果为（ ）。

Public Function MyFunc (m As Integer, n As Integer)As Integer Do While m<>n Do While m>n m=m-n Loop

Do While m

MyFunc=m End Function

Private Sub Command1_Click() Print MyFunc(24,18) End Sub

A) 2 B) 4 C) 6 D) 8 二、填空题（每空2分，共30分）

1．VB中的控件分为内部控件、ActiveX控件和 〖1〗 三类。 2．模块级变量的声明关键字是Dim或 〖2〗 。

3．若要使用户不能修改文本框TextBox1中内容，应设置Textbox1的 〖3〗 属性为True。 4．阅读下列程序：

Private Sub Command1_Click()

Dim intA As Integer, intB As Integer Dim bIsCheck As Boolean Dim strC As String intA=3: intB=8 strC=”hello” bIsCheck=False

Print bIsCheck Or intA > intB And strC > ”world” End Sub

当用户单击Command1按钮时，窗体上输出 〖4〗 。 5．下列程序段的执行结果为 〖5〗 。

a=”abcdefghijk” For I=6 T0 2 Step -2 x=Mid(a,I,1) y=Left(a,1) z=Right(a,1) Z=x & y & Z Next I Print z

6．若命令按钮的名称为CmdExit，程序要求单击以上此命令按钮时，程序停止运行，请对以下事件过程填空。

Private Sub CmdExit_click() 〖6〗

End Sub

7．以下程序代码实现单击命令按钮Command1时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。 Dim arr(1 To 20) For i=1 to 20

arr(i)= 〖7〗 Next i Sum=0

For Each x In 〖8〗 If x>50 Then

Print Tab(20);x Sum=Sum+x End if Next x

Print Tab(20); ”Sum=”; Sum

8．下列程序实现了在窗体上画一个带有直径的圆。鼠标落处是直径开始，鼠标提处是直径结束。请填写空白处。

Dim intX As Integer Dim intY As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) intX=X intY=Y End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Line (intX,intY)-(X,Y)

Circle ((intX+X)\\2, (intY+Y)\\2), 〖9〗 End Sub

9．在C盘当前文件夹下建立一个名为StuData.txt的顺序文件。要求用inputbox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。 Private Sub Form_Click()

Open”C:StuData.txt” For Output As #1 For i=l to 5

StuNo=InputBox(“请输入学号”) StuName=InputBox(“请输入姓名”)

StuEng=Val(InputBox(“请输入英语成绩”)) 〖10〗 Next i Close #1

End Sub

10．窗体中有图片框(Picture1)和计时器(Timer1)两个控件。运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下角移动，每次向左、向右移动200twip,请填空。 Private Sub Form_Load()

Picture1.picture=LoadPicture(“c:pic\\mouth.ico”) 〖11〗 .interval=2000 End Sub

Private Sub Timer1_Timer() Static x, y As Integer x=x+200 y=y+200

Picture1. 〖12〗

End Sub

11．以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序,该程序运行结果见下图。

Private Sub Form_Click() Dim s(10,10) As Integer For n=1 To 10 For m=1To 10

If 〖13〗 or 〖14〗 Then s(n,m)=1

Else s(n,m)=0 End If Next m Next n

For n=1 To 10

For 〖15〗 Picture1.Print Tab(m*3);s (n,m); Next m Print Next n EndSub

全国计算机等级考试模拟试卷二

（考试时间 90分钟，满分100分）

一、选择题（第1-20题每题2分，第21-30题每题3分，共70分） 1．在VB中设计程序时，能自动被检查出来的错误是（ ）。 A) 语法错误 B) 语法错误和逻辑错误 C) 运行错误 D) 逻辑错误 2. 关于对象和类，描述错误的是（ ）。 A) 类是同类对象的抽象描述 B) 对象是由类创建的实例

C) 标准工具箱中的控件都是对象实例 D) 添加到窗体上的控件都是对象实例

3．一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔，碎了分别是（ ）。 A)对象，属性，事件，方法 B)对象，属性，方法，事件 C)属性，对象，方法，事件 D)属性，对象，事件，方法 4．下列（ ）语句可以使得窗体（Form1）变为最小化。 A) Form1.WindowState=1 B) Form1.WindowState=0 C) Form1.WindowStyle=1 D) Form1.WindowStyle=0 5．表达式：Str(Val(Mid(“23456”, 2, 3) & ”.5”))的值是（ ）。 A) 234 B) 345 C) 345.5 D) 346

6．如果要显示Visual Basic中的预定义输入对话框，需要调用Visual Basic提供的（ ）函数。 A) MsgBox B) Open C) Output D) InputBox

7．图像框中的stretch属性为true时，其作用是（ ）。 A) 只能自动设定图像框长度

B) 图形自动调整大小以适应图像控件 C) 只能自动缩小图像 D) 只能自动扩大图像

8．用Static关键字定义过程是指（ ）。 A) 声明过程名是静态的 B) 声明虚参是静态的

C) 声明函数过程的返回值是静态的 D) 声明过程中的局部变量是静态的

9．目录列表框的Path属性的作用是（ ）。 A) 显示根目录下的文件名 B) 显示路径下的文件

C) 显示当前驱动器或指定驱动器上的目录结构

D) 显示当前驱动器或指定驱动器上的某目录下的文件名

10．ScrollBars属性用来设置文本框是否含有滚动条，要设置该属性，（ ）属性的值必须设置为True。 A) Locked B) Multiline C) Hideselection D) Enabled

11．“X是小于100的非负数”， 用VB表达式表示正确的是（ ）。 A) 0≤X<100 B) 0<=X<100

C) X>=0 And X<100 D) 0<= x or X <100

12．若要将窗体从内存中卸载出去，应该使用的方法是（ ）。 A) Show B) UnLoad C) Load D) Hide 13．窗体的PopupMenu方法的作用是（ ）。

A) 窗体被最小化 B) 窗体最大化 C) 显示一个弹出式菜单 D) 显示一个信息框 14．有关过程调用的说法错误的是（ ）。

A) 传值方式的“形实结合”，形参的变化不会直接影响到实参 B) 传地址方式的“形实结合”，形参的变化会直接影响到实参 C) 形参和对应的实参可以同名，也可以不同名

D) 只有function过程能将数据带回调用过程，而sub过程不能

15．在用Open语句打开文件时，如果省略“For方式”，则打开的文件的存取方式是（ ）。 A) 顺序输入方式 B) 顺序输出方式 C) 随机存取方式 D) 二进制方式 16．下列说法正确的是（ ）。

A) 数组的下标可以是非整型数值 B) 数组下标下界的默认值为１

C) 数组元素的下标小于下界或大于上界都会出现下标越界错误 D) 数组声明语句不会对数组进行初始化 17．Private定义的过程表示（ ） A) 可以被其它过程调用

B) 不可以被任何其它过程调用

C) 只可以被本工程中的其它过程调用

D) 只可以被本窗体模块中的其它过程调用

18．Sub过程与 Function过程最根本的区别是（ ）。

A) Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。 B) Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。 C) 两种过程参数的传递方式不同。

D) Function过程可以有参数，Sub过程不可以。

19．程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是（ ）。 A) MouseDown B) MouseUp C) Load D) Click

20．关于多行结构条件语句的执行过程，正确的是（ ）。

A) 各个条件所对应的<语句序列>中，一定有一个<语句序列>被执行。

B) 找到<条件>为TRUE的第一个入口，便从此开始执行其后的所有<语句序列>。 C) 若有多个<条件>为TRUE，则它们对应的<语句序列>都被执行。

D) 多行选择结构中的<语句序列>，有可能任何一个<语句序列>都不被执行。 20．下列逻辑运算结果为“True”的是（ ）。

A) False Or Not True B) False And Not True C) True Or Not True D) True And Not True

21．在一个应用程序中，有两个窗体（分别是Form1，Form2），它们的代码段如下：

?Form1的代码段： Option Explicit

Private Sub Form_Activate() Form2.Show End Sub

?Form2的代码段： Option Explicit

Private Sub Form_Activate() Form1.SetFocus End Sub

当程序被运行时，其效果（ ）。

A) Form1成为当前窗体 B) Form2成为当前窗体 C) 程序在Form1和Form2之间不断的切换 D) 此程序不能运行

22．执行以下程序段后，整型变量C的值为_________ a=24 b=328

Select case b\\10 Case 0

c=a*10+b Case 1 to 9 c=a*100+b Case 10 to 99 c=a*1000+b

End Select A) 537 B) 2427 C) 240328 D) 24328 23．阅读下列程序：

Private Sub Command1_Click()

Dim strS1 As String,strS2 As String

StrS1=InputBox(“Please input the first Sting”, ”INPUT”, ” ”) StrS2=InputBox(“Please input the Second Sting”, ”INPUT”, ” ”) If InStr(strS1,strS2) Then Print “China”; End If

Print “France” End Sub

用户在单击Command1命令按钮后，依次输入：”abcdefg” 和”def”，其输出结果是（ ）。 A) China B) France

C) 没有输出 D) ChinaFrance

24．执行下列程序段时，分别在输入框中输入2、4、6，则执行结果是（ ） Dim A(4) As Integer Dim B(4) As Integer For i=0 To 2

A(i+1)=Val(InputBox(“请输入数据”)) B(3-i)=A(i+1) Next i Print B(i)

A) 2 B) 4 C) 6 D) 8

25．单击一次命令按钮之后，下列程序代码的执行结果为（ ）。 Public Sub Proc ( a () As Integer) Static i As Integer Do

a(i)=a(i)+a(i+1)

i=i+1

Loop While i<2 End Sub

Private Sub Command1_Click() Dim m As Integer Dim i As Integer Dim x(10) As Integer For i= 0 To 4 x(i)=i+1 Next i

For i=1 To 2 Call Proc(x) Next i

For i=0 To 4 Print x(i); Next i End Sub

A) 13 4 7 5 6 B) 4 5 9 4 5 C) l 2 3 4 5 D) 1 2 3 5 7 26．编写如下事件过程：

Private Sub Form_MouseDown (Button As Integer, Shift As Integer, x As Single, Y As Single) If Shift=6 And Button=2 Then Print “Hello” End If

End Sub

程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下（ ）操作。 A) 同时按下Shlft键和鼠标左按钮 B) 同时按下Shift键和鼠标右按钮

C) 同时按下Ctrl、A1t键和鼠标左按钮 D) 同时按下Ctrl、A1t键和鼠标右按钮 27．阅读下列过程：

Private Function Sum() Dim intI As Integer Dim intS As Integer IntS=0

For intI=1 to 100

If intI Mod 3=0 Then IntS=intS+intI End If Next intI Sum=intS End Function

以上过程的功能可以描述为（ ）。

A) 计算1~100的和 B) 计算1~100中所有3的倍数的和

C) 计算1~100中所有奇数的和 D) 计算1~100中所有不是3的倍数的和 28．下列程序实现了：当用户按下Ctrl+A键后，选择文本框中的所有文本。

Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)

If Shift=2 Then

If =”A” Then

Text1.SelStart= Text1.SelLength=Len(Text1) End If End If End Sub

则空白处的子句分别是（ ）。

A) Chr(KeyCode)和1 B) KeyCode和0

C) KeyCode和1 D) Chr(KeyCode)和0

29．在一个窗体上添加一命令按纽控件，名为Command1，事件过程如下，则该过程的执行结果为（ ）。

Option base 1

Private Sub Command1_Click() Dim a(5) As Integer Dim k As Integer Dim total As Integer a(1)=2 a(2)=5 a(3)=4 a(4)=10 a(5)=6

For k= 1 To 5 Total=total+a(k) Next k Print total End Sub

A) 10 B) 15 C) 27 D) 35 30．有如下的一个函数过程：

Function fn(ByVal num As Long) Dim k As Long k=1

num=Abs(num) Do While num

K=k*(num Mod 10) num=num\\10 Loop fn=k

End Function

以下是一个调用该函数的事件过程，在运行该程序后，在输入对话框输入数字“123”，该过程的运行结果是（ ）。

Private Sub Command5_Click() Dim n As Long Dim r As Long

n=InputBox(“请输入一个数值”) n=CLng(n) r=fn(n) Print r End Sub

A) 12 B) 6 C) 3 D) 1 二、填空题（每空2分，共30分）

1．从形式上分类，VB有 〖1〗 和悬浮式两种工具栏。

2．单击命令按钮之后，下列程序代码的执行结果为 〖2〗 。 Private Function f(x as integer) Static s For i=1 to x s=s+i Next f=s

End Function

Private Sub Command1_Click() s=f(1)+f(2)+f(3)+f(4) Print s End Sub

3．在窗体上设计三个文本框及一个命令按钮，将用户输入的三个数按从大到小排序输出。将程序补充完整。 Private Sub Command1_Click() Dim a, b, c, temp As Integer a=Val(Text1.text) b=Val(Text2.text) c=Val(Text3.text) If a

temp=a a=b

〖3〗 End if

If b>c then

〖4〗 Else

If c>a then Print c,a,b

Else

〖5〗

End if End if End sub

4．在窗体上设计两个文本框输入x与n的值及一个命令按钮，求s=x-x3/3!+x5/5!-…+x(2*n-1)/ (2*n-1)!的值。将程序补充完整。

Private Sub Command1_Click() Dim x, fn, s As Single Dim i, j, n, flag As Integer x=Val(Text1.text) n=Val(Text2.text)

s=0 flag=1

For i=1 to n

〖6〗 For j=1 to 2*i-1 fn=fn*j Next

〖7〗 flag=-flag

Next Print s End Sub

5．阅读下列程序：

Sub func_my(Byval x As Integer, Byref y As Integer) x=x+y y=x-y End sub

Private Sub Command1_Click() Dim a as Integer,b As Integer a=10 b=20

Call func_my(a,b) Call func_my(b,a) Print a,b End Sub

程序运行时，当用户单击Command1按钮后，程序输出结果为 〖8〗 。 6．以下循环的执行次数是 〖9〗 。 k=0

Do While k<=10 k=k+1 Loop

7．有如下Sub过程： Sub Ind(a As Integer) Static x AS Integer x=x+a print x; End Sub

以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为 〖10〗 。

Private Sub Command1_click() Ind 2

End Sub

8．以下程序是求出由（1、2、3、4）四个数字，能组成所有互不相同且无重复数字的三位数，并打印出来。

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer For i = 1 To 4 For j = 1 To 4 For k = 1 To 4

If 〖11〗 Then Print i * 100 + j * 10 + k End If Next k, j, i End Sub

9．下列程序实现了将两个N*N的矩阵求和后转置。请填写空白处。

Const N = 10

Dim A(N, N) As Single, B(N, N) As Single, C(N, N) As Single Private Function AddMatrix()

Dim intI As Integer, intJ As Integer For intI = 1 To N For intJ = 1 To N

C( 〖12〗 , 〖13〗 ) = A(intI, intJ) + B(intI, intJ) Next intJ intI

End Function

10．下列程序段的作用是打印出100-999所有的水仙花数（所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。如：153=1^3＋5^3＋3^3，153是一个“水仙花数”）。

Private Sub Command1_Click() For n = 100 To 999 a = n \\ 100

b = 〖14〗 c = n Mod 10

If 〖15〗 Then Print n End If Next End Sub

全国计算机等级考试模拟试卷三

（考试时间 90分钟，满分100分）

一、选择题（第1-20题每题2分，第21-30题每题3分，共70分） 1．下列叙述不正确的是（ ）。

A) 一个目标程序所需的所有文件的集合称为工程。 B) VB的工程文件的扩展名为.vbp。

C) 工程文件中可包括窗体文件、标准模块文件、类模块文件、资源文件等。 D) 工程文件中除了窗体文件是可选的外，其它文件都是必须的。 2．编译一个工程的目的是（ ）。

A) 将工程的程序翻译成可以看懂的文件。 B) 将工程的程序重新正确编排。

C) 按工程的程序生成计算机能够执行的机器代码，使之能够脱离VB集成开发环境独立运行。 D) 检查工程中有无错误的机器代码，以便工程能够脱离VB集成开发环境独立运行。 3．下列关于窗体的说法错误的是（ ）。 A) 窗体是VB的一个对象

B) 各种控件对象必须建立在窗体上 C) 窗体是VB的一个控件

D) 可以把窗体看作是一个对象的容器

4．（ ）关键字声明的局部变量在整个程序运行中一直存在。 A) Public B) Private C) Dim D) Static 5．菜单控件仅支持以下（ ）事件。

A) Click B) MouseDown C) KeyPress D) Load

6．当定时器的Interval属性被设置成200时，则每隔（ ）时间运行一次Timer事件。 A) 200 秒 B) 0.2秒 C) 0.02秒 D) 2秒 7．不能作为容器使用的对象是（ ）。 A) Frame B) Form C) PictureBox D) Image

8．VB中构成文件的最基本的单位是（ ）。 A) 字符 B) 字 C) 字段 D) 记录

9．下列关于Sub过程的叙述正确的是（ ）。 A)一个Sub过程必须有一个Exit sub语句。 B)一个Sub过程必须有一个End sub语句。 C)在Sub过程中可以定义一个Function过程。 D)可以用Goto语句退出Sub过程。

10．当在一个文本框中输入字符时，将触发文本框的（ ）事件。 A) Activate B) LostFocus C) GetFocus D) Change

11．对于Commandbutton控件，Picture属性用于给按钮加一个图形，只有当（ ）属性的属性值设置为1时，该属性才有效。

A) Default B) Cancel C) Style D) Enabled

12．以下命令中能够正确地画出矩形的是（ ）。 A) Line-(3000,3000) B) Line-(300,300)

C) Line(300,300)-(3000,3000), , D) Line(300,300)-(3000,3000) 13．以下只有（ ）控件能接受焦点。

A) 框架控件(Frame) B) 直线控件(Line) C) 文本框控件(Textbox) D) 标签控件(Label)

14．图像框(Image)和图片框(Picturebbx)在使用时有所不同，以下叙述中正确的是（ ）。 A) 图片框比图像框占内存少 B) 图像框内还可包括其他控件

C) 图片框有Stretch属性而图像框没有 D) 图像框有Stretch属性而图片框没有

15．Boolean类型的数据由几个字节组成（ ）。 A) 1 B) 2 C) 3 D) 4 16．以下说法正确的是（ ）。

A) 通过改变属性窗口中的Name属性，来改变窗体的标题 B) Private表示此过程只可被本工程中的其它过程调用

C) 在多文档应用中，每次只能有一个活动的子窗体可以进行输入/编辑 D) 列表框包含了组合框的功能

17．当标签的Alignment属性被设为0时，其显示文字将（ ）。 A) 左对齐 B) 右对齐 C) 居中 D) 不显示 18．以下常数中，（ ）占用的存储空间最多。 A) –8.45D5 B) false C) 9898989 D)-6.12E6 19．下列关于控件数组的说法，正确的是（ ）。 A) 控件数组可以由不同类型的控件组成。 B) 在运行时不能创建控件数组。

C) 同一个控件数组中，每个元素的属性设置值都相同。 D) 控件数组必须由同类型的控件组成。 20．有如下程序，该段程序将（ ）。

For I=l to 10 step 0 k=k+2 Next I A) 形成无限循环

B) 循环体执行一次后结束循环 C) 语法错误

D) 循环体不执行即结束循环

21．下列程序实现了将一个文件（tt.txt）读入一个可以多行显示的文本框中。

Private Sub Command1_Click() Dim strLine As String

Open App.Path+”tt.txt” for Input As #1 While Not EOF()

Line Input #1,StrLine

Text1.text= +strLine + Wend Close End Sub

则空白处应填写的句子分别是（ ）。

A) aa.txt, vbCrLf B) Text1.text, “*” C) Text1.text, vbCrLf D) strLine, vbCrLf 22．下列程序段的执行结果为（ ）。 Dim M(10) For k=1 to 10 M(k)=11-k

Next k x=6

Print M(2+M(x))

A) 2 B) 3 C) 4 D) 5

23．下列程序段（ ）能够正确实现条件：如果XY Then A=15：Print A A=-15 A=-15：Print A Print A

C) If X

24．以下程序段的输出结果是（ ）。 A=Sqr(3) B=Sqr(2) C=a>b Print c

A) -1 B) 0 C) False D)True

25．在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_C1ick()

For i=1 To 4 x=0

For j=1 To 3 x=j

For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub

程序运行后，单击命令按钮，输出结果是（ ）。 A) 538 B) 157 C) 15 D) 7

26．单击命令按钮时，下列程序代码的执行结果为（ ）。 Private Function Pickmid (xStr As String) As String Dim tempStr As String Dim StrLen As integer TempStr=””

StrLen=Len(xstr) i=1

Do While I<=strlen/2

TempStr = tempStr + Mid(xStr, i, 1) + Mid (xStr,strLen-i+1,1) i=i+1 Loop

Pickmid = tempStr End function

Private Sub Command1_click() Dim firstStr as string FirstStr=“abcdef ” Print pickMid(firstStr) End Sub

A) abcdef B) afbecd C) fedcba D) defabc 27．有如下一个函数过程：

Function f( a As Integer) b=0 Static C b=b+1 c=c+1 f=a+b+c End Function

在窗体上添加一个命令按纽，事件过程如下：

Private Sub Command1_Click() Dim a As Integer a=2

For i=1 To 3 Print f(a); Next i End Sub

运行该程序，单击命令按纽，输出结果是（ ）。 A) 4 4 4 B)4 5 6 C) 6 7 8 D)4 7 9

28．以下是计算10的阶乘的程序，请补充该程序。

Dim t as single Dim k as integer k=1 t=1

While k=k+1 t=t*k wend Print t

A) k<10 B) k>10 C) k<=l0 D) k>=10 29．阅读下列程序：

Private Sub Command1_Click() Dim intI As Integer

For intI=1 to 10 If intI<7 Then

Text1.text=Text1.text+Trim(Str(intI)) Else

Text1.SelStart=10-intI Text1.SelLength=1 Text1.SelText=“” End If Next intI End Sub

假设程序初始时，文本框中为空。当用户单击Command1按钮时，文本框中的内容为（ ）。 A) 12 B) 45 C) 56 D) 65

30．下列程序实现了将一个数组中的元素加到一个列表中。

Option Base 1 Dim arr

Private Sub Command1_Click() Dim intI As Integer

arr=Array(“list1”, “list2”, “list3”, “list4”) For intI=1 to 4

List1. arr(intI) Next intI End Sub

则空白处的子句应为（ ）。

A) InsertItem B) RemoveItem C) AddItem D) Add 二、填空题（每空2分，共30分）

1．在一个文件中显示移动文件指针的语句是 〖1〗 。

2．逻辑运算时，参与运算的两个量都是False，结果才会是False的逻辑运算是 〖2〗 运算。 3．若要求在菜单中包含分隔条，则设计时，在菜单的标题属性中应设置为 〖3〗 。 4．设有以下的循环：

x=1 Do

x=x+2 Print x

Loop Until 〖4〗 。

程序运行后，要求执行3次循环体，请填空。

5．在窗体上画一个命令和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码：

Dim SaveAll As String

Private Sub Command1_Click() Text1.Text=UCase(SaveAll) End Sub

Private Sub Form_KeyPress ( KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub

程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为 〖5〗 。

6．下列程序实现了指定删除数组中从某个位置删除几个元素的功能。请填写空白处的子句（其中intCount是一个数组中有效数据个数的统计）。 Option Base 1 Const N=100

Dim intCount As Integer Dim myArr(N) As Integer

Private Function DeleteItem(ByVal intIndex As Integer, ByVal intC As Integer) As Integer

Dim intI Asx Integer

If intIndex > intCount Or intCount < 1 Then DeleteItem=-1 Else

If 〖6〗 <=intCount Then For intI=intIndex+intC To intCount MyArr( 〖7〗 )= myArr(intI) Next intI Else

IntCount= 〖8〗

End If End If

End Function

7．以下程序用于求s＝1+(1+2)+(1+2+3)+??(1+2+??+100)，请补充完该程序。

dim N As Integer Dim I As Integer Dim J As Long Dim S As Long N=100 J=0 S=0

For I=1 To 〖9〗 J= 〖10〗 S= 〖11〗 Next I Print S

8．以下Function过程Odd用于判断一个数是否是奇数。当单击命令按钮时，随机产生一个二位数，调用Odd过程，判断该数是否是奇数。如果是奇数，则显示true，否则显示False。 Private Sub Command1_C1ick() Dim x As Integer X=Int (Rnd*90+10) Print x, Odd(x) End Sub

Function Odd (ByVal n As Integer) As Boolean If 〖12〗 then Odd=False Else

Odd=True End If

End Function

9．下列程序实现了将一个系统时间转换成从当天零点以来的秒数。请填写空白处的子句。 Private Sub Command1_Click()

Dim myTime

Dim lngSec As Long myTime=Time

lngSec= 〖13〗 (myTime)*60+ 〖14〗 (myTime)*60+ 〖15〗 (myTime) Print myTime;”=”;lngSec End Sub

全国计算机等级考试模拟试卷四

（考试时间 90分钟，满分100分）

一、 选择题（第1-20题每题2分，第21-30题每题3分，共70分）

1．Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ ）。 A) 控件、属性、事件 B) 属性、事件、方法 C) 窗体、控件、过程 D) 窗体、控件、模块 2．下列关于“控件”属性的说法正确的是（ ）。

A) 单击窗体中的某控件，在属性窗口的属性列表框中找到所要设置的属性，即可设置其属性值 B) 所有对象都具有同样的属性

C) 控件的属性只能在设计时设置、不能在运行时修改 D) 控件的每一个属性都具有同样的默认值

3．在VisualBasic应用程序中，以下正确的描述是（ ）。 A) 过程的定义可以嵌套，但过程的调用不能嵌套 B) 过程的定义不可以嵌套，但过程的调用可以嵌套 C) 过程的定义和过程的调用均可以嵌套 D) 过程的定义和过程的调用均不能嵌套

4．下列能正确产生[1-30]之间的随机整数的表达式是（ ）。 A) 1+Rnd(30) B) 1+30*Rnd() C) Rnd(1+30) D) Int(Rnd()*30)+1

5．要声明一个长度为256个字符的定长字符串变量str，以下哪个语句是正确的（ ）。 A) dim str as string B) dim str as string(256) C) dim str as string[256] D) dim str as string*256

6．执行语句Print Format(5459.478，”##,##0.00”)，正确的输出是（ ）。 A) 5459.48 B) 5,459.48 C) 5,459.478 D) 5,459.47

7．要在程序中提示用户是否取消卸载过程，一般在哪个事件中进行处理（ ）。 A) Unload B) Onfocus

C) Getfocus D) QueryUnload 8．Initialize事件被触发的时机是（ ）。

A) 紧接在Click事件之前 B) 在Click事件之后 C) 在Load 事件之后 D) 在其他任何事件之前 9．以下关于选项按钮的说法正确的是 。

A) 选项按钮的Enabled属性用于决定该按钮是否被选中。 B) 选项按钮的Value属性用于决定该按钮是否被选中。 C) 选项按钮的Checked属性用于决定该按钮是否被选中。 D) 选项按钮的Text属性用于决定该按钮是否被选中。 10．以下（ ）方法不能实现给Icon属性赋值。 A) 在属性窗口中改变Icon属性的值

B) 在程序代码中使用LoadPicture函数给Icon属性赋值 C) 在程序代码中使用LoadIcon函数给Icon属性赋值

D) 在程序代码中使用另一个窗体的图标属性给Icon属性赋值 11．当使用Append方式打开一个文件后，文件指针指向（ ）。 A) 文件头 B) 文件尾

C) 一个随机位置 D) 没有文件指针 12．以下关于窗体的描述正确的是（ ）。 A) 只有用于启动的窗体可以有菜单

B) 窗体事件和其中所有控件事件的代码都放在窗体文件中 C) 窗体的名字和存盘的窗体文件名必须相同

D) 开始运行时窗体的位置只能是设计阶段时显示的位置 13．关于Exit For的使用说明正确的是（ ）。 A) Exit For语句可以退出任何类型的循环 B) 一个循环中只能有一个这样的语句 C) Exit For表示返回For语句去执行

D) 一个For循环中可以有多条Exit for语句 14．下列控件中可自动设置滚动条的是（ ）。 A) 复选框 B) 框架 C) 文本框 D) 标签框

15．MDI应用程序的主窗体和子窗体分别有各自的菜单。当运行该MDI应用程序，并打开一个窗体后，在

MDI主窗体的菜单条上显示的是（ ）。 A) MDI主窗体上定义的菜单 B) MDI子窗体上定义的菜单

C) MDI主窗体菜单和子窗体菜单的简单组合

D) MDI主窗体菜单和子窗体菜单组合到一起，且相同的部分不重复出现 16．向随机文件写入一个记录需要使用下列（ ）语句。 A) Get 句 B) Read语句 C) Put语句 D) Write语句 17．假定有以下循环结构

Do Until条件 循环体 Loop

则正确的描述是（ ）。

A) 如果“条件”是一个为0的常数，则一次循环体也不执行 B) 如果“条件”是一个为0的常数，则至少执行一次循环体 C) 如果“条件”是一个不为0的常数，则至少执行一次循环体 D) 不论“条件”是否为“真”，至少执行一次循环体 18．关于窗体Visible属性说法中正确的是（ ）。

A) 在设计阶段，Visible属性被设置为False时，窗体便不可见 B) 将Visible属性设为False的作用与Show方法相同 C) Visible属性是用来设置窗体颜色

D) 将Visible属性设为True的作用与Show方法相同

19．表达式：List1.List(List1.ListCount-2) 所表示的是（ ）。 A) 列表框中的列表的最后一项 B) 列表框中的列表的第一项 C) 列表框中的列表的第二项 D) 列表框中的列表的倒数第二项 20．下列（ ）语句可以实现删除文本框（Text1）中选定文本的功能。 A) Text1.text=”” B) Text1.SelText=”” C) Delete Text1.SelText D) Delete Text1.text 21．用下面语句定义的数组的元素个数是（ ）。 Dim A(-3 To 5) As Integer

A)6 B)7 C)8 D)9 22．以下语句错误的是（ ）。 A) If a=1 And b=2 then

c=3 End If

B) If a=1 Then

c=2

Else If a=2 Then c=3 End If

C) c=IIf(a =1,2,3) D) If a=1 Then

c=2

ElseIf a=2 Then c=3 EndIf

23．阅读下列程序

Private Sub Command1_Click()

Dim intI As Integer For intI = 1 To 3 Print st(intI) Next intI

End Sub

Static Function st(ByVal tt As Integer)

Dim intS As Integer Dim strK As String strK = strK + “K” intS = intS + tt

st = strK + Str(intS) End Function

当用户单击Command1按钮后，窗体中显示（ ）。 A) K1 B) K1

K1 KK3 K1

C) K1 D) K1 KK3 KK2 KKK6 KKK3

24．在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String Str=Chr(KeyAscii)

KeyAscii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub

程序运行后，如果在键盘上输入字母“b”，则在文本框Text1中显示的内容为（ ）。 A) bbb B) BBB C) BB D) bb

25．在一个含有两个窗体（Form1，Form2）的工程中，在标准模块中加入Sub Main过程，并将Sub Main过程设为工程启动对象。各模块中的代码如下：

?Form1模块

Private Sub Form_Click() Unload Form2 Unload Form1 End End Sub

?Form2 模块

Private Sub Form_Click() Form1.Show End Sub ?标准模块 Sub Main() Load Form1 Form2.show End Sub

则程序运行时的流程是（ ）。

A) 首先显示Form2，单击后程序结束

B) 首先显示Form1，单击后显示Form2，再单击后程序结束 C) 首先显示Form2，单击后显示Form1，再单击后程序结束

D) 首先显示Form1，接着显示Form2，再单击后显示Form1，再单击后程序结束 26．下列程序段的执行结果为（ ）。 Dim A(10), B(5) For i=1 To 10 A(i)=i Next i

For j=1To 5 B(j)=j*20 Next j A(5)=B(2)

Print “A(5)=”;A(5)

A) A(5)=5 B) A(5)=10 C) A(5)=20 D) A(5)=40

27．在窗体上画一个列表框List1和一个文本框text1。然后编写如下两个事件过程： Private Sub Form_Load() List1.AddItem=”357” List1.AddItem=”246” List1.AddItem=”123” List1.AddItem=”456” Text1.Text=”” End Sub

Private Sub List1_Dblclick() a=List1.Text

Print a+Text1.Text End Sub

程序运行后，在文本框中输入“100”，然后双击列表框中的”456”，则输出结果为（ ）。 A) 457 B) 456100 C) 100456 D) 556 28．以下程序段的执行结果是（ ）。

Loop

Text1.Text=Str(n) Text2.Text=Str(x) End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。 A) 1和0 B) 2和72 C) 3和50 D) 4和168

(19) 用下面语句定义的数组的元素个数是（ ）。 Dim A (-3 To 5) As Integer A) 6 B) 7 C) 8 D) 9

(20) 以下程序的输出结果是（ ）。 Option Base 1

Private Sub Command1_Click() Dim a(10),p(3) As Integer k=5

For i=1 To 10 a(i)=i Next i

For i=1 To 3 p(i)=a(i*i) Next i

For i=1 To 3 k=k+p(i)*2 Next i Print k End sub

A) 33 B) 28 C) 35 D) 37

(21) 在窗体上面画一个命令按钮，然后编写如下事件过程： Option Base 1

Private Sub Command1_Click() Dim a

a = Array(1,2,3,4) j = 1

For i = 4 To Step -1 s = s + a(i)*j j =j*10 Next i Print s End Sub

运行上面的程序，单击命令按钮，其输出结果是（ ）。 A) 4321 B) 12 C) 34 D) 1234

(22) 在窗体上面一个命令按钮（其Name属性为Command1），然后编写如下代码： Option Base 1

Private Sub Command1_Click( ) Dim a(4,4) For i =1 To 4 For j =1 To 4 a(i,j) = (i-1)*3+j Next j Next i

For i =3 To 4 For j =3 To 4 Print a(j,i); Next j Print Next i End Sub

程序运行后，单击命令按钮，其输出结果为（ ）。 A）6 9 B）7 10 C）8 11 D）9 12 7 10 8 11 9 12 10 13 (23) 假定有如下的Sub过程： Sub S（x As Single,y As Single） t = x x =t/y

y =t Mod y End Sub

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click ( ) Dim a As Single Dim b As Single a =5 b =4 S a,b Print a,b End Sub

程序运行后，单击命令按钮，输出结果为（ ）。 A) 5 4 B) 1 1 C) 1.25 4 D) 1.25 1 (24) 阅读程序：

Function F(a As Integer) b = 0 Static c b = b+1 c = c+1 f = a+b+c End Function

Private Sub Command1_Click () Dim a As Integer a =2

For i =1 To 3 Print F(a) Next i End Sub

运行上面的程序，单击命令按钮，输出结果为（ ）。 A）4 B）4 C）4 D）4 4 5 6 7 4 6 8 9 (25) 阅读程序：

Sub subP(b() As Integer) For i =1 To 4 b(i)=2*i Next i End Sub

Private Sub Command1_Click() Dim a(1 To 4)As Integer a (1)=5 a (2)=6 a (3)=7 a (4)=8 subP a () For i =1 To 4 Print a(i) Next i End Sub

运行上面的程序，单击命令按钮，输出结果为（ ）。 A）2 B）5 C）10 D）出错 4 6 12 6 7 14 8 8 16

(26) 下列不能打开菜单编辑器的操作是（ ）。 A）按Ctrl+E

B）单击工具栏中的\菜单编辑器\按钮 C）执行\工具\菜单中的\菜单编辑器\命令 D）按Shift + Alt + M (27) 假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为（A) MenuItem. Enabled=False B) MenuItem. Enabled=True C) MenuItem. Visible=True D) Menultem. Visible=False

(28) 在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是（ ）。 A) Move B) Change C) Scroll D) GetFocus

。 ）

(29) 假定窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，则正确的属性设置为（ ）。 A) Label1. BackStyle=0 Label1.Borderstyle=0 B) Label1.BackStyle=1 Label1.Borderstyle=1 C) Label1.BackStyle=True Label1.BorderStyle=True D) Label1.BackStyle=False Label1.Borderstyle=False

(30) 在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_Load () List1.AddItem\ List1.AddItem\ List1.AddItem\ List1.AddItem\ Text1.Text=\ End Sub

Private Sub List1_ DblClick ( ) a =List1.Text

Print a+Text1.Text End Sub

程序运行后，在文本框中输入\（见图1），然后双击列表框中的\，则输出结果为（ A) 1245 B) 456789 C) 789456 D) 0

(31) 为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是（ ）。 A) Visible B) Timer C) Enabled D) Interval

(32) 为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为（ ）。A）Get文件号，记录号，变量名 B）Get文件号，变量名，记录号 C）Put文件号，变量名，记录号 D）Put文件号，记录号，变量名 (33) 对窗体编写如下事件过程：

Private Sub Form _MouseDown(Button As Integer, _ Shift As Integer, X As Single Y As Single) If Button =2 Then Print \ End If End Sub

Private Sub Form _ MouseUp(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Print \ End Sub

程序运行后，如果单击鼠标右键，则输出结果为（ ）。 A) AAAAA B) BBBBB C) AAAAA D) BBBBB BBBBB AAAAA

(34) 为了在运行时能显示窗体左上角的控制框（系统菜单），必须（ ）。 A) 把窗体的ControlBox 属性设置为Fale,其他属性任意

B) 把窗体的ControlBox 属性设置为True,并且把Boder Style属性设置为1-5 C) 把窗体的ControlBox 属性设置为False,同时把BoderStyle属性调协为非0值 D) 把窗体的ControlBox 属性设置为True,同时把BoderStyle属性设置为0值 (35) 对窗体编写如下代码： Option Base 1

Private Sub Form_KeyPress(KeyAscii As Integer) a = Array(237,126,87,48,498) m1 = a(1) m2 = 1

If KeyAscii = 13 Then For i =2 To 5 If a(i)>m1 Then m1=a(j) m2=i End If Next i End If

）。

Print m1 Print m2 End Sub

程序运行后，按回车键，输出结果为（ ）。 A) 48 B) 237 C) 498 D) 498

4 1 5 4 二、填空题（每空２分，共30分）

请将每空的正确答案写在答题卡[1]-[15]序号的横线上，答在试卷上不得分。 （1）设有如下的Visual Basic表达式： 5 * x^2 - 3 * x - 2 * Sin(a)/3

它相当于代数式 〖1〗 。

（2）执行下面的程序段后，s的值为 〖2〗 。 s = 5

For i = 2.6 To 4.9 Step 0.6 s = s+1 Next i

（3）表达式Fix(-32.68)+Int(-23.02)的值为 〖3〗 。

（4）为了在运行时把图形文件picfile. jpg装入图片框Picture1,所使用的语句为 〖4〗 。 （5）在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a = InputBox(\请输入一个整数\ b = InputBox(\请输入一个整数\ Print a + b End Sub

程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 〖5〗 。 (6) 执行下面的程序段后，b的值为 〖6〗 。 a=300 b=20 a=a+b b=a-b a=a-b

(7) 以下程序段的输出结果是 〖7〗 。 num=0

While num<=2 num=num+1 Print num; Wend

(8) 在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) k=5

For i=1 To 10 a(i)=i Next i

For i=1 To 3 p(i)=a(i*i) Next i

For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub

程序运行后，单击命令按钮，输出结果是 〖8〗 。

(9) 下面的程序用\选择\法将数组a中的10个整数按升序排列，请在〖9〗 、〖10〗、〖11〗处将程序补充完整。 Option Base 1

Private Sub Command1_Click() Dim a

a=Array(678,45,324,528,439,387,87,875,273,823) For i= 〖9〗 step -1 For j= 〖10〗 step -1 If a(i) 〖11〗 a(j) Then a1=a(i)

a(i)=a(j) a(j)=a1 End If Next j Next i

For i=1 To 10 Print a(i) Next i End Sub

(10) 在窗体画一个命令按钮，然后编写如下过程： Function fun(ByVal num As Long)As Long Dim k As Long k=1

num=Abs(num) Do While num k=k*(num Mod 10) num=num\\10 Loop fun=k

End Function

Private Sub Command1_Click() Dim n As Long Dim r As Long

n=InputBox(\请输入一个数\ n=CLng(n) r=fun(n) Print r End Sub

程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 〖12〗 。 (11) 如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为 〖13〗 。

(12) 假定建立了一个工程，该工程包括两个窗体，其名称(Name 属性)分别为Form1和Form2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在〖14〗和〖15〗处将程序补充完整。 Private Sub Command1_Click() 〖14〗 Form1 Form2. 〖15〗 End Sub

全国计算机等级考试模拟试卷七

（考试时间 90分钟，满分100分）

一、选择题(每题2分，共70分)

下列各题A) 、B) 、C) 、D) 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

(1) 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是( )。 A) 工程资源管理器窗口 B) 工具箱窗口 C) 代码窗口 D) 属性窗口 (2) 以下叙述中正确的是( )。

A) 窗体的Name属性指定窗体的名称，用来标识一个窗体 B) 窗体的Name属性的值是显示在窗体标题栏中的文本 C) 可以在运行期间改变对象的Name属性的值 D) 对象的Name属性值可以为空

(3) 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是( )。 A) 单选按钮 B) 图片框 C) 通用对话框 D) 文本框 (4) 设有如下变量声明 Dim TestDate As Date

为变量TestDate正确赋值的表达方式是( )。

A) TextDate=#1/1/2002# B) TestDate=#“1/1/2002”#

C) TextDate=date(“1/1/2002”) D) TestDate=Format(“m/d/yy”,“1/1/2002”) (5) 设有如下声明： Dim X As Integer

如果Sgn(X) 的值为-1，则X的值是

A) 整数 B) 大于0的整数 C) 等于0的整数 D) 小于0的数

(6) 在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static X As Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X

Print X,Y End Sub

程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为( )。 A) 15 16 B) 15 6 C) 15 15 D) 5 6

(7) 设a=3,b=5，则以下表达式值为真的是 A) a>=b And b>10 B) (a>b)Or(b>0)

C) (a<0)Eqv(b>0) D) (-3+5>a)And(b>0) (8) 设有语句

x=InputBox(“输入数值”，“0”，“示例”)

程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是( )。 A) 变量X的值是数值10

B) 在InputBox对话框标题栏中显示的是“示例” C) 0是默认值 D) 变量X的值是字符串“10”

(9) 从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是( )。

A) Left B) Mid C) String D) Instr

(10) 设a=“Visual Basic”，下面使b=“Basic”的语句是( )。 A) b=Left(a,8,12) B) b=Mid(a,8,5) C) b=Rigth(a,5,5) D) b=Left(a,8,5)

(11) 以下能够触发文本框Change事件的操作是( )。 A) 文本框失去焦点 B) 文本框获得焦点

C) 设置文本框的焦点 D) 改变文本框的内容

(12) 在窗体上有一个文本框控件，名称为TxtTime;一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间。程序为： Private Sub Timer1._ () TxtTime.text=Time End Sub

在下划线上应填入的内容是( )。

A) Enabled B) Visible C) Interval D) Timer

(13) 在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体” 和“黑体”；一个复选框，名称为Check1,标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中(窗体外观如下图) ，则能够实现上述要求的语句序列是 A) Option1.value=True B) Option1.Value=True Check1.Value=False Check1.Value=True C) Option2.Value=False D) Option1.Value=True Check1.Value=True Check1.Value=1

(14) 为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是( )。

A) Value B) Default C) Cancel D) Enabled

(15) 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() For I=1 To 4 For J=0 To 1

Print Chr$(65+I); Next J Print Next I End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。 A) BB B) A C)B D) AA CC BB CC BBB DD CCC DDD CCCC EE DDDD EEEE DDDDD

(16) 图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是( )。 A) Autosize B) Stretch

C) AutoRedraw D) Appearance

(17) 在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0

Do While x<20 x=x*3 n=n+1 Loop

Text1.Text=Str(x) Text2.Text=Str(n) End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。 A) 15和1 B) 27和3 C) 195和3 D) 600和4

(18) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Dim i As Integer,n As Integer For I=0 To 50 i=i+3 n=n+1

If i>10 Then Exit for Next

Text1.Text=Str(n) End Sub

程序运行后，单击命令按钮，在文本框中显示的值是( )。 A) 2 B) 3 D) 4 D) 5

(19) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Dim array1(10,10) As Integer Dim i,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next I

Text1.Text=array1(2,3)+array1(3,4) End Sub

程序运行后，单击命令按钮，在文本框中显示的值是 A) 12 B) 13 C) 14 D) 15

(20) 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Next j Print Next i End Sub

程序运行后，单击命令按钮，窗体上显示的是( )。 A) 1 2 3 B) 234 C) 147 D) 1 2 3 2 4 6 345 258 4 5 6 3 6 9 456 369 7 8 9 (21) 设有如下程序： Option Base 0

Private Sub Form_Click() Dim a

Dim i As Integer

a=Array(1,2,3,4,5,6,7,8,9) For i=0 To 3 Print a(5-i); Next End Sub

程序运行后，单击窗体，则在窗体上显示的是( )。 A) 4 3 2 1 B) 5 4 3 2 C) 6 5 4 3 D) 7 6 5 4 (22) 下列叙述中正确的是

A) 在窗体的Form_Load事件过程中定义的变量是全局变量 B) 局部变量的作用域可以超出所定义的过程

C) 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程

D) 在调用过程时，所有局部变量被系统初始化为0或空字符串

(23) 在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，

则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是( )。

A) Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub

Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else

Return 1 End If

End Function

B) Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub

Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If

End Function

C) Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub

Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If

End Function

D) Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub

Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If

End Function

(24) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：

Private Sub Command1_Click() Dim x,y,z As Integer x=5 y=7 z=0

Text1.text=“” Call P1(x,y,z) Text1.Text=Str(z) End Sub

Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer) c=a+b End Sub

程序运行后，如果单击命令按钮，则在文本框中显示的内容是( )。 A) 0 B) 12 C) Str(z) D) 没有显示 (25) 以下叙述中错误的是( )。

A) 如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B) Sub过程中不能嵌套定义Sub过程 C) Sub过程中可以嵌套调用Sub过程

D) 事件过程可以像通用过程一样由用户定义过程名 (26) 以下叙述中错误的是( )。 A) 在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode) B) 在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)

C) KeyPress事件中不能识别键盘上某个键的按下与释放 D) KeyPress事件中可以识别键盘上某个键的按下与释放 (27) 以下叙述中错误的是( )。

A) 在同一窗体的菜单项中，不允许出现标题相同的菜单项

B) 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键 C) 程序运行过程中，可以重新设置菜单的Visible属性 D) 弹出式菜单也在菜单编辑器中定义

(28) 设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是( )。

A) menu1.Enabled=True B) Munu1.Enabled=False C) Menu1.Visible=True D) Menu1.Visible=False (29) 以下叙述中错误的是( )。

A) 在程序运行时，通用对话框控件是不可见的

B) 在同一个程序中，用不同的方法(如ShowOpen或ShowSave等)打开的通用对话框具有不同的作用 C) 调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件 D) 调用通用对话框控件的ShowColor方法，可以打开颜色对话框

(30) 在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是( )。 A) “text (.txt)|(*.txt)” B)“文本文件( .txt) | (.txt)” C) “text(.txt)||(*.txt)” D)“text(.txt)(*.txt)” (31) 以下叙述中错误的是( )。

A) 一个工程中只能有一个Sub Main过程

B) 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体 C) 窗体的Hide方法和Unload方法的作用完全相同

D) 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体 (32) 以下叙述中错误的是( )。 A) 一个工程中可以包含多个窗体文件

B) 在一个窗体文件中用Private定义的通用过程能被其他窗体调用

C) 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件 D) 全局变量必须在标准模块中定义

(33) 设在工程中有一个标准模块，其中定义了如下记录类型 Type Books

Name As String *10 TelNum As String *20 End Type

在窗体上画一个名为Command1的命令按钮。要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是( )。 A) Private Sub Command1_Click() Dim B As Books

Open “c:\\Person.txt”For Output As #1 B.Name=InputBox(“输入姓名”)

B.TelNum=InputBox(“输入电话号码”) Write #1,B.Name,B.TelNum Close #1 End Sub

B) Private Sub Command1_Click() Dim B As Books

Open “c:\\Person.txt”For Input As #1 B.Name=InputBox(“输入姓名”)

B.TelNum=InputBox(“输入电话号码”) Print #1,B.Name,B.TelNum Close #1 End Sub

C) Private Sub Command1_Click()