2003-04全国计算机等级考试二级笔试试卷Visual Basic 语言程序设计(1)

（1）以下不能在"工程资源管理器"窗口中列出的文件类型是
A）.bas B）.res C）.frm D）.ocx

（2）以下关于窗体的描述中，错误的是
A）执行Unload Form1语句后，窗体Form1消失，但仍在内存中
B）窗体的Load 事件在加载窗体时发生
C）当窗体的Enabled 属性为False时，通过鼠标和键盘对窗体的操作都被禁止
D）窗体的Height、Width属性用于设置窗体的高和宽

（3）下列可作为Visual Basic变量名的是
A）A#A B）4A C）?xy D）constA

（4）设有如下的记录类型
Type Student
number As String
name As String
age As Integer
End Type
则正确引用该记录类型变量的代码是
A） Student.name = "张红" B） Dim s As Student
s.name = "张红"
C） Dim s As Type Student D） Dim s As Type
s.name = "张红" s.name = "张红"

（5）函数String（n, "str"）的功能是
A）把数值型数据转换为字符串
B）返回由n个字符组成的字符串
C）从字符串中取出n个字符
D）从字符串中第n个字符的位置开始取子字符串

（6）将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是
A）Cos (a+b) ^2+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）在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：
Private Sub Command1_Click()
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）hardware D）1

（8）执行如下语句：
a = InputBox("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）在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是
A） Private Sub List1_Click() B）Private Sub List1_Click()
Label1.Caption = List1.ListIndex Label1. Name = List1. ListIndex
End Sub End Sub
C） Private Sub List1_Click() D）Private Sub List1_Click()
Label1.Name = List1.Text Label1.Caption = List1.Text
End Sub 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）上海