（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 ShowItem(tmpCombo As ComboBox,tmpLabel As Label) Caption=_____.TextEnd Sub
（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 ShowItem(tmpCombo As ComboBox,tmpLabel As Label) Caption=_____.TextEnd Sub
相关考题：
●试题五阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。【说明】在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1、Label2及Caption属性分别为"城市名称"和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示"已成功添加输入项"；如果存在，则在Label2中给出提示"输入项已在组合框中"。【程序】Private Sub Combo1_ (1) (KeyAscii As Integer)If KeyAscii= (2) ThenFor i=0 To (3)If Combo1．Text= (4) ThenLabel2．Caption="输入项已在组合框中"Exit SubEnd IfNext iLabel2．Caption="已成功添加输入项"Combo1． (5) Combo1．TextEnd IfEnd Sub
在窗体上画一个名称为 Combo1 的组合框，然后画两个名称分别为 Label1 、 Label2 ，标题分别为 \" 城市名称 \" 和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示 \" 已成功添加新输入页。 \" ，如图所示。如果输入的项目已存在，则在 Label2 中给出提示 \" 输入项已在组合框中。 \" 。请填空。Private Sub Combol_KeyPress（KeyAscii As Integer）If KeyAscii=13 ThenFor i=0 To Combo1 ListCount-1If Combo1 Text= 【 12 】 ThenLabel2 Caption=" 输入项已在组合框中。 "Exit SubEnd IfNext iLabel2 Caption=" 已成功添加新输入项。 "Combo1 ______ Combo1 TextEnd IfEnd Sub
（ 10 ） 在窗体上画一个名称为 Combo1 的组合框 ， 然后画两个名称分别为 Label1 、 Label2 ， 标题分别为 “ 城市名称 ” 和空白的标签 。 程序运行后 ， 在组合框中输入一个新项目并按回车键 ， 如果输入的项目在组合框的列表中不存在 ， 则自动将其添加到组合框的列表中 ， 并在 Label2 中给出提示 “ 已成功添加新输入项，如图所示。如果输入的项目已存在，则在 Label2 中给出提示 “ 输入项已在组合中。请填空。
在窗体上画一个名称为Combol的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在Label2中给出提示“已成功添加新输入项。”，如图所示。如果输入的项目已存在，则在Label2中给出提示“输入项已在组合框中。”。请填空。Private Sub Combo1_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenFor i＝0 To Combo1.ListCount-1If Combo1.Text=【 】ThenLabel2.Caption="输入项已在组合框中。"Exit SubEnd IfNext iLabel2.Caption="已成功添加新输入项。"Combo1.【 】Combo1.TextEnd IfEnd Sub
在窗体上画一个名称为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 Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是A．5和3B．25和3C．25和6D．5和6
在窗体上有一个名称为Drivel的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。下列能够正确实现上述功能的程序是（ ）。
在窗体上画两个名称分别为Label1和Label2的标签，再画一个名称为Command1的命令按钮，然后编写如下事件过程：运行上面的程序，单击命令按钮．其输出结果是A．8 9B．8 18C．64 9D．64 18
在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文本框（名称分别为Textl和Text2，初始内容均为空）和一个命令按钮（名称为Command1，标题为“显示”）。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输人姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。
在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。Private Sub Combo1_Click（）Call ShowItem（Combo1, Label1）End SubPrivate Sub Combo2_Click（）Call ShowItem（Combo2, Label2）End SubPublic Sub ShowItem（tmpCombo As ComboBox, tmpLabel As Label）______.Caption =______.TextEnd Sub