一、选择题：35题，2分/题，共70分
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
1.假定窗体有一个标签，名为Label1,为了使该标签透明并且没有这框，则正确的属性设置为()
A)Label1.Backstyle=0Label1.BorderStyle=0
B)Label1.Backstyle=1Label1.BorderStyle=1
C)Label1.Backstyle=TrueLabel1.BorderStyle=True
D)Label1.Backstyle=FalseLabel1.BorderStyle=False
分析:
2.通过改变单选按钮(OptionButton)控件的()属性值，可以改变按钮的选取状态。
A)value
B)Style
C)Appearance
D)Caption
分析:
3.以下语句用于打开一个顺序文件Open"C:\MyFile.txt"ForOutPut,但是该语句的一个重要错误是没有()
A)指定打开方式
B)指定文件号
C)指定打开文件名
D)指定文件类型
分析:
4.假定有如下的Sub过程：
SubS(xAsSingle,yAsSingle)
t=x
x=t/y
y=tMody
EndSub
在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click()
DimaAsSingle
DimbAsSingle
a=5
b=2
Sa,b
Printa,b
EndSub
程序运行后，单击命令按钮，输出结果是()
A)52
B)11
C)1.254
D)2.51
分析:
5.如果要在程序中显示一个弹出式菜单，那么要调用VisualBasic中提供的()方法。
A)Print
B)Move
C)Refresh
D)PopupMenu
分析:
6.假定有以下两个过程：
PrivateSubPPP(aAsSingle,bAsSingle)
a=a+b
Printa,b
b=a+b
Printa,b
EndSub
PrivateSubForm_Activate()
x=18
CallPPP((x),(x))
Printx
EndSub
则以下说法中不正确的是()
A)虚参是a和b，两个实参(x)和(x)允许重名
B)虚参是a和b，实参(x)表示是传值调用
C)虚参是a和b，实参(x)表示是非传址调用
D)虚参是a和b，两个实参(x)和(x)不允许重名
分析:
7.在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：
PrivateSubForm_Load()
List1.AddItem"357"
List1.AddItem"246"
List1.AddItem"123"
List1.AddItem"456"
Text1.Text=""
EndSub
PrivateSubList1_DblClick()
M=List1.Text
PrintM+Text1.Text
EndSub
程序运行后，在文本框中输入“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.阅读程序：
FunctionF(aAsInteger)
b=0
Staticc
b=b+1
c=c+2
F=a+b+c
EndFuncton
PrivateSubCommand1_Click()
DimaAsInteger
a=2
Fori=1to3
PrintF(a)
Nexti
EndSub
运行上面的程序，单击命令按钮，输出结果为()
A)456
B)579
C)468
D)479
分析:
来源:-计算机二级考试
11.惟一能区别一个控件属性的是()
A)Caption
B)Text
C)Name
D)Index
分析:
12.以下描述正确的是()
A)过程的定义可以嵌套，但过程的调用不能嵌套
B)过程的定义不可以嵌套，但过程的调用可以嵌套
C)过程的定义和过程的调用均可以嵌套
D)过程的定义和过程的调用均不能嵌套
分析:
13.用DimAABB(-2to10,4to8,1)声明的是一个()维数组。
A)1
B)2
C)3
D)4
分析:
14.在VB代码中，将多个语句合并写在一行上的并行符是()
A)撇号(’)
B)冒号(：)
C)感叹号(！)
D)星号(*)
分析:
15.如果在立即窗口中执行以下操作：
a=8(是回车键，下同)
b=9Printa>b则输出结果是()
A)-1
B)0
C)False
D)True
分析:
16.在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：
PrivateSubCommand1)_Click()
x=0
DoUntilx>=50
x=(x+4)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text1.Text=Str(x)
EndSub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为()
A)1和0
B)2和240
C)3和50
D)4和168
分析:
17.在窗体上画一个文本框，然后编写如下事件过程：()
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
DimcharAsString
char=Chr(KeyAscii)
KeyAscii=Asc(UCase(char))
Text1.Text=String(6,KeyAscii))
EndSub
A)a
B)A
C)aaaaaa
D)AAAAAA
分析:
18.编写如下事件过程:
PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
If(ButtonAnd3)=3Then
Print"AAAA"
EndIf
EndSub
程序运行后，为了在窗体上输出“AAAA”,应该下的鼠标键为()
A)左
B)右
C)同时按下左、右
D)按什么键都不显示
分析:
19.用于去掉一个字符串的右边的空白部分的函数是()
A)RTrim()
B)Right()
C)Asc()
D)Time()
分析:
20.下列哪条语句是错的()
A)RTrim()
B)ExitFunction
C)ExitWhile
D)ExitDo
分析: 来源:-计算机二级考试
21.设a=8,则执行x=IIF(a>10,-1,0)后，x的值为()
A)5
B)6
C)0
D)-1
分析:
22.VisualBasic一共有设计、运行和中断三种模式，要使用调试工具应该()
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.在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click()
x=0
DoUntilx=-1
a=InputBox("请输入a的值")
a=Val(a)
b=InputBox("请输入b的值")
b=Val(b)
x=InputBox("请输入x的值")
x=Val(x)
a=a+b+x
Loop
Printa
EndSub
程序运行后，单击命令按钮，依次在输入对话框中输入10、8、9、2、11、-1，则输出结果为()。
A)12
B)13
C)14
D)15
分析:
26.函数过程(用Function定义)与子过程(用Sub定义)的最大区别是()
A)函数过程有返回值
B)子过程有返回值
C)函数过程可以带参数
D)子过程可以带参数
分析:
27.VisualBasic根据计算机访问文件的方式将文件分成三类，其中不包括()
A)顺序文件
B)Unix文件
C)二进制文件
D)随机文件
分析:
28.要显示当前过程中的所有变量及对象的取值，可以利用()窗口。
A)数据
B)调用堆栈
C)立即
D)本地
分析:
29.符号％是声明()类型变量的类型定义符。
A)Integer
B)Variant
C)Single
D)String
分析:
30.VisualBasic中窗体文件的扩展名是()
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.在窗体上画一个命令按钮，然后编写如下事件过程：
OptionBase1
PrivateSubCommand1_Click()
Dima
a=Array(1,3,5,7,9)
j=1
Fori=5to1Step-1
s=s+a(i)*j
j=j*10
Nexti
Prints
EndSub
运行上面的程序，单击命令按钮，其输出结果是()
A)97531
B)135
C)957
D)13579
分析:
35.下列语句都是在Form中定义的，()是错的。
A)PublicConstA1=2u
B)PrivateConstA2=8
C)Publica3AsInteger
D)Privatea4AsInteger
分析:
二、填空：每空2分，共30分。
1.阅读以下程序：
PrivateSubForm_Click()
Dimk,n,m,AsInteger
n=10
m=1
k=1
DoWhilek
m=m+2
k=k+1
Loop
Printm
EndSub
单击窗体，程序的执行结果是[1]
2.当用[2]方式打开文件时，如果对文件进行写操作，则写入的数据附加到原来文件的后面。
3.组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和[3],分别通过把[4]属性设置为2、1、0来实现。
4.为了在按下ESC键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True,这个属性是[5]。
5.在执行KeyPress事件过程时，KeyASCII是所按键的[6]值。对于有上档字符和下档字符的键，当执行KeyDown事件过程时，KeyCode是[7]字符的[8]值。
6.在窗体上面画一个命令按钮，然后编写如下程序:
FunctionM(xAsInteger,yAsInteger)AsInteger
M=IIf(X>y,x,y)
EndFunction
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger
a=1
b=2
PrintM(a,b)
EndSub
程序运行后，单击命令按钮，输出结果为[9]
7.在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程：
PrivateSubForm_Load()
Show
Text1.Text=""
Text2.Text=""
Text2.SetFocus
EndSub
PrivateSubText2_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
Text1.Text=Text1.Text+Chr(KeyCode-4)
EndSub
程序运行后，如果在Text2文本框中输入“efghi”,则Text1文本框中的内容为[10] 来源:-计算机二级考试
8.执行下面的程序段后，b的值为[]
a=800
b=30
a=a+b
b=a-b
a=a-b
9.为了执行自动施放，必须把[12]属性设置为[13],而为了执行手动拖放，必须把该属性设置为[14]
10.读下列程序：
PrivateSubForm_Click()
Staticx(4)AsInteger
Fori=1to4
x(i)=x(i)+i*3
Nexti
Fori=1to4
print"x("；i；")="；x(i)
Nexti
EndSub
该程序在运行了三次后，其最终结果是：[15]
二级VB模拟试卷(三)参考答案
一、(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)=9x(2)=18x(3)=27x(4)=36来源:-计算机二级考试
