您所在的当前位置: 计算机等级考试题库   >  
BASIC题库  
问题:

[填空题] 在窗体上画一个名称为Comb01的组合框,然后画两个名称分别为Label1、Label2,标题分别为“城市名称”和空白的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在Label2中给出提示“已成功添加新输入项”,如下图所示。如果输入的项目已存在,则在Label2中给出提示“输入项已在组合框中”。请填空。

Private Sub Combo1_KeyPress(KeyAscii As Integer)
 If KeyAscii=13 Then
  For i=0 To Combo1.ListCount-1
   If Combo1.Text= (10) Then
    Label2.Caption="输入项已在组合框中"
    Exit Sub
   End If
  Next i
  Label2.Caption="已成功添加新输入项"
  Combo1. (11) Combo1.Text
 End If
End Sub

可能感兴趣的题目: