窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Com．mand1)，则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能：Private Sub Commandl_Click()Dim n％．k％n=Len(Textl．Text)For k=0 To Listl．ListCount-1If Left(Listl．List(k)，n)=Text1．Text ThenListl．Removeitem kEnd IfNext kEnd Sub在调试时

题目

窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Com．mand1)，则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能：

Private Sub Commandl_Click()

Dim n％．k％

n=Len(Textl．Text)

For k=0 To Listl．ListCount-1

If Left(Listl．List(k)，n)=Text1．Text Then

Listl．Removeitem k

End If

Next k

End Sub

在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k：0 To Listl．ListCount-1改为

A．For k=Listl．ListCount-1 To 0 Step-1

B．For k=0 To Listl．ListCoulit

C．For k=1 To List1．ListCount-1

D．For k=1 To List1．ListCount

相似考题

1.在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显示“AAAA”(如图2—1所示)；再建立一个名称为Cmd1，标题为“清除”的命令按钮，编写适当的事件过程。要求程序运行后，如果单击“清除”命令按钮，则清除文本框中所显示的信息。注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sit3.vbp。2．在考生文件夹中有工程文件sit4.vbp，它包含一个窗体文件form1。在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为Command1，标题为“复制”。要求程序运行后，在列表框中自动建立四个列表项，分别为“项目1”、“项目2”、“项目3”、“项目4”。如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中(程序运行结果如图2—2)。要求：编写程序，以实现试题要求的功能。注意：存盘时必须放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。

2.窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮，要求程序运行时，单击命令按钮(如图1所示)，就可以把文本框中的内容写到文件Out．txt中，每次写 入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是（ ）。

3.窗倒上有1个名为List1的列表框，其中已经输入了若干个项目(如图3所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。A. 京B. 北京南京C. 南京北京D. 没有匹配的项目

4.有一个工程文件ylc.vbp(相应的窗体文件名为ylc5.frm)，在窗体上画一个名为List1的列表框和一个名为Text1的文本框。编写窗体的MouseDown事件。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框的项目；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表中删除。程序的运行情况如图23所示。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。

更多“ 窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Com．mand1)，则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能：Private Sub Co”相关问题

  • 第1题：

    在考生文件夹中有一个工程文件execise57.vbp及其窗体文件execise57.frm。请在名为 Form1的窗体上绘制两个单选按钮(名称分别为Opt1和Opt2，标题分别为“添加项目”和“删除项目”)、一个列表框(名为List1)和一个文本框(名为Text1)。

    编写窗体的Click事件过程。程序运行后，如果选择“添加项目”单选按钮，然后单击窗体，则从键盘上输入要添加的项目(内容任意，不少于3个)后，会添加到列表框中；如果选择“删除项目”单选按钮，然后单击窗体，则从键盘上输入要删除的项目后，会将其从列表框中删除。程序的运行情况如下图所示。

    本程序不完整，请补充完整。

    要求：

    去掉程序中的注释符“'”，把程序中的问号“?”改为适当的内容，使其正确运行，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。


    正确答案：

  • 第2题：

    窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现如此功能：

    Private Sub Command l Click（ ） Dim n％，k％ n=Len(Text1．Text) For k=0 To List1．ListCount-1 If Left(List1．List(k)，n)=Text1．Text Then List 1．Removeltem k End If Next k End Sub 在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1．ListCount-1改为（ ）。

    A.For k=List1．ListCount-1 To 0 Step-1

    B.For k=0 To List1．ListCount

    C.For k=1 To List1．ListCount-1

    D.For k=1 To List1．ListCount


    正确答案：A
    A。【解析】在执行RemoveItem时，会改变该序号item之后的列表内容的序号，因此，循环删除应从后向前操作。

  • 第3题：

    请教:2016年计算机二级VB基础练习三简答题10如何解答?

    在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上添加两个单选按钮(名称分别为Optionl和Option2，标题分别为“添加项目”和“删除项目”)，一个列表框(名称为Listl)和一个文本框(名称为Textl)，如图l所示。编写窗体的Click事件过程。程序运行后，如果选择“添加项目”单选按钮，然后单击窗体，则从键盘上输入要添加的项目内容(内容任意，不少于三个)，并添加到列表框中;如果选择“删除项目”单选按钮，然后单击窗体，则从键盘上输入要删除的项目内容，将其从列表框中删除。程序的运行情况如图2所示。在考生文件夹下的工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。

    要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。


    　　步骤l：打开本题工程文件，并设置控件的属性。

       

  • 第4题：

    在考生文件夹下有一个工程文件execise59.vbp及窗体文件execise59.frm。在窗体上有两个命令按钮，名称分别为Cmd1和Cmd2，标题为“添加”和“清除”；一个文本框，名称为Text1，程序运行前，文本框的编辑区为空白；一个列表框，名称为List1。程序界面如下图所示。

    在文本框中输入文本，若单击“添加”按钮，则将文本框中的文本作为列表框的一个列表项添加到列表框的末尾，且使“添加”按钮变为无效，“清除”按钮变为有效：若单击“清除”按钮，则使文本框中的内容为空，且使“添加”按钮变为有效，“清除”按钮变为无效。

    要求：

    去掉程序中的注释“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。保存时，工程文件名仍为 execise59.vbp，窗体文件名仍为execise59.frm。


    正确答案：

  • 第5题：

    在考生文件夹中有一个工程文件execise41.vbp和窗体文件execise41.frm。在名为 Form1的窗体上有一个名称为Text1的文本框，一个名称为Lid1的列表框，一个命令按钮 (名为Cmd1，标题为Insert)，如下图所示。

    程序的功能是：在运行时，如果在文本框中输入一行内容并单击Insert按钮，则把文本框中的内容作为列表项添加到列表框中；如果单击列表框中的某一项，则立即从列表框中删除该项。

    要求：

    去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的属性。最后原名保存修改后的文件。


    正确答案：

相关内容