A：
10
B：
20
C：
30
D：
300
108、在窗体上画一个命令按钮，然后编写如下程序：
SubS1（ByValxAsInteger,ByValyAsInteger）
DimtAsInteger
t=x
x=y
y=t
EndSub
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger
a=10
b=30
S1a,b
Print"a=";a;"b=";b
EndSub
程序运行后，单击命令按钮，输出结果是：
______。
A：
a=30b=10
B：
a=30b=30
C：
a=10b=30
D：
a=10b=10
109、能够获得一个文本框中被选取文本的内容的属性是______。
A：
Text
B：
SelLength
C：
SelText
D：
SelStart
110、为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是______。
A：
Value
B：
Cancel
C：
Enabled
D：
Default
111、设置复选框中或单选按钮的标题对齐方式的属性是______。
A：
Align
B：
Style
C：
Sorted
D：
Alignment
112、下列程序段的执行结果为______。
X=5
Y=-20
IfNotX>0ThenX=Y-3ElseY=X+3
PrintX-Y;Y-X
A：
-33
B：
5-8
C：
3-3
D：
25-25
113、下列程序段的执行结果为______。
N=0
ForI=1To3
ForJ=5To1Step-1
N=N+1
NextJ,I
PrintN;J;I
A：
1204
B：
1504
C：
1231
D：
1531
114、下列程序段的执行结果为______。
N=10
ForK=NTo1Step-1
X=Sqr（K）
X=X-2
NextK
PrintX-2
A：
-3
B：
-1
C：
1
D：
1.16227765
115、下列程序段的执行结果为______。
A=0:
B=1
Do
A=A+B
B=B+1
LoopWhileA<10
PrintA;B
A：
105
B：
AB
C：
01
D：
1030
116、下列程序段的执行结果为______。
DimA（5）
ForI=1To5
A（I）=I*I
NextI
PrintA（I-1）
A：
5
B：
25
C：
0
D：
16
117、设执行以下程序段时依次输入1、3、5，执行结果为______。
Dima（4）AsInteger,b（4）AsInteger
ForK=0To2
a（K+1）=Val（InputBox（"请输入数据"））
b（3-K）=a（K+1）
NextK
Printb（K）
A：
1
B：
3
C：
5
D：
0
118、改变驱动器列表框的Drive属性值将激活______事件。
A：
Change
B：
Scroll
C：
KeyDown
D：
KeyUp
119、以下叙述中正确的是______。
A：
窗体的Name属性指定窗体的名称，用来标识一个窗体
B：
窗体的Name属性的值是显示在窗体标题栏中的文本
C：
可以在运行期间改变对象的Name属性的值
D：
对象的Name属性值可以为空
120、刚建立一个新的标准EXE工程后，出现在工具箱中的控件是______。
A：
CommonDialog
B：
ListView
C：
TextBox
D：
Toolbar
121、设有如下变量声明
DimTestDateAsDate
为变量TestDate正确赋值的表达方式是______。
A：
TestDate=#1/1/2002#
B：
TestDate=#"1/1/2002"#
C：
TestDate=date（"1/1/2002"）
D：
TestDate=Format（"m/d/yy","1/1/2002"）
122、设有如下声明：
DimXAsInteger
如果Sgn（X）的值为-1，则X的值是______。
A：
整数
B：
大于0的整数
C：
等于0的整数
D：
小于0的整数
123、以下能够触发文本框Change事件的操作是______。
A：
文本框失去焦点
B：
文本框获得焦点
C：
设置文本框的焦点
D：
改变文本框的内容
124、在窗体上画两个单选按钮，名称分别为Optionl、Option2，标题分别为"宋体"和"黑体"；一个复选框，名称为Check1，标题为"粗体"；一个文本框，名称为Text1，Text属性为"改变文字字体"。
要求程序运行时，"宋体"单选按钮和"粗体"复选框被选中（窗体外观如下图），则能够实现上述要求的语句序列是______。
A：
Option1.Value=True
Check1.Value=False
B：
Option1.Value=True
Check1.Value=True
C：
Option2.Value=False
Check1.Value=True
D：
Option1.Value=True
Check1.Value=1
125、在窗体上画一个命令按钮，名称为Command1。
然后编写如下程序：
PrivateSubCommand1_Click（）
ForI=1To4
ForJ=0ToI
PrintChr$（65+I）;
NextJ
Print
NextI
EndSub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。
A：
BB
CCC
DDDD
EEEEE
B：
A
BB
CCC
DDDD
C：
B
CC
DDD
EEEE
D：
AA
BBB
CCCC
DDDDD
126、图像框有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是______。
A：
AutoSize
B：
Stretch
C：
AutoRedraw
D：
Appearance
127、在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimxAsInteger,nAsInteger
x=1
n=0
DoWhilex<20
x=x*3
n=n+1
Loop
Text1.Text=Str（x）
Text2.Text=Str（n）
EndSub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是______。
A：
15和1
B：
27和3
C：
195和3
D：
600和4
128、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
PrivateSubCommand1_Click（）
DimiAsInteger,jAsInteger
Dima（10,10）AsInteger
Fori=1To3
Forj=1To3
a（i,j）=（i-1）*3+j
Printa（i,j）;
Nextj
Print
Nexti
EndSub
程序运行后，单击命令按钮，窗体上显示的是______。
A：
123
246
369
B：
234
345
456
C：
147
258
369
D：
123
456
789
129、设有如下程序：
OptionBase0
PrivateSubForm_Click（）
Dima
DimiAsInteger
a=Array（1,2,3,4,5,6,7,8,9）
Fori=0To3
Printa（5-i）;
Next
EndSub
程序运行后，单击窗体，则在窗体上显示的是______。
A：
4321
B：
5432
C：
6543
D：
7654
130、下列叙述中正确的是______。
A：
在窗体的Form_Load事件过程中定义的变量是全局变量
B：
局部变量的作用域可以超出所定义的过程
C：
在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
D：
在调用过程中，所有局部变量被系统初始化为0或空字符串
131、在窗体上画一个命令按钮，名称为Command1。
程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。
在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。
能够正确实现上述功能的代码是______。
A：
PrivateSubCommand1_Click（）
x=InputBox（"请输入整数"）
a=F1（Val（x））
Printa
EndSub
FunctionF1（ByRefbAsInteger）
IfbMod2=0Then
Return0
Else
Return1
EndIf
EndFunction
B：
PrivateSubCommand1_Click（）
x=InputBox（"请输入整数"）
a=F1（Val（x））
Printa
EndSub
FunctionF1（ByRefbAsInteger）
IfbMod2=0Then
F1=0
Else
F1=1
EndIf
EndFunction
C：
PrivateSubCommand1_Click（）
x=InputBox（"请输入整数"）
F1（Val（x））
Printa
EndSub
FunctionF1（ByRefbAsInteger）
IfbMod2=0Then
F1=1
Else
F1=0
EndIf
EndFunction
D：
PrivateSubCommand1_Click（）
x=InputBox（"请输入整数"）
F1（Val（x））
Printa
EndSub
FunctionF1（ByRefbAsInteger）
IfbMod2=0Then
Return0
Else
Return1
EndIf
EndFunction
132、以下叙述中错误的是______。
A：
如果过程被定义为Static类型，则该过程中的局部变量都是Static类型
B：
Sub过程中不能嵌套定义Sub过程
C：
Sub过程中可以嵌套调用Sub过程
D：
事件过程可以像通用过程一样由用户定义过程名
133、以下叙述中错误的是______。
A：
在同一窗体的菜单项中，不允许出现标题相同的菜单项
B：
在菜单的标题栏中，"&"所引导的字母指明了访问该菜单项的访问键
C：
程序运行过程中，可以重新设置菜单的Visible属性
D：
弹出式菜单也在菜单编辑器中定义
134、设在菜单编辑器中定义了一个菜单项，名为menu1。
为了在运行时隐藏该菜单项，应使用的语句是______。
A：
menu1.Enabled=True
B：
menu1.Enabled=False
C：
menu1.Visible=True
D：
menu1.Visible=False
135、以下叙述中错误的是______。
A：
一个工程中可以包含多个窗体文件
B：
在一个窗体文件中用Private定义的通用过程能被其他窗体调用
C：
在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
D：
全局变量必须在标准模块中定义
136、设在工程中有一个标准模块，其中定义了如下记录类型
TypeBooks
NameAsString*10
TelNumAsString*20
EndType
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。
下列能够完成该操作的事件过程是______。
A：
PrivateSubCommand1_Click（）
DimBAsBooks
Open"c:
\Person.txt"ForOutputAs#1
B.Name=InputBox（"输入姓名"）
B.TelNum=InputBox（"输入电话号码"）
Write#1,B.Name,B.TelNum
Close#1
EndSub
B：
PrivateSubCommand1_Click（）
DimBAsBooks
Open"c:
\Person.txt"ForInputAs#1
B.Name=InputBox（"输入姓名"）
B.TelNum=InputBox（"输入电话号码"）
Print#1,B.Name,B.TelNum
Close#1
EndSub
C：
PrivateSubCommand1_Click（）
DimBAsBooks
Open"c:
\Person.txt"ForOutputAs#1
B.Name=InputBox（"输入姓名"）
B.TelNum=InputBox（"输入电话号码"）
Write#1,B
Close#1
EndSub
D：
PrivateSubCommand1_Click（）
DimBAsBooks
Open"c:
\Person.txt"ForInputAs#1
Name=InputBox（"输入姓名"）
TelNum=InputBox（"输入电话号码"）
Print#1,Name,TelNum
Close#1
EndSub
137、目录列表框的Path属性的作用是______。
A：
显示当前驱动器或指定驱动器上的目录结构
B：
显示当前驱动器或指定驱动器上的某目录下的文件名
C：
显示根目录下的文件名
D：
显示该路径下的文件
138、在设计应用程序时，通过______窗口可以查看到应用程序工程中的所有组成部分。
A：
代码窗口
B：
窗体设计窗口
C：
属性窗口
D：
工程资源管理器窗口
139、在VisualBasic中，所有的窗体和控件都必定具有的一个属性是______。
A：
Name
B：
Font
C：
Caption
D：
FillColor
140、可以同时删除字符前导和尾部空白的函数是______。
A：
Ltrim
B：
Rtrim
C：
Trim
D：
Mid
141、如果在立即窗口中执行以下操作（是回车键）：
a=8
b=9
printa>b
则输出结果是______。
A：
-1
B：
0
C：
False
D：
True
142、当一个工程含有多个窗体时，其中的启动窗体是______。
A：
启动VisualBasic时建立的窗体
B：
第一个添加的窗体
C：
最后一个添加的窗体
D：
在“工程属性”对话框中指定的窗体
143、对变量名说法不正确的是______。
A：
必须是字母开头，不能是数字或其他字符
B：
不能是VB的保留字
C：
可以包含字母、数字、下划线和标点符号
D：
不能超过255个字符
144、在VisualBasic中，下列运算符中优先级最高的是：
______。
A：
*
B：
\
C：
<
D：
Not
145、以下关系表达式中，其值为假的是：
______。
A：
"XYZ"<"XYz"
B：
"VisualBasic"="visualbasic"
C：
"the"<>"there"
D：
"Integer">"Int"
146、在窗体上画一个命令按钮（名称为Command1），编写如下事件过程：
PrivateSubCommand1_Click（）
b=5
c=6
Printa=b+c
EndSub
程序运行后，单击命令按钮，输出的结果是：
______。
A：
a=11
B：
a=b+c
C：
a=
D：
False
147、以下程序段运行的结果是：
______。
Dima（-1To5）AsBoolean
DimflagAsBoolean
flag=False
DimiAsInteger
DimjAsInteger
DoUntilflag=True
Fori=-1To5
j=j+1
Ifa（i）=FalseThen
a（i）=True
ExitFor
EndIf
Ifi=5Then
flag=True
EndIf
Next
Loop
Printj
A：
20
B：
7
C：
35
D：
8
148、在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应当使用的语句为：
______。
A：
Text1.Clear
B：
Text1.Visible=False
C：
Text1.Hide
D：
Text1.Enabled=False
149、在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimbAsInteger
b=b+1
End
升级会员 