有一个工程文件ylc6.vbp，请在窗体中画一个组合框和一个命令按钮。程序的功能是在运行时，如果在组合框中输入一个项目并单击命令按钮，则搜索组合框中的项目；如果已有此项，则弹出提示：“已有此项”，之后清除输入的内容。界面如图20所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。
参考答案：操作步骤
(1)在Visual Basic集成环境中选择“文件”→“打开工程”命令，在对话框中选择 ylc6.vbp工程文件，单击“确定”按钮打开。
(2)选择工具中的ComboBox控件，在窗体中画命名为Combol1的组合控件。在属性窗口分别设置它们的名称、Text属性为空。
(3)在属性编辑框中设置Comboll组合控件的List属性，其初始数据为“语文”、“数学”、“英语”、“物理”、“化学”、“生物”、“历史”、“政治”和“地理”。
(4)在工具箱中选择命令按钮控件，在窗体上拖动创建并命名为Command1，标题为“确定”。
2．行为编码
在代码框选择Command1对象和Click事件，代码如下：
Private Sub Command1_Click()
For i=0 To Combol. ListCount-1
If Combol.List(i)=Combol.Text Then
’清除输入内容
Combol.Text=" "
MsgBok("已有此项")
End If
Next i
End Sub
3．存盘保存
执行“文件”→“保存工程”命令，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。
解析： (1)这是一道简单的应用题，主要考查ComboBox控件的相关特性、数据的初始化、项目的多少、程序设计中循环结构的编程，以及程序中提示信息对话框的使用。
(2)代码中使用组合控件的ListCount属性，得到控件数据的个数，使用Combol1的 List属性得到Combol1内某项字符中的值。在For...Next循环中将输入的字符串与Combol1内的字符串逐个比较。如果输入的字符串在控件中已存在，则使用MsgBox信息提示框显示提示信息。