A、2B、6C、10D、14
8、运行VB程序的快捷键为（）。
A．F4B．F5C．F6D．F8
9、下列为整型变量的是（）
A、x!
B、x#C、x$D、x%
10、要从For循环中直接退出循环，可使用的语句（）。
A、ExitDoB、ExitLoopC、ExitForD、Stop
11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（ ）
A、xMod2=1OryMod2=1B、xMod2=0OryMod2=0
C、xMod2=0AndyMod2=0D、xMod2=1AndyMod2=1
12、表达式：
10\4+8/4 Mod 4的值为（ ）
A. 4 B. 3 C. 2 D. 1
13、下列运算符中（ ）优先级最高。
A./ B.\ C.Mod D. +
14、一只白色的足球被踢进球门，则白色、足球、踢、进球分别是（）。
A．属性、对象、方法、事件B．属性、对象、事件、方法
C．对象、属性、方法、事件D．属性、方法、对象、事件
15、下列选项中，把r定义为双精度型变量的是（ ）。
A. r% B. r!
C. r# D. r$
16、用于字符串连接的运算符是（ ）。
A. & B. + C. And D. A和B都可以
17、决定一个控件在窗体上的位置，要使用（）属性。
A．Height，WidthB．BackColor，ForeColor
C．MaxButton，MinButtonD．Top，Left
18、执行x=InputBox（"请输入半径",0,"求面积"），在输入框中输入3后回车,则下列叙述正确的是（）
A、x的值是数值3B、x的值是字符"3"
C、0是默认值D、对话框标题是"求面积"
19、关于保存工程，正确的是（）。
A．保存工程时只要保存窗体文件即可B．保存工程时只要保存工程文件即可
C．先保存工程文件，再保存窗体文件D．先保存窗体文件，再保存工程文件
20、有如下事件过程
PrivateSubCommand1_Click（）
x=1
Fori=1To3
Ifi<=1Thena=x*x
Ifi<=2Thena=x*x+1
Ifi>=3Thena=x*x+2
Printa;
Nexti
EndSub
运行时，单击命令按钮，则结果是（）：
A、2511B、151C、223D、111
21、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
PrivateSubCommand1_Click（）
StaticXAsInteger
StaticYAsInteger
Cls
Y=1:
Y=Y+5:
X=5+X
PrintX,Y
EndSub
程序运行时，单击命令按钮Command1三次后，窗体上显示的结果为（ ）
A、1516B、156C、1515D、56
22、设a=3,b=5，则以下表达式值为TRUE的是（ ）
A、a>=bAndb>10B、a>bOrb>0
C、a<0andb>0D、-3+5>aandb>0
23、以下各项中，不是字符串常量的是（ ）。
A. ＂Basic＂B. ＂程序设计＂ C. ＂＂ D. #Basic#
24、下列说法中错误的是（）。
A．VB采用了事件驱动的编程机制B．VB是面向过程的程序设计语言
C．VB是可视化的程序设计语言D．VB是面向对象的程序设计语言
25、窗体文件的扩展名为（）。
A、.vbpB、.frmC、.vbwD、.bas
26、表达式29\3的值是（ ）
A、1B、7C、8D、9
27、下面选项中（ ）是算术运算符。
A、Mod B、＆ C、% D、And
28、下面程序段求两个数中的大数，不正确的是（）
A、max=IIF（x>y,x,y）
B、Ifx>yThenmax=xElsemax=y
C、max=x:
Ify>=xthenmax=y
D、Ify>=xThenmax=y:
max=x
29、在窗体上添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：
PrivateSubCommand1_Click（）
x=0
n=0
DoWhilex<50
x=（x+2）*（x+3）
n=n+1
Loop
Text1.Text=Str（n）
Text2.Text=Str（x）
EndSub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）
A、1和0B、2和72C、3和50D、4和168
30、VB中最基本的对象是（），这是应用程序的基石。
A．标签B．命令按钮C．窗体D．文本框
二、填空题（每小题2分，共20分）
31、数学关系式a2+b2表示成正确的VB表达式为______。
32、计算表达式的值Int（86.567*100+0.5）/100＝______。
33、赋值语句g=123+Mid（"123456",3,2）执行后，变量g中的值是______。
34、VB6.0在编写代码时可以添加说明性文字。
注释方法有2种，一种是使用注释标记符撇号（’）；另一种是使用以关键字______开头的注释语言。
35、设a="a"，b="b"，c="c"，d="d"，执行语句x=IIf（（ad）,"A","B"）后，x的值为______。
36、在VB中，描述对象特征的数据称为对象的______。
37、有下面的表达式x1=val（“1e2abcd”），运行后，x1的值为：
______。
38、设字符类型的变量ch中存储了一个小写字母，把ch中的小写字母转换成对应的大写字母的赋值语句：
______。
39、VB应用程序的开发步骤为：
______、设置属性、编写代码、运行与调试。
40、设a=10，b=5，c=1，执行语句Printa>b>c后，窗体上显示的是______。
三、读程序写结果（每空2分，共20分）
41、下面程序执行后a的值是_____。
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger
a=1:
b=1
DoWhileb<>5
a=b-a
b=b+1
Loop
Printa
EndSub
42、下列程序运行后，单击窗体时显示的结果是____。
PrivateSubForm_Click（）
DimxAsInteger
x=1
mysubx
Printx
EndSub
PrivateSubmysub（xAsInteger）
x=3*x-1
Ifx<5Thenx=x+9
EndSub
43、单击窗体，程序运行后结果是______。
PrivateSubform_Click（）
DimiAsInteger,jAsInteger
i=22:
j=44
Callmysub（i,j）
Printj
EndSub
PublicSubmysub（ByValxAsInteger,yAsInteger）
x=y+x
y=xMody
EndSub
44、一个窗体上有一个文本框Text1和一个标签Label1，有如下的事件过程：
PrivateSubText1_Change（）
Label1.Caption=Text1.Text
EndSub
该窗体在运行时，如果用户在文本框中输入“预祝你考试成功”，则标签的内容会变成______________。
45、程序运行时，单击Command1按钮，显示结果是___、_。
PrivateSubCommand1_Click（）
DimiAsInteger,nAsInteger
Fori=1To100
i=i+4
n=n+1
i=i+2
Ifi>30ThenExitFor
Nexti
Printn,i
EndSub
46、已知一个长方体的长、宽、高为a、b、c，求其表面积S。
设计一个窗体：
3个文本框（分别为Text1、Text2、Text3），分别输入长、宽、高；一个命令按钮，单击该按钮即可完成计算；一个文本框显示运算结果。
试补齐以下代码：
PrivateSubCommand1_Click（）
a=Val（Text1.Text）'将长方体的长送入变量a中
b=Val（____________________）
c=val（____________________）
s=_________________________
text4.text=Str（s）
Label1.caption="长方体的表面积为：
"&_________________
EndSub
参考答案：
一、单项选择题
1-5、BDADC6-10、CBBDC11-15、DAAAC
16-20、DABDC21-25、BBDBB26-30、DADBC
二、填空题
31、a^2+b^2
32、86.57
33、157
34、REM
35、“A”
36、属性
37、100
38、ch=Chr（Asc（ch）-32）
39、设计界面
40、false
三、读程序写结果题
41、3
42、11
43、22
44、预祝你考试成功
45、5,35
46、Text2.Text、Text3.Text、2*（a*b+a*c+b*c）、Str（s）
升级会员 