计算机等级考试二级VB试题及答案（精选3套）
在学习、工作生活中，我们很多时候都不得不用到考试题，考试题是命题者按照一定的考核目的编写出来的。那么问题来了，一份好的考试题是什么样的呢？以下是小编精心整理的计算机等级考试二级VB试题及答案（精选3套），欢迎阅读与收藏。
计算机等级考试二级VB试题及答案 1
一 、选择题
(1)假设线性表的长度为n，则在最坏情况下，冒泡排序需要的比较次数为
A)log2n
B)n2
C)O(n1..5)
D)n(n-1)/2
正确答案: D
(2)算法分析的目的是
A)找出数据结构的合理性
B)找出算法中输入和输出之间的关系
C)分析算法的易懂性和可靠性
D)分析算法的效率以求改进
正确答案: D
(3)线性表L=(a1,a2,a3,…ai，…an)，下列说法正确的是
A)每个元素都有一个直接前件和直接后件
B)线性表中至少要有一个元素
C)表中诸元素的排列顺序必须是由小到大或由大到小
D)除第一个元素和最后一个元素外，其余每个元素都有一个且只有一个直接前件和直接后件
正确答案: D
(4)在单链表中，增加头结点的目的是
A)方便运算的实现
B)使单链表至少有一个结点
C)标识表结点中首结点的位置
D)说明单链表是线性表的链式存储实现
正确答案: A
(5)软件工程的出现是由于
A)程序设计方法学的影响
B)软件产业化的需要
C)软件危机的出现
D)计算机的发展
正确答案: C
(6)软件开发离不开系统环境资源的支持，其中必要的测试数据属于
A)硬件资源
B)通信资源
C)支持软件
D)辅助资源
正确答案: D
(7)在数据流图(DF
D)中，带有名字的箭头表示
A)模块之间的调用关系
B)程序的组成成分
C)控制程序的执行顺序
D)数据的流向
正确答案: D
(8)分布式数据库系统不具有的特点是
A)数据分布性和逻辑整体性
B)位置透明性和复制透明性
C)分布性
D)数据冗余
正确答案: D
(9)关系表中的每一横行称为一个
A)元组B)字段
C)属性D)码
正确答案: A
(10)下列数据模型中，具有坚实理论基础的是
A)层次模型
B)网状模型
C)关系模型
D)以上3个都是
(11)下列说法正确的是
A)对象的可见性可设为True或False
B)标题的属性值不可设为任何文本
C)属性窗口中属性只能按字母顺序排列
D)某些属性的值可以跳过不设置，自动设为空值
正确答案: A
(12)下列关于退出Visual Basic系统的方法的描述错误的是
A)打开Visual Basic主窗体的"文件"菜单，执行其中的"退出"命令
B)按快捷键Alt+Q退出
C)单击Visual Basic主窗体右上角的"关闭"按钮
D)按快捷键Alt+E退出
正确答案: D
(13)单击窗体上的关闭按钮时，触发的事件是
A)Form_Initialize( )
B)Form_Load( )
C)Form_Unload( )
D)Form_Click( )
正确答案: C
(14)在代码编辑器中，续行符是用来换行书写同一个语句的符号，用以表示续行符的是
A)一个空格加一个下划线"_"
B)一个下划线"_"
C)一个造字符"-"
D)一个空格加一个连字符"-"
正确答案: A
(15)为了暂时关闭计时器，应把该计时器控件的哪个属性设置为False?
A)Visible
B)Timer
C)Enabled
D)Interval
正确答案: C
(16)以下关于Visual Basic数据类型的说法，不恰当的是
A)Visual Basic 6.0提供的数据类型主要有字符串型和数值型，此外还有字节、货币、对象、日期、布尔和变体数据类型等
B)目前Decimal数据类型只能在变体类型中使用
C)用户不能定义自己的数据类型
D)布尔型数据只能取两种值，用两个字节存储
正确答案: C
(17)以下各项，可以作为Visual Basic变量名的是
A)Book
B)2_Seek
C)123.58
D)Book-1
正确答案: A
(18)表达式(3 / 2 + 1)* (5 / 2 + 2)的值是
A)11.25
B)3
C)6.125
D)4
正确答案: A
(19)关于自定义对话框概念的说明，错误的是
A)建立自定义对话框时必须执行添加窗体的操作
B)自定义对话框实际上是VB的窗体
C)在窗体上还要使用其他控件才能组成自定义对话框
D)自定义对话框不一定要有与之对应的事件过程
正确答案: D
(20)下面Change事件过程中，文本框控件Text1用来接收数字字符的输入，该事件过程的作用是
Private Sub Text1_Change()
Text2.Text=Str(6.28 * Val(Text1.Text))
End Sub
A)将在文本框Text1输入的数字变为数值
B)将在文本框Text1输入的数字作为半径，求圆的周长并转换为字符串
C)只要Text1中的内容一改变，Text2中显示的圆周长也随之改变
D)事件过程中的'Val函数和Str函数使用错误，事件过程不能执行
正确答案: C
21)用什么语句可以选择指定的表项或取消已选择的表项?
A)列表框.Selected(索引值)
B)列表框名.Selected(索引值)=True|False
C)列表框.Selected
D)列表框名.Selected=True|False
正确答案: B
(22)用于将屏幕上的对象分组的控件是
A)列表框
B)组合框
C)标签
D)框架
正确答案: D
(23)以下说法不正确的是
A)使用ReDim语句可以改变数组的维数
B)使用ReDim语句可以改变数组的类型
C)使用ReDim语句可以改变数组的每一维的大小
D)使用ReDim语句可以改变对数组中的所有元素进行初始化
正确答案: B
(24)有如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (Button And 3)=3 Then
Print "OK"
End If
End Sub
程序运行后，为了在窗体上输出"OK"，应当按下的鼠标键是
A)左键
B)右键
C)同时按下左键和右键
D)按什么都不显示
正确答案: D
(25)在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，要求单击命令按钮时，打开一个保存文件的对话框，该窗口的标题为"Save"，缺省文件名称为"SaveFile"，在"文件类型"栏中显示*txt，则能够满足上述要求的程序是
A)Private Sub Command1_Click()
CommonDialog1.FileName="SaveFile"
CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC)|*.doc"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="Save"
CommonDialog1.Action=2
End Sub
B)Private Sub Command1_Click()
CommonDialog1.FileName="SaveFile"
CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC)|*.doc"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="Save"
CommonDialog1.Action=2
End Sub
C)Private Sub Command1_Click()
CommonDialog1.FileName="Save"
CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC)|*.doc"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="SaveFile"
CommonDialog1.Action=2
End Sub
D)Private Sub Command1_Click()
CommonDialog1.FileName="SaveFile"
CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC)|*.doc"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="Save"
CommonDialog1.Action=1
End Sub
正确答案: A (26)阅读下面的程序段：
For a=1 To 2
For b=1 To a
For c=b To 2
I=I + 1
Next
Next
Next
Print I
执行上面的三重循环后，I的值为
A)4
B)5
C)6
D)9
正确答案: B
(27)设有下面的循环：
i=0
While i <=1
i=i + 3
Print i
Wend
则运行后的输出结果是
A)1
B)2
C)3
D)4
正确答案: C
(28)设有下面的循环：
i=1
Do
i=i + 3
Print i
Loop Until I>程序运行后要执行3次循环体，则条件中I的最小值为
A)6
B)7
C)8
D)9
正确答案: B
(29)执行以下语句过程，在窗体上显示的内容是
Option Base 0
Private Sub Command3_Click()
Dim d
d=Array("a", "b", "c", "d")
Print d(1); d(3)
End Sub
A)ab
B)bd
C)ac
D)出错
正确答案: B
(30)下列程序段，在运行时最早输出的内容是
a=2
c=1
AAA:
c=c + a
If c < 10 Then
Print c
GoTo AAA
Else
Print "10以内的奇数显示完毕。"
End If
A)3
B)7
C)9
D)6
正确答案: A (31)有如下程序段：
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 3
Print G(A)
Next i
End Sub
Function G(a As Integer)
b=0
Static c
b=b + 1
c=c + 1
G=a + b + c
End Function
运行上面的程序后，单击命令按钮，输出结果为
A)1 2 3
B)2 3 4
C)4 5 6
D)1 4 6
正确答案: C
(32)单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click()
Print MyBM(23, 18)
End Sub
Public Function MyBM(m As Integer, n As Integer)As Integer
Do While m <> n
Do While m > n: m=m - n: Loop
Do While m < n: n=n - m: Loop
Loop
MyBM=m
End Function
A)0
B)1
C)3
D)5
正确答案: B
(33)有如下的程序：
Private Sub Command1_Click()
Dim k As Integer, m As Integer
Dim P As Integer
k=4: m=1
P=Pid(k, m): Print P;
P=Pid(k, m): Print P
End Sub
Private Function Pid(a As Integer, b As Integer)
Static m As Integer, i As Integer
m=5: i=2
i=i + m + 1
m=i + a + b
Pid=m 2
End Function
单击命令按钮后，输出结果为
A)2 2
B)4 4
C)55
D)6 6
正确答案: D
(34)下面4个CT函数中是用来判断用户输入的数是否为奇数的，是奇数的返回1，否则返回0，其中正确的是
A)Function CT(ByVal a As Integer)
If a Mod 2=0 Then Return 0 ElseReturn 1End ifEnd Function
B)Function CT(ByVal a As Integer)
If a Mod 2=0 Then
CT=0
Else
CT=1
End if End Function
C)Function CT(ByVal a As Integer)
If a Mod 2=0 ThenCT=1 ElseCT=0End ifEnd Function
D)Function CT(ByVal a As Integer)
If a Mod 2=0 Then
Return 1
Else
Return 0
End if
End Function
考生答案: 正确答案: B
(35)在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim m As Integer, n As Integer, p As Integer
m=3: n=5: p=0
Call Y(m, n, p)
Print Str(p)
End Sub
Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer)
k=i + j
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A)4
B)6
C)8
D)10
正确答案: C
二 、填空题
(1)在算法正确的前提下，评价一个算法的两个标准是 【1】 。
正确答案: 1.(时间复杂度和空间复杂度)
(2)将代数式 转换成程序设计中的表达式为 【2】 。
正确答案: 1.(SQR(x^2+y^2)/(a+b))
(3)软件危机出现于60年代末，为了解决软件危机，人们提出了 【3】 的原理来设计软件，这就是软件工程诞生的基础。
正确答案: 1.(软件工程学)
(4) 【4】 是数据库设计的核心。
正确答案: 1.(数据模型)
(5)在关系模型中，把数据看成一个二维表，每一个二维表称为一个 【5】 。
正确答案: 1.(关系)
(6)有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
Private Sub Command1_Click()
x=Val(Text1.Text)
If 【6】 Then
Print x
Else
Text1.Text=""
【7】
End If
End Sub
正确答案: 1.(x Mod 4 = 1 And x Mod 5 = 2)2.(Text1.SetFocus)
(7)已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数
Dim 【8】
For i=65 To 90
pp(i)=0
Next
x$=InputBox("Enter a string", x$)
x$=UCase$(x$)
For i=1 To 【9】
n=Asc(Mid$(x$, i, 1))
If n >=65 And n <=90 Then
【10】
End If
Next i
For i=65 To 90
If pp(i)> 0 Then
Print Chr$(i); pp(i)
End If
Next
正确答案: 1.(pp(65 To 90))2.(Len(x$))3.(pp(n)= pp(n)+ 1)
计算机等级考试二级VB试题及答案 2
1、在并发程序执行过程中，进程调度负责分配
A）CPU
B）CPU、打印机
C）CPU、打印机、外存
D）所有系统资源
2、为了解决CPU和主存之间的速度匹配问题，应该
A）在主存储器和CPU之间增加高速缓冲存储器
B）提高主存储器访问速度
C）扩大CPU中通用寄存器的数量
D）扩大主存容量
3、下列数据结构中，属于非线性结构的是
A）双向链表
B）循环链表
C）二叉链表
D）循环队列
4、一棵二叉树共有25个结点，其中5个是叶子结点，则度为1的.结点数为A）16
B）10
C）4
D）6
5、下列关于循环队列的叙述中，正确的是
A）循环队列是队列的一种链式存储结构
B）循环队列是队列的一种顺序存储结构
C）循环队列是非线性结构
D）循环队列是一种逻辑结构
6、下面对软件特点的描述中，错误的是
A）软件是一种逻辑实体，具有抽象性
B）软件开发、运行对计算机系统具有依赖性
C）软件开发涉及软件知识产权、法律及心理等社会因素
D）软件运行存在磨损和老化问题
7、下面属于黑盒测试方法的是
A）基本路径测试
B）等价类划分
C）判定覆盖测试
D）语句覆盖测试
8、在E-R图中，表示实体的图元是
A）矩形
B）椭圆
C）菱形
D）圆
9、有两个关系R和T如下：
R T
则由关系R得到关系T的操作是
A）选择
B）交
C）投影
D）并
10、对图书进行编目时，图书有如下属性：ISBN书号，书名，作者，出版社，出版日期。能作为关键字的是
A）ISBN书号
B）书名
C）作者
D）出版社
答案
1.A 2.A 3.C 4.A 5.B
6.D 7.B 8.A 9.C 10.A
计算机等级考试二级VB试题及答案 3
一、选择题：35题，2分/题，共70分
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
1.假定窗体有一个标签，名为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
分析:
2.通过改变单选按钮(Option Button)控件的( )属性值，可以改变按钮的选取状态。
A)value
B)Style
C)Appearance
D)Caption
分析:
3.以下语句用于打开一个顺序文件Open"C:MyFile.txt"For OutPut,但是该语句的一个重要错误是没有( )
A)指定打开方式
B)指定文件号
C)指定打开文件名
D)指定文件类型
分析:
4.假定有如下的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=2
S a, b
Print a, b
End Sub
程序运行后，单击命令按钮，输出结果是( )
A)5 2
B)1 1
C)1.25 4
D)2.5 1
分析:
5.如果要在程序中显示一个弹出式菜单，那么要调用Visual Basic中提供的( )方法。
A)Print
B)Move
C)Refresh
D)PopupMenu
分析:
6.假定有以下两个过程：
Private Sub PPP (a As Single, b As Single)
a = a + b
Print a , b
b = a + b
Print a, b
End Sub
Private Sub Form_Activate()
x=18
Call PPP ((x),(x))
Print x
End Sub
则以下说法中不正确的是( )
A)虚参是 a 和b ，两个实参(x)和(x)允许重名
B)虚参是 a 和b ，实参(x)表示是传值调用
C)虚参是 a 和b ，实参(x)表示是非传址调用
D)虚参是 a 和b ，两个实参(x)和(x)不允许重名
分析:
7.在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：
Private Sub Form_Load()
List1.AddItem"357"
List1.AddItem"246"
List1.AddItem"123"
List1.AddItem"456"
Text1.Text=""
End Sub
Private Sub List1_DblClick()
M = List1.Text
Print M + Text1.Text
End Sub
程序运行后，在文本框中输入“123”，然后双击列表框中的“456”，则输出结果为( )
A)1245
B)456123
C)123456
D)0
分析:
8.用( )属性可惟一标志控件阵列中的某一个控件。
A) Name
B) Index
C) Caption
D) TabIndex
分析:
9.为了把一个记录型变量的内容写入文件中指定的位置，所使用语句的格式为( )
A)Get 文件名，记录号，变量名
B)Get 文件号，变量名，记录号
C)Put 文件号，变量名，记录号
D)Put 文件号，记录号，变量名
分析:
10.阅读程序：
Function F ( a As Integer)
b = 0
Static c
b= b + 1
c= c + 2
F= a + b + c
End Functon
Private Sub Command1_Click()
Dim a As Integer
a = 2
For i = 1 to 3
Print F(a)
Next i
End Sub
运行上面的'程序，单击命令按钮，输出结果为( )
A) 4 5 6
B) 5 7 9
C) 4 6 8
D) 4 7 9
分析:
来源:-计算机二级考试
11.惟一能区别一个控件属性的是( )
A)Caption
B)Text
C)Name
D)Index
分析:
12.以下描述正确的是( )
A)过程的定义可以嵌套，但过程的调用不能嵌套
B)过程的定义不可以嵌套，但过程的调用可以嵌套
C)过程的定义和过程的调用均可以嵌套
D)过程的定义和过程的调用均不能嵌套
分析:
13.用Dim AABB(-2 to 10, 4 to 8,1)声明的是一个( )维数组。
A)1
B)2
C)3
D)4
分析:
14.在VB代码中，将多个语句合并写在一行上的并行符是( )
A)撇号(’)
B)冒号(：)
C)感叹号(！)
D)星号(*)
分析:
15.如果在立即窗口中执行以下操作：
a = 8 (是回车键，下同)
b = 9 Print a > b 则输出结果是( )
A)-1
B)0
C)False
D)True
分析:
16.在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name 属性为Command1)，然后编写如下事件过程：
Private Sub Command1)_Click()
x=0
Do Until x > = 50
x= (x + 4)*(x + 3)
n= n+1
Loop
Text1.Text=Str(n)
Text1.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为( )
A)1 和 0
B)2 和240
C)3 和 50
D)4 和168
分析:
17.在窗体上画一个文本框，然后编写如下事件过程：( )
Private Sub Text1_KeyPress (KeyAscii As Integer)
Dim char As String
char=Chr (KeyAscii)
KeyAscii=Asc(UCase(char))
Text1.Text=String(6, KeyAscii))
End Sub
A)a
B)A
C)aaaaaa
D)AAAAAA
分析:
18.编写如下事件过程:
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
If(Button And 3)=3 Then
Print "AAAA"
End If
End Sub
程序运行后，为了在窗体上输出“AAAA”,应该下的鼠标键为( )
A)左
B)右
C)同时按下左、右
D)按什么键都不显示
分析:
19.用于去掉一个字符串的右边的空白部分的函数是( )
A)RTrim()
B)Right()
C)Asc()
D)Time()
分析:
20.下列哪条语句是错的( )
A)RTrim()
B)Exit Function
C)Exit While
D)Exit Do
分析: 来源:-计算机二级考试
21.设 a= 8,则执行x=IIF(a > 10 ,-1,0)后，x 的值为( )
A)5
B)6
C)0
D)-1
分析:
22.Visual Basic 一共有设计、运行和中断三种模式，要使用调试工具应该( )
A)进入设计模式
B)进入运行模式
C)进入中断模式
D)不用进入任何模式
分析:
23.如何使图像(Image)控件中的图像自动适宜控件的大小?( )
A)将控件的AutoSize属性设为True
B)将控件的AutoSize属性设为False
C)将控件的Stretch属性设为True
D)将控件的Stretch属性设为False
分析:
24.如果要在程序代码中为图片框动态加载和清除图像，可以利用( )函数。
A)InputBox
B)Input
C)LoadPicture
D)PaintPicture
分析:
25.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x = 0
Do Until x = -1
a = InputBox("请输入 a 的值")
a = Val (a)
b = InputBox("请输入 b 的值")
b = Val (b)
x = InputBox("请输入 x 的值")
x = Val(x)
a = a + b + x
Loop
Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入 10、8、9、2、11、-1，则输出结果为( )。
A)12
B)13
C)14
D)15
分析:
26.函数过程(用Function定义)与子过程(用Sub 定义)的最大区别是( )
A)函数过程有返回值
B)子过程有返回值
C)函数过程可以带参数
D)子过程可以带参数
分析:
27.Visual Basic根据计算机访问文件的方式将文件分成三类，其中不包括( )
A)顺序文件
B)Unix文件
C)二进制文件
D)随机文件
分析:
28.要显示当前过程中的所有变量及对象的取值，可以利用( )窗口。
A)数据
B)调用堆栈
C)立即
D)本地
分析:
29.符号％是声明( )类型变量的类型定义符。
A)Integer
B)Variant
C)Single
D)String
分析:
30.Visual Basic 中窗体文件的扩展名是( )
A)VBP
B)FRM
C)VBW
D)PDM
分析:
来源:-计算机二级考试
31.关于MDI窗体下列说法正确的是( )
A)一个应用程序可以有多个MDI窗体
B)子窗体可以移动MDI窗体以外
C)不可以在MDI窗体上放置按钮控件
D)MDI窗体的子窗体不可以拥有菜单
分析:
32.窗体在屏幕上显示后有( )方法可以清除它。
A)1种
B)2种
C)3种
D)4种
分析:
33.假定在窗体上建立一个通用对话框，其名称为CommonDialog1,用下面的语句可以建立一个对话框：
CommonDialong1.Action = 4
与该语句等价的语句是( )
A)CommonDialong1.ShowOpen
B)CommonDialong1.ShowFont
C)CommonDialong1.ShowColor
D)CommonDialong1.ShowSave
分析:
34.在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array (1,3,5,7,9)
j = 1
For i = 5 to 1 Step -1
s= s +a(i) * j
j= j * 10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是( )
A)97531
B)135
C)957
D)13579
分析:
35.下列语句都是在Form 中定义的，( )是错的。
A)Public Const A1 = 2u
B)Private Const A2 = 8
C)Public a3 As Integer
D)Private a4 As Integer
分析:
二、填空：每空2分，共30分。
1.阅读以下程序：
Private Sub Form_Click()
Dim k,n ,m, As Integer
n = 10
m =1
k =1
Do While k
m = m + 2
k = k + 1
Loop
Print m
End Sub
单击窗体，程序的执行结果是[1]
2.当用[2]方式打开文件时，如果对文件进行写操作，则写入的数据附加到原来文件的后面。
3.组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和[3],分别通过把[4]属性设置为2、1、0来实现。
4.为了在按下ESC键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True,这个属性是[5]。
5.在执行KeyPress事件过程时，KeyASCII是所按键的[6]值。对于有上档字符和下档字符的键，当执行KeyDown事件过程时，KeyCode是[7]字符的[8]值。
6.在窗体上面画一个命令按钮，然后编写如下程序:
Function M (x As Integer, y As Integer) As Integer
M =IIf (X >y ,x,y)
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 1
b = 2
Print M (a,b)
End Sub
程序运行后，单击命令按钮，输出结果为[9]
7.在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程：
Private Sub Form_Load()
Show
Text1.Text=""
Text2.Text=""
Text2.SetFocus
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer)
Text1.Text= Text1.Text +Chr(KeyCode - 4 )
End Sub
程序运行后，如果在Text2文本框中输入“efghi”,则Text1文本框中的内容为[10] 来源:-计算机二级考试
8.执行下面的程序段后，b的值为[ ]
a = 800
b = 30
a = a + b
b = a - b
a = a - b
9.为了执行自动施放，必须把[12]属性设置为[13],而为了执行手动拖放，必须把该属性设置为[14]
10.读下列程序：
Private Sub Form_Click()
Static x(4) As Integer
For i = 1 to 4
x(i) =x (i) + i * 3
Next i
For i = 1 to 4
print "x("；i；") ="；x(i)
Next i
End Sub
该程序在运行了三次后，其最终结果是：[15]
参考答案
一、(1)A (2)A (3)B (4)D (5)D (6)D (7)B (8)B (9)D (10)B (11)C (12)B (13)C (14)B (15)C (16)B
(17)D (18)D (19)A (20)C (21)C (22)C (23)C (24)C (25)A (26)A (27)B (28)D (29)A (30)B
(31)C (32)B (33)B (34)D (35)A
分析:
二、[1]21 [2]Append [3]下拉式组合框 [4]Style [5]Cancel [6]ASCII [7]下档字符 [8]ASCII
[9]2 [10]ABCDE [11]800 [12]DragMode [13]1 [14]0
[15]x(1)=9 x(2)=18 x(3)=27 x(4)=36