在窗体上画一个名称为 Combo1 的组合框，然后画两个名称分别为 Label1 、 Label2 ，标题分别为 /" 城市名称 /" 和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示 /" 已成功添加新输入页。 /" ，如图所示。如果输入的项目已存在，则在 Label2 中给出提示 /" 输入项已在组合框中。 /" 。请填空。

Private Sub Combol_KeyPress（KeyAscii As Integer）

If KeyAscii=13 Then

F．or i=0 To Combo1 ListCount-1

If Combo1 Text= ( 12 ) Then

Label2 Caption=" 输入项已在组合框中。 "

E．xit Sub

E．nd If

Next i

Label2 Caption=" 已成功添加新输入项。 "

C．ombo1 ______ Combo1 Text

E．nd If

E．nd Sub

[试题]（ 10 ） 在窗体上画一个名称为 Combo1 的组合框 ， 然后画两个名称分别为 Label1 、 Label2 ， 标题分别为 “ 城市名称 ” 和空白的标签 。 程序运行后 ， 在组合框中输入一个新项目并按回车键 ， 如果输入的项目在组合框的列表中不存在 ， 则自动将其添加到组合框的列表中 ， 并在 Label2 中给出提示 “ 已成功添加新输入项，如图所示。如果输入的项目已存在，则在 Label2 中给出提示 “ 输入项已在组合中。请填空。

[试题]（13）在窗体上画两个组合框，其名称分别为Combo1、Combo2,然后画两个标签，名称分别为Label1、Label2.要求程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下的标签中显示出来，请填空使程序完整。Private Sub Combo1_Click() Call ShowItem(Combo1,Label1) End SubPrivate Sub Combo2_Click() Call ShowItem(Combo2,Label2)End SubPrivate Sub

[试题]在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。Private Sub Combo1_Click（）C．all ShowItem（Combo1, Label1）E．nd SubPrivate Sub Combo2_Click（）C．all ShowItem（Combo2, Label2）E．nd SubPublic Sub Sh

[单选题]在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click( ) X=5：Y=3 Call proc(X，Y) Label1.Caption=X LabeLCaption=Y End Sub Private Sub proc(ByVal a As Integer，ByVal b As Integer) X=a*a Y=b+b End Su

[单选题]在窗体上画两个名称分别为Label1和Label2的标签，再画一个名称为Command1的命令按钮，然后编写如下事件过程：运行上面的程序，单击命令按钮．其输出结果是A．8 9B．8 18C．64 9D．64 18

[单选题]在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Labet3的标签，然后编写如下代码： Private x AS Integer Private Sub Command1_Click( ) Static y As Integer Dim 2 As Integer n=10 Z=n+2 y=y+2 X=X+2 Label1.Caption=x LabelCaption=y LabelCaption=z End Sub 运行程序，连续三次单击命令按钮后，则三

[单选题]在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n=10 z=n+z y=y+z x=x+z Label1.Caption=x Label2.Caption=y Label3.Caption=z End Sub 运行程序，连续三次单击命令按钮后

[单选题]在窗体上画一个命令按钮和两个标签，其名称分别为Command1、Label1和Label2，然后编写如下事件过程； Private Sub Command1_Click() a=0 For i=1 To 10 a=a+1 b=0 For j＝1 To 10 a=a+1 b=b+2 Next j Next i Label1.Caption=Str(A) Label2.Caption=Str(B)End Sub 程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是______

[单选题]在窗体上画一个命令按钮和两个标签，其名称分别为Command1、Label1和Label2，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 T0 10 a=a+1 b=0 For j=1 To 10 a=a+1 b=b+2 Next j Next i Label1.Caption=Str(a) Label2.Caption=Str(b) End Sub 程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是( )。A

[单选题]（ 21 ） 在窗体上画一个名称为List1 的列表框，一个名称为 Label1 的标签，列表框中显示若干城市的名称 。 当单击列表框中的某个城市名时 ， 该城市名从列表框中消失 ， 并在标签中显示出来 。 下列能正确实现上述操作的程序是A． ） Private Sub List1_Click()Label1.Caption = List1.ListIndexList1.RemoveItem List1.TextE．nd SubB． ） Private Sub List1_Click()Labe