niusouti.com

在窗体上有一个名称为List1列表框和一个名称为Command1的按钮，List1的MultiSelect属性设置为2。当单击Command1按钮时，将会把所有选中的选项全部删除。下列程序缺少的一句是______。Private Sub Command1_ Click () for i = List1. ListCount- 1 To 0 Step- 1 if ______ = True then List1. RemoveItem i End if Next iEnd SubA．List1.Select

题目

在窗体上有一个名称为List1列表框和一个名称为Command1的按钮，List1的MultiSelect属性设置为2。当单击Command1按钮时，将会把所有选中的选项全部删除。下列程序缺少的一句是______。Private Sub Command1_ Click () for i = List1. ListCount- 1 To 0 Step- 1 if ______ = True then List1. RemoveItem i End if Next iEnd Sub

A．List1.Select(i)

B．List1.Sort(i)

C．List1.List(i)

D．Ltst1.Select(List1.Listindex)

相似考题

1.窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。Private Sub Form_Load（）For i=1 To 100If i Mod 7 =0 Then________End IfNextEnd SubPrivate Sub Command1_Click（）Sum = 0For i = 0 To ________Sum = Sum + ________NextText1.Text = SumEnd Sub

2.窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下：Private Sub Command1_Click()Dim In As IntegerIn=______List.Remove IndEnd Sub则在程序的空白行的语句是( )。A．List1.IndexB．List1.ListIndexC．List1.TextD．List1.ListCount

3.在名称为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。

4.3在窗体上画一个名称为List1的列表框，一个名称为Labe11的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是( )。A．B．C．D．

更多“在窗体上有一个名称为List1列表框和一个名称为Command1的按钮,List1的MultiSelect属性设置为2。当 ”相关问题

  • 第1题：

    窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Labe11、 Caption属性为"Sum"的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如下图所示。以下是实现上述功能的程序，请填空。

    Pfivate Sub Form_Load()

    Fori=1 To 100

    If iMod7=


    正确答案：Lisn.Addnem IUst1.List(i)或Val(Listl.List(i))或CInt1(List1.ist(0)
    Lisn.Addnem I,Ust1.List(i)或Val(Listl.List(i))或CInt1(List1.ist(0)

  • 第2题：

    设在窗体中有一个名称为List1的列表框，其中有若干个项目(如图)。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是（ ）。

    A.Private Sub Command1 Click（ ） List1，Clear End Sub

    B.Private Sub Command1 Click（ ） List1．Clear List1．ListIndex End Sub

    C.Private Sub Command1 Click（ ） List1 Removeltem List1．ListIndex End Sub

    D.Private Sub Command1 Click（ ） List1．Removeltem End Sub


    正确答案：C
    C。【解析】在．VisualBasic中列表框的clear方法是用来删除所有列表项，RemoveItem方法是删除指定的列表项，而列表框的Index属性表示选中的列表项的位置；本题是删除选中的列表项，故应选C。

  • 第3题：

    窗体上有一个命令按钮Command1和一个列表框List1，其中List1有0、1、2、3、4的内容，有下列程序： Private Sub Command1_Click() Dim i，s For i=0 To List1．ListCount s=s+List1．List(i) Next i Print s End Sub 程序运行后，单击命令按钮，则窗体上显示的是

    A．0

    B．10

    C．01234

    D．程序出错


    正确答案：C
    解析：ListCount属性返回控件列表部分项目的个数。要对列表框中的每个项目都能进行处理，必须要用到List(Index)属性，而该属性的下标值是从0开始的。变量s为变体型变量，List属性内的内容是字符型的，所以加号(+)起到了连接作用。上述程序运行的结果只是将列表框中的内容连接起来。选项C是正确的。

  • 第4题：

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

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

    要求：

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


    正确答案：

  • 第5题：

    在考生文件夹下有工程文件execise20.vbp及窗体文件execise20.frm。在窗体Form1上有一个名为List1的列表框，列表框中有若千的列表项，通过属性窗口设置列表框的 MultiSelect属性为1。还有两个命令按钮，名称分别是Cmd1和Cmd2，标题分别是Select All和Save(如下图所示)。要求在程序运行时，单击Select All按钮则将List1中的全部列表项选中，然后单击Save按钮，将List1中的全部列表项写入文本文件out20.txt中，并将out20.txt保存在考生文件夹下。

    注意：

    该程序不完整，请在有问号“?”的地方填入正确内容，然后删除问号“?”及所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下，否则没有成绩。


    正确答案：

相关内容