单项选择题

设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是( )。

A) Private Sub Tiiner1_Timer( )
Label1. Caption = True
End Sub
B) private Sub Timer1_Timer ( )
Label1. Caption = Time $
End Sub
C) Private Sub Timerl_Timer( )
Label1. Interval = 1
End Sub
D) Private Sub Timer1_Timer( )
For k = 1 To Timer1. Interval
Label1. Caption = Timer
Next k
End Sub

<上一题目录下一题>

热门试题

单项选择题

窗体上有一个名称为Combo1的组合框，要求在其编辑区输入文本并按回车键后，编辑区中的文本被添加到列表中。下面能实现这一功能的是( )。

A) Private Sub Combo1_KeyDown( KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then

Combo1. AddItem Combo1. Text
End If
End Sub
B) Private Sub Combo1_KeyDown( KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then

Combo1. Addhem Text1. Text
End If
End Sub
C) Private Sub Combo1_Click( )
Combo1. AddItem Combo1. Text
End Sub
D) Private Sub Combo1_Click( )
Combo1. AddItem Text1. Text
End Sub

单项选择题

设有如下Command1的单击事件过程及fun过程： Private Sub Command1_Click( ) Dim x As Integer x = Val( InputBox( 请输入一个整数 ) ) fun(x) End Sub Private Sub fun( x As Integer) If x Nod 2 =0 Then fun(x 2) Print x ; End Sub 执行上述程序，输入6，结果是( )。

A) 3 6
B) 6 3
C) 6
D) 程序死循环