[问答题] 有一个工程文件ylc6.vbp，请在窗体中画一个组合框和一个命令按钮。程序的功能是在运行时，如果在组合框中输入一个项目并单击命令按钮，则搜索组合框中的项目；如果已有此项，则弹出提示：“已有

[问答题] 有一个工程文件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信息提示框显示提示信息。