nd1,然后编写如下事件过程:
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
D
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
责任编辑:小草