窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是A．Print Cbl．Se

窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（）。

A. Print Cb1．Selected

B. Print Cb1．List(Cb1．Listlndex)

C. Print Cb1．Selected．Text

D. Print Cb1．List(Listlndex)

（16）窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是

A）Print Cb1.Selected

B）Print Cbl.I,ist(Cbl.ListIndex)

C）Print Cb1.Selected.Text

D）Print Cbl.List(Listlndex)

在窗体上画1个组合框(名称为Cbl，设置为简单组合框)和1个命令按钮(名称为C1，标题为“添加”)，编写适当的事件过程。程序运行后，在组合框中输入一个列表项，单击命令按钮后，程序检查组合框的下拉列表，如果列表中没有此项，则把此项添加到列表中；如果有此项，则通过信息框提示“此项已存在”，并清除输入的内容。程序的运行情况如图2—1所示。

存盘时，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。

2．在窗体上画一个名称为L1的列表框，通过属性窗口向列表框中添加3个项目，分别为“123”、“456”和“789”。编写适当的事件过程。程序运行后，每次双击列表框中的任何一项，则总在最后面添加一项，该项的内容为前面所有项之和。程序的运行情况如图2—2所示。

注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjr4.vbp。

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

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

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

窗体上有一个名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（）。

A.Print Cb1．Selected

B.Print Cb1．List(Cbl．LisfIndex)

C.Print Cb1．Selected．Text

D.Print Cb1．List(ListIndex)

A.A.For循环的循环初值i应该从I开始

B.B.语句Comb01.Removeltemi有错误

C.C.语句Comb01.AddIteraComb01.Text有错，Comb01.Text的内容已存在于组合框中

D.D.应把程序倒数第3行中的Ifnag=1改为Ifflag=O

（7 ）设窗体上有一个名称为 Combol 的组合框，并有以下程序：

Private Sub Combol_KeyPress(KeyAscii As Integer)

If 【 9 】 =13 Then ‘ 回车符的 ASCII 码是 13

For k=0 To Combol.ListCount-1

If Combol.Text= Combol.List(k) Then

Combol.Text= ” ”

Exit For

End If

Next k

If Combol.Text ＜＞ “” Then

Combol.AddItem 【 10 】

End If

End If

End Sub

程序的功能是 ： 在组合框的编辑区中输入文本后按回车键 ， 则检查列表中有无与此文本相同的项目 ， 若有 ，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。

令按钮，程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示，请填空。

Option Base 1

Private Sub Command1_Click()

Dim city As Variant

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

For i=_______ To UBound(city)

Combol．AddItem_______

Next

End Sub

A.A.Combo1.List（ListCount）

B.B.Combo1.List（Comb01.ListCount-1）

C.C.Combo1.List（ListCount-1）

D.D.Combo1.List（Comb01.ListCount）