《VB程序设计》补修课试卷
一、单选题（每题2分，空20分）
1. VB6.0是一种面向 ( ) 的编程环境。
(A) 机器(B) 对象
(C) 过程 (D) 应用
2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下 ( ) 语句是正确的。
(A) Forml.Caption=“欢迎使用VB”
(B) Forml.Caption='欢迎使用VB'
(C) Forml.Caption=欢迎使用VB
(D) Forml.Caption="欢迎使用VB"
3. 若要使命令按钮不可操作，要对 ( ) 属性进行设置。
(A) EnabIed (B)Visible
(C) Backcolor (D)Caption
4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过 ( ) 事件获得输入键值的ASCII 码。
(A) Change (B) LostFocus
(C) KeyPress (D) GotFocus
5. 下面是合法的变量名。
(A) X_yz (B) 123ab。
(C) integer (D) X-Y
6. 以下关系表达式中，其值为False的是( ) 。
(A) "ABC">"AbC" (B) "女">"男"
(C) "BASIC"=UCase("basic) (D) "123"<"23"
7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是( ) 。
(A) x=1:y=1:z=1 (B) x=1,y=1,z=1
(C) x=y=z=1 (D) xyz=1
8. VB提供了结构化程序设计的三种基本结构，三种基本结构是 ( ) 。
(A)递归结构、选择结构、循环结构
(B)选择结构、过程结构、顺序结构
(C)过程结构、输入输出结构、转向结构
(D)选择结构、循环结构、顺序结构
9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 ( ) 。
(A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l
(B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l
(C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l
(D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l
10.下列关于Do…Loop循环结构执行循环次数的描述正确的是( ) 。
(A) Do While…Loop循环和Do…Loop Until循环至少都执行一次
(B) Do While…Loop循环和Do…Loop Until循环可能都不执行
(C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行
(D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次
二、判断题（每空2分，共20分）
1）只要用拖拽的方法，将工具箱中所需的控件拖到窗体上即可完成。
2）控件是对象，而窗体不是对象，它只是控件对象的窗口。
3） TextBox与Label有许多共同特点，它们都能显示和输入文本。
4）有的对象属性既可在属性窗口中设定又可在程序代码中设定。
5）在框架控件内的几个单选按钮中，只能有一个单选按钮的Value属性为True。
6）标签没有Change事件和SetFocus方法。
7）事件过程与Sub过程，它们相同点都是事件驱动，而不同的只是事件过程由控件属性决定，而Sub过程是由户自定义。
8） Function函数有参数传递，并且一定有返回值。
9）滚动条控件不可作为用户输入数据的方法。
10）Msgbox函数建立的信息框能显示信息又能输入用户的信息。
三、填空题（每空2分，共20分）
1．变量min@表示（）类型的变量。
2．如果：I=11：J=3：I=int(-8.6)+I\J+13/3 MOD 5，则I值是（）。
3．请写出满足以下条件的VB表达式：0＜X＜10，（）。
X为[0-100]之间的数，能被2整除，但不能被3整除（）。
4．下列循环语句控制的循环次数为（）FOR K=1 TO 10 STEP –1。
5．表达式1 and 0的值( ) 。
6．随机产生100至200（不包括100和200）之间的整数的表达式为：( ) ；如果包括100而不包括200，则表达式为：（）。
7．写出清除图片框的文字或图形信息的语句：（）。
8.写出清除标签显示信息的语句为：（）。
四、程序阅读（每小题10分，共20分）
1．C=InputBox(“请输入字符串：”)
p=” ”
For L=Len(c) To 2 Step –2
P=Mid(C, L – 1, 2) + P
Next L
Print P
End Sub
如果输入：ABCDEFG ，则结果：2．Dim Y As Integer
Private Sub Command_Click()
Dim X As Integer
X=1
Y=1
Call AA(Y+1)
Z=BB(X)
Print X, Y, Z
End Sub
Private Sub AA(ByVal Z As Integer)
Y = Z + X
Z = X + Y
End Sub
Private Function BB (ByRef Y As Integer) Y = Y + 1
BB=X + Y
End Function 结果：
五、编程应用题（共20分）
程序阅读，写出下列程序的运行结果。
Private Sub Command1_Click( )
Dim a, i%, min%, imin%, sum%, t%
a=Array(26, 43, 61, 87, 33, 19, 37, 59, 76, 69)
min=a(0): imin=0: sum=a(0)
For i=1 to UBound(a)
sum=sum+a(i)
If a(i)< min Then min=a(i): imin=i
Next i
t=a(0): a(0)=a(imin): a(imin)=t
Print sum; a(0)
End Sub
输出结果：。