填空题
在窗体上画一个名称为Combol的组合框,画两个名称分别为Label1和Label2及 Caption属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按<Enter>键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示“已成功添加输入项”,如下图所示:如果存在,则在 Label2中给出提示“输入项已在组合框中”。请将程序补充完整。
Private Sub Combol_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
For i=0 To Combol.ListCount-1
If Combol.Text=
【2】
Then
Label2.Caption= "输入项已在组合框中"
Exit Sub
End If
Next i
Label2. Caption = "已成功添加输入项"
Combol.
【3】
Combol. Text
End If
End Sub
【参考答案】
Combol. List(i) AddItem
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是 ______。
A.2
B.3
C.4
D.5
点击查看答案&解析
单项选择题
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和 Command1,然后编写如下两个事件过程: Private Sub Command1_Click() strText=InputBox( 请输入 ) Text1.Text=strText End Sub Private Sub Text1_Change() Label1.Caption=Right(Trim(Text1.Text),4) End Sub 程序运行后,如果在对话框中输入abcdefgh,则在标签中显示的内容是 ______。
A.空
B.abcdef
C.abcd
D.efgh
点击查看答案&解析
相关试题
下列程序实现的功能是:当在窗体上单击时,...
在窗体上画1个名称为Command1的命令按钮...
在窗体上面画一个命令按钮,然后编写如下程...
在窗体上画一个名称为command 1的命令按...
在窗体上画一个命令按钮(其Name属性为Comm...