Combo1.RemoveItem Combo1.ListCount
Combo1.RemoveItem Combo1.ListCount-1
Combo1.RemoveItem Combo1.ListIndex
Combo1.RemoveItem Combo1.ListIndex-1
第1题:
在窗体上画一个名称为 Combo1 的组合框,然后画两个名称分别为 Label1 、 Label2 ,标题分别为 \" 城市名称 \" 和空白的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在 Label2 中给出提示 \" 已成功添加新输入页。 \" ,如图所示。如果输入的项目已存在,则在 Label2 中给出提示 \" 输入项已在组合框中。 \" 。请填空。
Private Sub Combol_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
For i=0 To Combo1 ListCount-1
If Combo1 Text= 【 12 】 Then
Label2 Caption=" 输入项已在组合框中。 "
Exit Sub
End If
Next i
Label2 Caption=" 已成功添加新输入项。 "
Combo1 ______ Combo1 Text
End If
End Sub
第2题:
设组合框Combol中有3个项目,则以下能删除最后一项的语句是______。
A.Combol. RemoveItem Text
B.Combol. RemoveItem 2
C.Combol. RemoveItem 3
D.Combol. RemoveItem Combol. Listcount
第3题:
A.Combo 1.RemoveItem Text
B.Combo 1.RemoveItem 2
C.Combo 1.RemoveItem 3
D.Combo 1.RemoveItem Combo 1.Listcount
第4题:
设组合框Combol中有3个项目,则以下能删除最后一项的语句是______。
A.Comb01.RemoveltemText
B.Comb01.Rcmoveltem2
C.Comb01.Removeltem3
D.Comb01.RemoveltemComb01.Listcount
第5题:
若组合框Combol中有3个项目,则以下能删除其最后一项的语句是( )。
A.Combo1.Removeltem Text
B.Combo1.Removeltem 2
C.Combo1.Removeltem 3
D.Combo1.Removeltem Combo 1.Listcount
第6题:
设组合框Combol中有3个项目,则下列能删除最后一项的语句是( )。
A.Combo1.RemoveItem Text
B.Combo1.RemoveItem2
C.Combvo1.RemoveItem3
D.Combo1.RemoveItemCombo1.Listcount
第7题:
A. 移去第一项
B. 移去最后一项
C. 程序无操作
D. 程序出错
第8题:
设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是( )。
A.Combo1.RemoveItem Combo1.Text
B. Combo1.RemoveItem4
C. Combo1.RemoveItem Combo1.ListCount
D. Combo1.RemoveItem5
第9题:
阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在对应栏内。
【说明】
在窗体上画一个名称为Combo1的组合框,画两个名称分别Labe11、Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键 (ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Labe12中给出提示“已成功添加输入项”;如果存在,则在Labe12中给出提示“输入项已在组合框中”。
【程序】
Private Sub Combo1 (1) (KeyAscii As Integer)
If KeyAscii=(2) Then
For i=0 To (3)
If Combo1. Text=(4) Then
Labe12. Caption ="输入项已在组合框中"
Exit Sub
End If
Next i
Label2. Caption ="已成功添加输入项"
Combo1. (5) Combo1.Text
End If
End Sub
第10题:
通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (Combo1)和一个文本框(Text1),代码如下。请填入适当的内容,将程序补充完整。
Private Sub Combo1_Cliek()
TextFontName=ComboList(ComboListlndex)
End Sub
Private Sub Form_Load()
With Combol
Addltem"宋体"
Addltem"隶书"
Addltem"黑体"
&8226;Addltem"楷体_GB2312""
&8226;Listlndex=0
End With
Text1.【 】30
Textl. 【 】=Combol.List(0)
End Sub