在窗体上画1个组合框(名称为Cbl，设置为简单组合框)和1个命令按钮(名称为C1，标题为“添加”)，编写适当的事件过程。程序运行后，在组合框中输入一个列表项，单击命令按钮后，程序检查组合框的下拉列表，如果列表中没有此项，则把此项添加到列表中；如果有此项，则通过信息框提示“此项已存在”，并清除输入的内容。程序的运行情况如图2—1所示。存盘时，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。2．在窗体上画一个名称为L1的列表框，通过属性窗口向列表框中添加3个项目，分别为“123”、“456”和“7

在考生文件夹下有一个工程文件sjt4．vbp。请在窗体上添加一个组合框，名称为cbl，并输入三个列表项：“3”、“7”、“11”（列表项的顺序不限，但必须是这三个数字）；添加一个名为Textl的文本框；再添加一个标题为“计算”、名称为cl的命令按钮，如图所示。请编写适当的事件过程，使得在程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计算5000以内能够被该数整除的所有数之和，并放入Textl中。最后，按原文件名存盘。

提示：由于计算结果较大，应使用长整型变量。

注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。

窗体上有一个名称为Combol的组合框，其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮，程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示，请填空。

Option Base 1

Private Sub Command1_Click()

Dim city As Variant

city=_______(”北京”，”天津”，”上海”，”武汉”，”重庆”，”西宁”)

For i=_______ To UBound(city)

Combol．AddItem_______

Next

End Sub

在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序：

窗体打开运行后，单击命令按钮，则消息框的输出结果为__________。

在名为Form1的窗体上绘制一个名称为Lab1、标题为“AddItem:”的标签；绘制一个名称为Text1的文本框，没有初始内容；绘制一个名称为Com1的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)：再绘制两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为Add和Display。在运行时，向Text1中输入字符，单击Add按钮后，则Text1中的内容作为一个列表项被添加到组合框的列表中：单击Display按钮，则在窗体上显示组合框中列表项的个数，如下图所示。请编写两个命令按钮的Click事件过程。

注意：

程序中不得使用变量，也不能使用循环；文件必须存放在考生文件夹中，工程文件名为execise13.vbp，窗体文件名为execise13.frm。

在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl)，然后编写如下事件过程：

程序运行后，在文本框中输入3，然后单击命令按钮，则Y的值变为__________。