.
参考答案：B
18、设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是______。 A：List1.ListIndex B：List1.List C：List1.Text D：List1.Index
参考答案：C
19、设a=5,b=10，则执行c = Int((b - a) * Rnd + a) + 1后，c值的范围为______。 A：6~10 B：6~9 C：5~10 D：5~9
参考答案：A
20、在窗体上有1个名为Cd1的通用对话框，为了在运行程序时打开保存文件对话框，则在程序中应使用的语句是______。 A：Cd1.Action=2
B：Cd1.ShowSave=True C：Cd1.Action=1 D：Cd1.ShowSave=0
参考答案：A
21、下面可以正确定义2个整型变量和1个字符串变量的语句是______。 A：Dim a As Integer,b,c As String B：Dim a%,b$,c As String
C：Dim n,m As Integer,s As String D：Dim x%,y As Integer,z As String
参考答案：D
22、在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a = InputBox(\ b = InputBox(\ Text1.Text = b + a End Sub .
.
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。 A：出错 B：18 C：810 D：108
参考答案：D
23、在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程： Private Sub Command1_Click() CommonDialog1.FileName =\
CommonDialog1.Filter=\ CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle=\ CommonDialog1.Action=1 End Sub
对于这个程序，以下叙述中错误的是______。
A：在该对话框中指定的默认文件类型为文本文件(*.Txt) B：在该对话框中指定的默认文件名为空 C：该对话框的标题为VBTest
D：该对话框被设置为\打开\对话框 参考答案：A 24、设在窗体Forml上有一个列表框Listl，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是______。 A：Private Sub List1_Click() Print Form1.Text End Sub
B：Private Sub Form1_Click() Print List1.Text End Sub
C：Private Sub List1_Click() Print List1.Text End Sub
D：Private Sub Form1_Click() List1.Print List1.Text End Sub
参考答案：C
25、在窗体上从左到右有Text1、Text2两个文本框（见图），要求运行程序时在Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0～100中的1个数，则光标移到 .
.
Text2中；否则光标不动，并弹出对话框\分数错\。下面程序中正确的是______。
A：Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then ' 回车符的ASCII码是13 a=Val(Text1)
If a<0 And a>100 Then Text2.SetFocus Else
Text1.SetFocus:MsgBox(\分数错\ End If End If End Sub
B：Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then ' 回车符的ASCII码是13 a=Val(Text1)
If a>=0 Or a<=100 Then Text2.SetFocus Else
Text1.SetFocus:MsgBox(\分数错\ End If End If End Sub
C：Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then ' 回车符的ASCII码是13 a=Val(Text1)
If a>=0 And a<=100 Then Text2.SetFocus Else
Text1.SetFocus:MsgBox(\分数错\ End If End If End Sub
D：Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then ' 回车符的ASCII码是13 a=Val(Text1)
If a>=0 And a<=100 Then Text1.SetFocus Else
Text2.SetFocus:MsgBox(\分数错\ End If End If End Sub .
.
参考答案：C
26 、假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为\的事件过程是______。 A：Private Sub Command1_Click()
CommonDialog1.DialogTitle = \ CommonDialog1.ShowPrinter End Sub
B：Private Sub Command1_Click()
CommonDialog1.DialogTitle = \ CommonDialog1.ShowColor End Sub
C：Private Sub Command1_Click()
CommonDialog1.DialogTitle = \ CommonDialog1.ShowOpen End Sub
D：Private Sub Command1_Click()
CommonDialog1.DialogTitle = \ CommonDialog1.ShowFont End Sub
参考答案：C
27、在窗体上画一个通用对话框，程序运行后，通过ShowOpen方法显示\打开\对话框，要求在该对话框的\文件类型\栏中只显示扩展名为DOC的文件，则对通用对话框的Filter属性的正确设置是：______。 A：\ B：\ C：\ D：\参考答案：C
28、以下说法中正确的是______。
A：只有当某个窗体为当前活动窗体时，才能打开菜单编辑器
B：任何时候都可以通过执行\工具\菜单中的\菜单编辑器\命令打开菜单编辑器 C：任何时候都可以通过单击标准工具栏上的\菜单编辑器\按钮打开菜单编辑器 D：只有当代码窗口为当前活动窗口时，才能打开菜单编辑器 参考答案：A
29、为了暂时关闭计时器，应把计时器的某 个属性设置为False，这个属性是______。
A：Timer B：Visble C：Enabled D：Interval 参考答案：C
30、某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。 .
.
Private Sub Timer1_Timer() Label1.Caption=Time$ End Sub
在程序执行时发现未能实现上述目的，那么，他应做的修改是______。 A：通过属性窗口把计时器的Enabled属性设置为False
B：把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time C：通过属性窗口把计时器的Interval属性设置为2000
D：把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$ 参考答案：C
31、若设置了文本框的属性PasswordChar=\，则运行程序时向文本框中输入8个任意字符后，文本框中显示的是______。
A：无任何内容 B：1个\ C：8个\ D：8个\参考答案：D
32、在窗体上有如下图所示的控件，各控件的名称与其标题相同，并有如下程序： Private Sub Form_Load()
Command2.Enabled = False Check1.Value = 1 End Sub
刚运行程序时，看到的窗体外观是______。
A： B： C： D：
参考答案：D
33、要使两个单选按钮属于同一个框架，正确的操作是______。
A：先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中 B：其他选项方法都正确
C：先画一个框架，再在框架中画两个单选按钮
D：先画两个单选按钮，再画框架将单选按钮框起来 参考答案：C
34、在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程
Private Sub Form_Load() .