( 7 )设窗体上有一个名称为 Combol 的组合框,并有以下程序:Private Sub Combol_KeyPress(KeyAscii As Integer)If 【 9 】 =13 Then ‘ 回车符的 ASCII 码是 13For k=0 To Combol.ListCount-1If Combol.Text= Combol.List(k) ThenCombol.Text= ” ”Exit ForEnd IfNext kIf Combol.Text “” ThenCombol.AddItem 【 10 】End IfEnd IfEnd Sub程序的功能是 : 在组合框的编辑区中输入文本后按回车键 , 则检查列表中有无与此文本相同的项目 , 若有 ,则把编辑区中的文本删除,否则把编辑区中文本添加到列表的尾部。请填空。
( 7 )设窗体上有一个名称为 Combol 的组合框,并有以下程序:
Private Sub Combol_KeyPress(KeyAscii As Integer)
If 【 9 】 =13 Then ‘ 回车符的 ASCII 码是 13
For k=0 To Combol.ListCount-1
If Combol.Text= Combol.List(k) Then
Combol.Text= ” ”
Exit For
End If
Next k
If Combol.Text <> “” Then
Combol.AddItem 【 10 】
End If
End If
End Sub
程序的功能是 : 在组合框的编辑区中输入文本后按回车键 , 则检查列表中有无与此文本相同的项目 , 若有 ,则把编辑区中的文本删除,否则把编辑区中文本添加到列表的尾部。请填空。
相关考题:
窗体上有一组合框Combol,窗体加载时的代码如下:Private Sub Form_Load()Combol. AddItem“电视机”Combol. AddItem“录像机”Combol. AddItem“VCD”Combol. AddItem“组合音响”End Sub要在文本框Textl中显示列表中的第三个项目,则正确的语句的是( )。 A.Textl.Text=Combol.List(0)B.Textl.Text=Combol.List(1)C.Textl.Text=Combol.List(2)D.Textl.Text=Combol.List(3)
设在窗体上有—个名称为Combol的组合框,含有5个项目,要删除最后一项,正确的语句是 ______。A.Combo1.RemoveItem Combo1.TextB.Combo1.Removeltem4C.Combo1.RemoveItem Combo1.ListCountD.Combo1.RemoveItem5
设组合框Combol中有3个项目,则以下能删除最后一项的语句是______。A.Combol. RemoveItem TextB.Combol. RemoveItem 2C.Combol. RemoveItem 3D.Combol. RemoveItem Combol. Listcount
设窗体上有一个文本框,名称为Textl,程序运行后,要求该文本框只能显示信息,不能接收输入的信息,以下能实现该操作的语句是( )。A.Textl.MaxLength=0B.Textl.Enabled=FalseC.Textl.Visible=FalseD.Textl.Width=0
设组合框Combol中有3个项目,则以下能删除最后一项的语句是 ______。A.Combol.RemoveItem TextB.Combol.RemoveItem 2C.Combol.ReanoveItem3D.Combol.RemoveItem Combol.Listcount
设窗体上有—个名称为Combo1的组合框,并有以下程序:Privale Sub Combol_ KeyPress(KeyAscii As Integer)If【 】 =13 Then 回车符的ASCII码是13For k=0 To Combo1. ListCount-1If Combo1.Text=Combol. List(k)ThenCombo1.Text=" "Exit ForEnd IfNext kIf Combo1. Text<>" "ThenCombo1. AddItem 【 】End IfEnd IfEnd Sub程序的功能是:在组合框的编辑区中输入文本后按回车键,则检查列表中有无与此文本相同的项目,若有,则把编辑区中的文本删除,否则把编辑区中文本添加到列表的尾部。请填空。
设组合框Combol中有3个列表项,为了删除其最后一项,应使用的语句是______。A.Combol.RemoveItem Combo1. ListCountB.Combol.RemoveItem 3C.Combol.RemoveItem Combol. ListCount-1D.Combol.RemoveItem Combol. Text
在窗体上画一个组合框、一个命令按钮和一个文本框,其名称分别为Combol和Text1,然后编写如下事件过程: Private Sub Form_Load() Combol.AddItem "AAAAA" Combol.AddItem "BBBBB" Combol.AddItem "CCCCC" Combol.AddItem "DDDDD" Combol.AddItem "EEEEE" End Sub 程序运行后,如果单击命令按钮,则在文本框中显示组合框的项目,"CCCCC"。为了实现该操作,在命令按钮的Click事件过程中应使用的语句为______。A.Text1.Text=Combol.List(2)B.Text1.Text=Combol.TextC.Text1.Text=Combol.List(3)D.Text1.Text=Combol.ListIndex
窗体上有一个名称为Combol的组合框,其初始内容为空,有一个名称为Command1、标题为“添加项目”的命令按钮,程序运行后,如果单击命令按钮,会将给定数组中的项目添加到组合框中,如图所示,请填空。Option Base 1Private Sub Command1_Click()Dim city As Variantcity=_______(”北京”,”天津”,”上海”,”武汉”,”重庆”,”西宁”)For i=_______ To UBound(city)Combol.AddItem_______NextEnd Sub