(21)用什么语句可以选择指定的表项或取消已选择的表项？
A)列表框.Selected(索引值)
B)列表框名.Selected(索引值)=True|False
C)列表框.Selected
D)列表框名.Selected＝True|False
正确答案: B
(22)用于将屏幕上的对象分组的控件是
A)列表框
B)组合框
C)标签
D)框架
正确答案: D
(23)以下说法不正确的是
A)使用ReDim语句可以改变数组的维数
B)使用ReDim语句可以改变数组的类型
C)使用ReDim语句可以改变数组的每一维的大小
D)使用ReDim语句可以改变对数组中的所有元素进行初始化
正确答案: B
(24)有如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (Button And 3)=3 Then
Print "OK"
End If
End Sub
程序运行后，为了在窗体上输出"OK"，应当按下的鼠标键是
A)左键
B)右键
C)同时按下左键和右键
D)按什么都不显示
正确答案: D
(25)在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，要求单击命令按钮时，打开一个保存文件的对话框，该窗口的标题为"Save"，缺省文件名称为"SaveFile"，在"文件类型"栏中显示*txt，则能够满足上述要求的程序是
A)Private Sub Command1_Click()
CommonDialog1.FileName="SaveFile"
CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC)|*.doc"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="Save"
CommonDialog1.Action=2
End Sub
B)Private Sub Command1_Click()
CommonDialog1.FileName="SaveFile"
CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC)|*.doc"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="Save"
CommonDialog1.Action=2
End Sub
C)Private Sub Command1_Click()
CommonDialog1.FileName="Save"
CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC)|*.doc"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="SaveFile"
CommonDialog1.Action=2
End Sub
D)Private Sub Command1_Click()
CommonDialog1.FileName="SaveFile"
CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC)|*.doc"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="Save"
CommonDialog1.Action=1
End Sub
正确答案: A
责任编辑：小草
