2016年9月全国计算机vb二级考试题库
Private Sub Command1_Click()
Timer1.______
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
在下划线处应填入的内容是______。
A) Enabled = True B) Enabled = False
C) Visible = True D) Visible = False
(19)假定在图片框Picture1中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确方法是______。
A)选择图片框，然后按Del键
B)执行语句Picture1.Picture = LoadPicture ("")
C)执行语句Picture1.Picture =""
D)选择图片框，在属性窗口中选择Picture属性条，然后按回车键
(20)在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的'名称。下列能正确实现上述操作的程序是：_____。
A)Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
B)Private Sub List1_Click()
Label1.Name=List1.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
(21)在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer, x As Integer
For i = 1 To 6
If i = 1 Then x = i
If i <= 4 Then
x = x + 1
Else
x = x + 2
End If
Next i
Print x
End Sub
程序运行后，单击命令按钮，其输出结果为______。
A)9 B)6 C)12 D)15
(22)在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
c = “ABCD”
For n= 1 To 4
Print ______
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容
D
CD
BCD
ABCD
则在______处填入的内容为。
A) Left(c,n) B) Right(c,n) C) Mid(c,n,1) D) Mid(c,n,n)
(23)执行以下程序段
Dim i As Integer, x As Integer
x = 0
For i = 20 To 1 Step -2
x = x + i \ 5
Next
Print x
后，x的值为______。
A)16 B)17 C)18 D)19
(24)在Visual Basic工程中，可以作为“启动对象”的程序是______。
A)任何窗体或标准模块 B)任何窗体或过程
C)Sub Main过程或其他任何模块 D) Sub Main过程或任何窗体
(25)假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是______。
A)数组中每个命令按钮的名称(Name属性)均为Command1
B)数组中每个命令按钮的标题(Caption属性)都一样
C)数组中所有命令按钮可以使用同一个事件过程
D)用名称Command1(下标)可以访问数组中的每个命令按钮
(26)把窗体的KeyPreview属性设置为True，然后编写如下事件过程
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr(KeyAscii)
KeyAscii = Asc(UCase(ch))
Print Chr(KeyAscii + 2)
End Sub
程序运行后，按键盘上的“A”键，则在窗体上显示的内容是______。
A)A B) B C)C D)D
(27)在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：
Private Sub Command1_Click()
a=InputBox(“请输入日期(1~31)”)
t=”旅游景点：” _
& IIf ( a > 0 And a <= 10,”长城”,””) _
& IIf ( a >10 And a <= 20,”故宫”,””) _
& IIf ( a > 20 And a <= 31,”颐和园”,””)
Text1.Text = t
End Sub
程序运行后，如果从键盘上输入16，则在文本框显示的内容是______。
A) 旅游景点：长城故宫 B) 旅游景点：长城颐和园
C) 旅游景点：颐和园 D) 旅游景点：故宫
(28)在窗体上画一个名称为Label1的标签，然后编写如下事件过程：
Private Sub Form_Click()
Dim arr(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 2 To 4
For j = 2 To 4
arr(i, j) = i * j
Next j
Next i
Label1.Caption = Str(arr(2, 2) + arr(3, 3))
End Sub
程序运行后，单击窗体，在标签中显示的内容是______。
A)12 B)13 C)14 D)15
(29)在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function fun(ByVal m As Integer)
If m Mod 2 = 0 Then
fun = 2