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

题目

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

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii=13 Then

For i＝0 To Combo1.ListCount-1

If Combo1.Text=【 】Then

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

Exit Sub

End If

Next i

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

Combo1.【 】Combo1.Text

End If

End 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.（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

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

参考答案和解析
正确答案：Combo1.list(i) AddItem
Combo1.list(i) , AddItem 解析：在ComboBox控件中，AddItem方法是用来向控件中添加项目，list属性用于保存控件中的项目，使用以下形式访问：[对象名]．List(列表项序号)。
更多“ 在窗体上画一个名称为Combol的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，”相关问题

  • 第1题：

    阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在对应栏内。

    【说明】

    在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11、Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键 (ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Labe12中给出提示“已成功添加输入项”；如果存在，则在Labe12中给出提示“输入项已在组合框中”。

    【程序】

    Private Sub Combo1 (1) (KeyAscii As Integer)

    If KeyAscii=(2) Then

    For i=0 To (3)

    If Combo1. Text=(4) Then

    Labe12. Caption ="输入项已在组合框中"

    Exit Sub

    End If

    Next i

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

    Combo1. (5) Combo1.Text

    End If

    End Sub


    正确答案：(1)KeyPress (2) 13 (3) Combol.ListCount-1 (4) Combol. List (i) (5) AddItem
    (1)KeyPress (2) 13 (3) Combol.ListCount-1 (4) Combol. List (i) (5) AddItem 解析：根据题意，“在组合框中输入一个新项后按回车键(ASCII码为13)时…”，因此Combol的事件名称应是Combol_KeyPress，即(1)空填"KeyPress”；(2)空判断按键是否是回车键，填“13”；如果是，再穷举组合框的所有列表项(即、(3)空填“Combol．ListCount-1”)，查看是否有等于输入项Combol．Text(即(4)空填“Combol．LisL(i)”)，有则在 Labe12中给出提示“输入项已在组合框中”，否则在Labe12中给出提示“已成功添加输入项”，并将输入项(Combol.Text)添加到组合框中，即 (5)空填"AddItem”。

  • 第2题：

    在名称为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：调试并运行程序，关闭程序后按题目要求存盘。

  • 第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题：

    （1）在名为Form1的窗体上绘制两个标签（名称分别为Label1和Label2，标题分别为“长”和“宽”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“输入”）。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。

    注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。

    （2）在名为Form1的窗体上绘制一个标签（名称为Label1，标题为“输入”）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（名称为Command1，标题为“显示”）。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。

    注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为Sj2．vbp，窗体文件名为sj2．frm。


    正确答案：

    (1)根据题意，新建“标准EXE”工程，在窗体上添加两个标签，名称分别为Label1和Label2、Caption属性分别为“长”和“宽”，两个文本框，名称分别为Text1和Text2、Text属性为空，一个命令按钮，名称为Command1，Caption属性为“输入”。设计完成后，双击Command1进入代码窗口，编写如下代码：


    (2)根据题意，新建“标准EXE”工程，在窗体上添加一个标签，其名称为Label1，标题为“输入”，一个文本框，其名称为Text1、Text属性为空，一个命令按钮，其名称为Com-mand1、标题为“显示”。窗体设计完成后，双击Command1命令按钮，编写如下代码：


相关内容