（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
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)
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
14
D．15
（29）在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function fun(ByVal m As Integer)
If m Mod 2 = 0 Then
fun = 2
Else
fun = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 5
s = s + fun(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是（ ）。
A．6
B．7
C．8
D．9
（30）阅读程序：
Option Base 1
Dim arr() As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer
ReDim arr(3, 2)
For i = 1 To 3
For j = 1 To 2
arr(i, j) = i * 2 + j
Next j
Next i
ReDim Preserve arr(3, 4)
For j = 3 To 4
arr(3, j) = j + 9
Next j
Print arr(3, 2) + arr(3, 4)
End Sub
程序运行后，单击窗体，输入结果为（ ）。
A．21
B．13
C．8
D．25
转贴于：计算机二级考试_考试大
【责编:onmars 纠错】
[1] [2] [3] [4] [5] [6] 
相关文章
2005-6-27
