Private Sub Form_Click(）
x = InputBox("请输入一个整数"）
Print x + Text1.Text
End Sub
A）123 B）456 C）579 D）123456
（18）在窗体上画一个文本框和一个计时器控件，名称分别为 Text1 和 Timer1,在属性窗口中把计时器的 Interval 属性设置为 1000，Enabled
属性设置为 False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序，在______
处应填入的内容是
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）执行以下程序段后，x 的值为
Dim x As Integer, i As Integer
x=0
For i = 20 To 1 Step -2
x = x + i \ 5
Next I
A）16 B）17 C）18 D）19
(24）在 Visual Basic 工程中，能够作为启动对象的程序是
A）任何窗体或标准模块 B）任何窗体或过程
C）Sub Main 过程或其它任何模块 D）Sub Main 过程或任何窗体
(25）假定建立了一个名为 Command1 的命令按钮数组，则以下说法中错误的是
A）数组中每个命令按钮的名称(名称属性）均为 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 <= 30, "颐和园", ""）
Text1.Text = t
评论0
最新资源