单项选择题

窗体上有一个名称为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) 程序死循环

单项选择题

窗体上有一个名称为HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。

A) Private Sub HScroll1_Change( )
Print HScroll1. Value
End Sub
B) Private Sub HScroll1_Change( )
Print HScroll1. SmallChange
End Sub
C) Private Sub HScroll1_Scroll( )
Print HScroll1. Value
End Sub
D) Private Sub HScroll1_Scroll( )
Print HScroll1. SmallChange
End Sub