niusouti.com

（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 Sho

题目

（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

相似考题

1.●试题五阅读以下应用说明及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

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

3.在窗体上画一个名称为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

4.在窗体上画一个名称为 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

参考答案和解析
正确答案：tmpLabel tmpCombo
【解析】标签控件的Caption属性显示标签中的内容，组合框的Text属性显示选择或输入的数据项的内容，要把选择的项目显示在标签中，应该是用组合框的Text为标签的Caption属性赋值。用户定义的ShowItem过程中定义了两个控件型参数（tmpCombo和tmpLabel），因此，在该过程中使用tmpCombo和加pLabel来表示组合框和标签控件。
更多“(13)在窗体上画两个组合框,其名称分别为Combo1、Combo2,然后画两个标签,名称分别为Label1、Label2. ”相关问题

  • 第1题：

    在窗体上画一个名称为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和3

    B．25和3

    C．25和6

    D．5和6


    正确答案：B
    解析：由于在Proc过程中，a、b的传送方式都是传值，故在“Command1_Click()”事件过程中，变量X、Y的地址未发生变化，但由于调用proc过程后，变量x被赋予了新值a*a，所以在单击命令按钮后，Label1显示为25，Label2没有发生变化，因为Y变量事先未声明，为事件过程变量，在未采用传地址方式下Sub过程中的Y与事件过程中的Y互不干扰。

  • 第2题：

    在窗体上画两个名称分别为Label1和Label2的标签，再画一个名称为Command1的命令按钮，然后编写如下事件过程：

    运行上面的程序，单击命令按钮．其输出结果是

    A．8 9

    B．8 18

    C．64 9

    D．64 18


    正确答案：C
    解题的关键是窗体变量X和局部变量Y的作用域及过程调用时的参数传递方式。窗体变量X的作用域是该窗体内的所有过程，所以虽然是传值，但在过程Subl中可见，因此在该过程中使用了窗体变量X，这个“x＝a*a”直接将该窗体变量X的值改变为64。而y则是过程Command1_Click的内部变量，与过程Sunl中的变量y没有关系，标签Label2显示的是本过程的Y值，即9。正确答案为c。

  • 第3题：

    在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。

    Private Sub Combo1_Click（）

    Call ShowItem（Combo1, Label1）

    End Sub

    Private Sub Combo2_Click（）

    Call ShowItem（Combo2, Label2）

    End Sub

    Public Sub ShowItem（tmpCombo As ComboBox, tmpLabel As Label）

    ______.Caption =______.Text

    End Sub


    正确答案：

    tmplabel　tmpCombo

  • 第4题：

    在窗体上有一个名称为Drivel的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。下列能够正确实现上述功能的程序是（ ）。


    正确答案：C
    c)    【解析】本题考查文件系统控件。要使驱动器、目录和文件列表框同步显示，那么就需要编写代码才能使它们之间彼此同步，在驱动器Drive1的Change事件中，要Dir1．Path = Drive1．Drive，使日录的路径和驱动器一致，同时在目录Dirl的Change事件中要File1．Path=Dir1．Path，使文件路径的位置和驱动器一致。可以在文件列表框中使用ListCount属性来统计文件数目(当文件路径改变时统计)。

  • 第5题：

    在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文本框（名称分别为Textl和Text2，初始内容均为空）和一个命令按钮（名称为Command1，标题为“显示”）。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输人姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。

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


    正确答案：

    【考点分析】本题考点有：标签的Name和Caption属性、文本框Name和Text属性、命令按钮的Name和Caption属性、“＆”和“+”运算符以及Print方法。
    【解题思路】通过标签的Name和Caption属性设置标签的名称和标题，通过文本框Name和Text属性设置文本框的名称和文本，通过命令按钮的Name和Caption属性设置命令按钮的名称和标题，“＆”和“+”运算符均可将两个表达式作为字符串连接。在窗体上输出文本内容可使用Print方法。
    【操作步骤】
    步骤1：新建一个窗体，按照题目要求建立控件并设置相应属性，程序中用到的控件及属性如表3．16所示。


    步骤2：打开代码编辑窗口，在指定位置编写如下代码。
    参考答案
    Private Sub Command1_Click()
    Form1．Print Text1．Text＆"，现年"＆
    Text2．Text＆"岁"
    End Sub
    步骤3：调试并运行程序，关闭程序后按题目要求存盘。

相关内容