[问答题] 在窗体上画1个组合框(名称为Cbl，设置为简单组合框)和1个命令按钮(名称为C1，标题为“添加”)，编写适当的事件过程。程序运行后，在组合框中输入一个列表项，单击命令按钮后，程序检查组合框

[问答题] 在窗体上画1个组合框(名称为Cbl，设置为简单组合框)和1个命令按钮(名称为C1，标题为“添加”)，编写适当的事件过程。程序运行后，在组合框中输入一个列表项，单击命令按钮后，程序检查组合框的下拉列表，如果列表中没有此项，则把此项添加到列表中；如果有此项，则通过信息框提示“此项已存在”，并清除输入的内容。程序的运行情况如图2—1所示。存盘时，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。2．在窗体上画一个名称为L1的列表框，通过属性窗口向列表框中添加3个项目，分别为“123”、“456”和“789”。编写适当的事件过程。程序运行后，每次双击列表框中的任何一项，则总在最后面添加一项，该项的内容为前面所有项之和。程序的运行情况如图2—2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjt4.vbp。

参考答案：

问题解析:

① 启动Visual Basic，在窗体上画1个组合框和1个命令按钮。 ② 按F4键，激活属性窗门，在属性窗口中设置组合框和命令按钮的属性，见表3。表 3控件属性设置值组合框名称StyleCb11 - Simple命令按钮名称CaptionComboC1　　③ 编写命令按钮的Click事件过程：　　Private Sub C1_Click()　　　　Dim flag As Boolean　　　　For i＝0 To Cb1.ListCount—1　　　　　　If Cb1.List(i)＝Cb1.Text Then　　　　　　　　 flag＝True　　　　　　Else　　　　　　　　 flag＝False　　　　　　End If　　　　Next　　　　If flag Then　　　　　　 MsgBox"此项已存在",,""　　　　　　 Cb1.Text=""　　　　　　 Else　　　　Cb1.Addltem Cb1.Text　　　　　　 End If　　End Sub2．① 对象主要属性设置如表4所示。表 4对象对象名属性名属性值窗体Form1Caption求和列表框L1List(O)123List(1)456List(2)789 ② 分析：按试题要求在窗体上画一个列表框，并分别将它们的属性按表4的内容进行设置。ListIndex属性返回或设置控件中当前选择项目的索引值。当双击列表框中的任一项时，即触发了DblCilck(双击)事件。向列表框 (对象)中添加内容的方法为AddItem，其格式为：对象．AddItem字符串表达式，位置如果省略“位置”，当Sorted属性设置为False时，“字符串表达式”将添加到列表的结尾。 ③ 编程代码： Private Sub L1_DblClick() For i＝0 To L1. ListIndex s＝s+Val(L1.list(i)) Next i L1.AddItem s End Sub