二级计算机选择题卷七

一选择题
1 对于窗体，以下（）在程序运行时属性设置值才起作用。

A Name
B Left
C BackColor
D MinButton
2 用Dim x, y, j As Integer, m, n As Single语句声明多个变量，以下说法正确的是
（）。

A x、y、m都是变体型变量，j是整型变量，n是双精度变量
B x、y、j都是整型变量，m、n都是单精度变量
C x、y、j都是整型变量，m是变体型变量，n是单精度变量
D x、y、m都是变体型变量，j是整型变量，n是单精度变量
3 设a="12345"，则表达式Val(Left(a, 3) + Mid(a, 2, 3))的值为（）。

A "123345"
B 123234
C"123234" D 123345
4 设a$ = " ABCDEFG"，下列表达式的值类型为Integer的是（）。

A Lcase(a)
B Left(a, 7)
C Ltrim(a)
D Len(a)
5 要使Print方法在Form_Load事件中起作用，要对窗体的（）属性进行设置。

A BackColor AutoRedraw
B DrawStyle Caption
6 执行语句MsgBox "AAA", 2, "BBB" 后，所产生的消息框的标题是（）。

A 出错，不能产生消息框
B 2
C BBB
D AAA
7 如果一个工程含有多个窗体及标准模块，以下叙述错误的是（）。

A Load语句把一个窗体装入内存，但此时窗体并没有显示出来
B 任何时刻最多只有一个窗体是活动窗体
C Hide方法可以清除内存中指定的窗体
D 在多个窗体中，可以用关键字Me代表程序代码所在的窗体
8 将文本框的（）属性设置为True时，文本框控件在运行时不能编辑。

A Locked
B ScrollBars
C MultiLine
D PassWordChar
9 运行时要在图片框Picture1中显示字符串“运动”，可使用（）。

A Picture1.Text = "运动"
B Picture1.Print "运动"
C Picture1.Print = "运动"
D Print "运动"
10下列能使复选框Check1被选中、单选按钮Option1未被选中的语句是（）。

A Check1.Value=True 和Option1.Value =0
B Check1.Value=1 和Option1.Value =False
C Check1.Value=False 和Option1.Value =1
D Check1.Value=0 和Option1.Value =True
11 命令按钮能够响应（）事件。

A Change
B DblClick
C Scroll
D KeyPress
12 使用（）语句可将列表框List1第1项的值设置为“VB程序设计”。

A List1.ListIndex(0) = "VB程序设计"
B List1.ListIndex(1) = "VB 程序设计"
C List1.List(0) = "VB程序设计"
D List1.List(1) = "VB程序设计"
13 已将计时器控件的Enabled属性设置为True，仍然不能触发Timer事件的原因是（）
A 计时器控件的Interval属性值为0
B 计时器控件的Visible属性设置为True
C 计时器控件的Visible属性设置为False
D 计时器控件的Interval属性值设置为65535
14要取得所按键的ASCII码，应利用文本框的（）事件过程的KeyAscii参数。

A KeyDown
B Change
C Click
D KeyPress
15 Text1和命令按钮Command1，编写如下事件过程：
Private Sub Command1_Click()
i = Text1.Text
Select Case i
Case 1: j = "+"
Case 2: j = "-"
Case 3: j = "*"
Case Else: j = "非法"
End Select
Text1.Text = j
End Sub
运行时，在Text1中输入5后单击命令按钮，Text1中内容是（）。

A 非法
B +
C -
D *
16下列循环语句不能正常结束循环的是（）。

A = 1
B = 1
Do Do
i = i + 2 i = i - 1
Loop Until i = 11 Loop Until i > 0
C = 5
D = 6
Do Do
i = i + 1 i = i - 2
Loop Until i > 0 Loop Until i = -4
17下列程序运行的结果是（）。

Private Sub Command1_Click()
Dim a(6) As Integer, b(6) As Integer
n = 5
For i = 1 To 6
a(i) = i
b(i) = i ^ 2 - n
Next i
Print a(n); b(n)
End Sub
A 6 30
B 5 10
C 6 31
D 5 20
18 运行下列程序，输出的结果为（）。

Function fact(x As Integer) As Long
Dim i As Integer
fact = 1
For i = 1 To x
fact = fact * i
Next i
End Function
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 2
Print fact(i);
Next i
A 2 4
B 1 1
C 2 3
D 1 2
19 设有菜单项T1，如果设置T1的Visible属性为False，下列说法正确的是（）。

A该菜单项不可见但可用 B 该菜单项不可见也不可用
C 该菜单项不能设置快捷键
D 该菜单项不能设置热键
20 如果目录文件"C:\VB\"存在，下述（）语句可以使文件列表框File1显示该目录下的所
文件。

A File1.FileName = "C:\VB\"
B File1.File = "C:\VB\"
C File1.FilePath = "C:\VB\"
D File1.Path = "C:\VB\"
二设计题
三编程题。