一、选择题((1)一(20)每小题2分，(21)一(30)每小题3分，共30题，70分)
　　下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡的相应位置上，答在试卷上不得分。
(1)以下不能在“工程资源管理器”窗口中列出的文件类型是
A)．bas B)．res C)．fnn D)．ocx
(2)以下关于窗体的描述中，错误的是
A)执行UnloadFoMl语句后，窗体Fonnl消失，但仍在内存中
B)窗体的Ioad事件在加载窗体时发生
C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止
D)窗体的Height、width属性用于设置窗体的高和宽
(3)下列可作为Visual Basic变量名的是
A)A#A B)4A C)?xY D)constA
(4)设有如下的记录类型
Type Student
numberAs string
name As String
age As Integer
End Type
则正确引用该记录类型变量的代码是
A) Student．name=”张红” B) Dim As Student
s．name＝”张红”
C) Dim s As Type Student D) Dim s As Type
S．name=”张红” s.Dame＝”张红”
(5)函数String(n，“str”)的功能是
A)把数值型数据转换为字符串
B)返回由n个字符组成的字符串
C)从字符串中取出n个字符
D)从字符串中第n个字符的位置开始取子字符串
(6)将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是
A)Cos(a+b)A2十5*exp(2) B)Cos^2(a+b)+5*exp(2)
C)Cos(a+b)^2十5*ln(2) D)Cos^2(a+b)+5*ln(2)
(7)在窗体上画一个命令按钮，名称为Commandl。单击命令按钮时，执行如下事件过
程：
PrlVate Sub Commandl-C1icko
a$="software and hardware"
b$＝Right(a$,8)
c$=Mid(a$,1，8)
Msgbox a$,,b$,c$,1
End Sub
则在弹出的信息框的标题栏中显示的信息是
A)softWare and hardware B)software C)hardwafe D)1
(8)执行如下语句：
a＝inutBox(”Today”，”TomorroW，”Yesterday”,,,"Day before yesterday"，5)
将显示一个输入对话框，在对话框的输入区中显示的信息是
A)Today B)Tomorrow C)Yesterday D)Day before yesterday
(9)表示滚动条控件取值范围最大值的属性是
A)Max B)LargeChange C)Value D)Max-Min
(10)在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签。列表框中显示
若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。
下列能正确实现上述功能的程序是
A) Private Sub listl_Click()
Labell．Caption＝list1.listlndex
End Sub ．
B)Private Sub Listl_C1ick()
Labell．Nanle＝Listl．listindex
End Sub
C)Private Sub List1_Click()
Label1.Name=List1.Text
End Sub
D)Private Sub List1_Click()
Label1.Caption=List1.Text
End Sub
(11)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
x=0
n=InputBox("")
For i= 1 To n
For j = 1 To i
x = x +1
Next j
Next i
Print x
End Sub
程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是______。
A)3 B)4 C)5 D)6
(12)以下关于菜单的叙述中,错误的是______。
A)在程序运行过程中可以增加或减少菜单项
B)如果把一个菜单的Enabled属性设置为False,则可删除该菜单项
C)弹出式菜单在菜单编辑器中设计
D)利用控件数组可以实现菜单项的增加或减少
(13)在窗体上画三个单选按钮,组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是______。
A)Tag
B)Index
C)ListIndex
D)Name
(14)在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Option Base 0
Private Sub Command1_Click()
Dim city As Variant
city = Array("北京","上海","天津","重庆")
Print city(1)
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。
A)空白
B)错误提示
C)北京
D)上海