单选题设窗体上有一个名为List1的列表框，并编写下面的事件过程：程序运行时单击一个列表项，则产生的结果是（　　）。A 该列表项被移到列表的最前面B 该列表项被删除C 该列表项被移动到列表的最后面D 该列表项被删除后又在原位置插入

题目
单选题
设窗体上有一个名为List1的列表框，并编写下面的事件过程：程序运行时单击一个列表项，则产生的结果是（　　）。
A

该列表项被移到列表的最前面

B

该列表项被删除

C

该列表项被移动到列表的最后面

D

该列表项被删除后又在原位置插入

相似考题

1.（18）设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表项内容的是（ ）。A）List1.ListB）List1.ListIndexC）List1.TextD）List1.Index

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

3.设窗体上有_个名为Listl的列表框，并编写下面的事件过程：Private Sub Listl_Click()Dim ch As Stringch=Listl．List(Listl．Listlndex)Listl，RemoveItem Listl．ListIndexListl．Addltem chEnd Sub程序运行时，单击一个列表项，则产生的结果是A．该列表项被移到列表的最前面B．该列表项被删除C．该列表项被移到列表的最后面D．该列表项被删除后又在原位置插入

4.设窗体上有一个名为List1的列表框，并编写下面的事件过程： Private Sub List1_Click（ ） Dim ch As String ch=List1．List(List1．Listlndex) List1．RemoveItem List1．Listlndex List1．Addltem ch End Sub 程序运行时，单击一个列表项，则产生的结果是（ ）。A.该列表项被移到列表的最前面B.该列表项被删除C.该列表项被移到列表的最后面D.该列表项被删除后又在原位置插入

更多“设窗体上有一个名为List1的列表框，并编写下面的事件过程：程序运行时单击一个列表项，则产生的结果是（　　）。”相关问题

  • 第1题：

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


    正确答案：1．操作步骤 (1)在Visual Basic集成环境选择“文件”→“打开工程”命令在对话框中选择ylc5.vbp工程文件单击“确定”按钮打开。 (2)在工具箱中选择ListBox控件在窗体上创建该控件命名为List1。在工具箱中选择TextBox控件在窗体中创建并命名为Text1标题为空。 2．行为编码 在代码窗口选择Form对象的MouseDown事件其行为代码如下： Private Sub Form MouseDown(Button As IntegerShift As Integer_ X As SingleY As Single) Select Case Button '若按下的是鼠标左键 Case 1 '将文本框中的内容加入列表框 List1.Addltem(Text1.Text) '清空文本框 Text1. Text=" " '若按下的是鼠标右键 Case 2 '删除列表框中与文本框相同的内容 For i=0 To List1.ListCount-1 If List1.List(i)=Text1.Text Then List1.Removeltem(i) Exit For End If Next i End Select End Sub 3．存盘保存 执行“文件”→“保存工程”命令工程文件名为ylc5.vbp窗体文件名为ylc5.frm。
    1．操作步骤 (1)在Visual Basic集成环境选择“文件”→“打开工程”命令，在对话框中选择ylc5.vbp工程文件，单击“确定”按钮打开。 (2)在工具箱中选择ListBox控件，在窗体上创建该控件，命名为List1。在工具箱中选择TextBox控件，在窗体中创建并命名为Text1，标题为空。 2．行为编码 在代码窗口选择Form对象的MouseDown事件，其行为代码如下： Private Sub Form. MouseDown(Button As Integer，Shift As Integer，_ X As Single，Y As Single) Select Case Button '若按下的是鼠标左键 Case 1 '将文本框中的内容加入列表框 List1.Addltem，(Text1.Text) '清空文本框 Text1. Text=" " '若按下的是鼠标右键 Case 2 '删除列表框中与文本框相同的内容 For i=0 To List1.ListCount-1 If List1.List(i)=Text1.Text Then List1.Removeltem(i) Exit For End If Next i End Select End Sub 3．存盘保存 执行“文件”→“保存工程”命令，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。 解析：(1)本题考查考生对ListBox控件的属性控制和操作，特别对鼠标按键的控制进行了仔细的考查。(2)注意使用ListBox控件的AddItem、RemoveItem方法、鼠标消息的控制。(3)本题是根据键码的值，使用Select语句来判断按下的是鼠标左键或右键。

  • 第2题：

    在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：程序运行后，单击命令按钮，在文本框中显示的是（ ）。

    A. 2

    B. 3

    C. 4

    D. 5


    正确答案：B
    B)    【解析】本题考查循环程序的分析。题中循环变量为i，步长为1，循环体中i每次变化都增加3，因此执行一次循环后，i的值增加4，当i大于10时退出循环，所以每次循环后i的值为：3，7，11。当i为11时退出循环，所以循环共执行了3次。

  • 第3题：

    设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能够表示当前被选中的列表项内容的是______。

    A．List1. List

    B．List1. ListIndex

    C．List1. Index

    D．List1. Text


    正确答案：D
    解析：获取当前选定项目值的最简单方法是使用Text属性。Text属性总是对应用户在运行时选定的列表项目。

  • 第4题：

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

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

    要求：

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


    正确答案：

  • 第5题：

    在窗体上绘制一个列表框，名为List1，通过属性窗口向列表框中添加4个项目，分别为ltem1、Item2、Item3和Item4。编写适当的事件过程，使程序运行后，每次单击列表框中的任何一项，则总在最后面添加一项Item5。程序的运行情况如下图所示。

    注意：

    程序中不得使用任何变量c文件必须存放在考生文件夹中，工程文件名为 execise42.vbp，窗体文件名为execise42.frm。


    正确答案：

  • 第6题：

    在考生文件夹中有一个工程文件execise50.vbp及窗体文件execise50.frm。在名为Form1的窗体上有一个名称为Cmd1，标题为“显示”的命令按钮，一个名称为List1的列表框。要求程序运行后，如果多次单击列表框中的项，则可同时选择这些项。而如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如下图所示。

    要求：

    修改列表框的适当属性，使得运行时可以多选；去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改过的程序按原名保存。


    正确答案：

  • 第7题：

    窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：

    Private Sub Command1_Click（ ）

    For k=List1．ListCout-1 To 0 Step-1

    If List1．Selected(k)Then

    List2．Addltem List1．List(k)

    List1．Removeltem k

    End If

    Next k

    End Sub

    程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（ ）。

    A.在List2中插入了“外语”、“物理”两项

    B.在List1中删除了“外语”、“物理”两项

    C.同时产生A和B的结果

    D.把List1巾最后1个列表项删除并插入到List2中


    正确答案：C
    C。【解析】本题程序中的意思为如果选择了符合条件的数，那么将选中的项增加到List2列表框中，同时在List1中移除所选项，所以本题A和B选项均正确。

  • 第8题：

    在窗体上画一个名为Command1的命令按钮，编写如下程序：

    程序运行后，单击命令按钮，输出的结果是_________。


    正确答案：
    4
    【解析】本题考查了数组的嵌套使用。程序首先通过一个For循环给数组M的各个数组元素赋值，然后通过数组下标嵌套本身。注意：这样的嵌套时，要保证数组下标不出界，否则程序将出错。

  • 第9题：

    窗体上有一个名为Button1的命令按钮和一个标签框，然后编写如下事件过程： 程序运行后，单击命令按钮，则在标签框上显示的内容是（）

    A5.8

    B5

    C7

    D无数据


    B
    略

  • 第10题：

    单选题
    设窗体上有一个列表框控件List1含有若干列表项，以下能表示当前被选中的列表项内容的是（　　）。
    A

    List1.List

    B

    List1.ListIndex

    C

    List1.Text

    D

    List1.Index


    正确答案： B
    解析：
    C项，Text属性代表了列表框的当前被选中的列表项内容。A项，用来列出表项的内容；B项，ListIndex用来表示已选中的表项的位置；D项，没有Index属性。

  • 第11题：

    单选题
    窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面的事件过程：程序运行时单击命令按钮，则产生的结果是（　　）。
    A

    命令按钮每10秒向左移动一次

    B

    命令按钮每10秒向右移动一次

    C

    命令按钮每10毫秒向左移动一次

    D

    命令按钮每10毫秒向右移动一次


    正确答案： B
    解析：
    Interval属性单位为毫秒，因此10表示10毫秒。Left属性值是以窗体的最左边边界为坐标原点，该值表示该控件在窗体上的位置，若值增加则表示向右边移动，反之表示向左边移动。

  • 第12题：

    单选题
    设有如下通用过程：在窗体上画一个名为Command1的命令按钮，然后编写如下的事件过程：程序运行后单击命令按钮，输出结果是（　　）。
    A

    ABCDEF

    B

    abcdef

    C

    AFBECD

    D

    DEFABC


    正确答案： C
    解析：
    在循环中，利用Mid函数使得变量tStr的值不断变化，然后通过命令按钮的单击事件调用循环所在的函数，UCase函数将Fun函数返回的结果字符串中的小写字母转换成大写字母。

  • 第13题：

    在窗体上添加一个命令按钮(名为Commandl)，编写如下事件过程：打开窗体后，单击命令按钮，消息框的输出结果是（ ）。

    A. 7

    B. 15

    C. 157

    D. 528


    正确答案：B
    本题考查VBA中多重循环的知识。见 到多重循环的问题不要害怕，认真地分析清楚每一次循环这种问题 就迎刃而解了。本题中，在每一次外循环开始的时候都把x的值置 为4。所以我们只分析最后一次循环就可以了；同理中层循环每一 次开始前都把x的值置为3，所以这个问题最后实际上就是x的初 值为3，执行最内层循环直到结束就可以了。根据程序内循环执行 两次．最后x=3+6+0=15。

  • 第14题：

    （ 31 ） 窗体上有 List1 、 List2 两个列表框 ， List1 中有若干列表项 （ 见图 ） ， 并有下面的程

    序：

    Private Sub Comand1_Click （）

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

    If List1.Selected （ k ） Then

    List2.AddItem List1.List （ k ）

    List1.RemoveItem k

    End If

    Next k

    End Sub

    程序运行时，按照图示在 List1 中选中 2 个列表项，然后单击 Commandl 命令按钮，则产生的结果是

    A ）在 List2 中插入了 “ 外语 ” 、 “ 物理 ” 两项

    B ）在 List1 中删除了 “ 外语 ” 、 “ 物理 ” 两项

    C ）同时产生 A ）和 B ）的结果

    D ）把 List1 中最后 1 个列表项删除并插入到 List2 中


    正确答案：C

  • 第15题：

    设窗体上有一个名为List1的列表框，并编写下面的事件过程：

    Private Sub List1_Click（ ）

    Dim ch As String

    ch=List1．List(List1．Listlndex)

    List1．RemoveItem List1．Listlndex

    List1．Addltem ch

    End Sub

    程序运行时，单击一个列表项，则产生的结果是（ ）。

    A.该列表项被移到列表的最前面

    B.该列表项被删除

    C.该列表项被移到列表的最后面

    D.该列表项被删除后又在原位置插入


    正确答案：C
    C。【解析】List1列表框先将选中的ch字符删除，然后再将其插入到最后，ListBox在增加项的时候是加在列表最后面的。

  • 第16题：

    在考生文件夹中有一个工程文件exeeise86.vbp及窗体文件execise86.frm。在名为Form1的窗体上有一个名称为List1的列表框和一个名称为Cmd1、标题为；显示”的命令按钮。要求程序运行后,如果多次单击列表框中的项，则可同时选择这些项。而如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如下图所示。

    要求；

    修改列表框的适当属性，使得运行时可以多选，并去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改过的程序按原名保存。


    正确答案：

  • 第17题：

    在名为Form1的窗体上绘制一个列表框，其名称为List1；一个水平滚动条，其名称为 HS1，smallChange属性为2，LargeChange属性为10，Min属性为0，Max属性为100。编写适当的事件过程，使程序运行后，若把滚动框滚到某个位置，然后单击窗体，则在列表框中添加一个项目，其内容是“××”，其中××是滚动框所在的位置，如下图所示。

    注意：

    程序中不要使用变量：文件必须存放在考生文件夹中，工程文件名为execise97.vbp，窗体文件名为execise97.frm。


    正确答案：

  • 第18题：

    窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序： Private Sub Command1_Click（ ） For k=List1．ListCout-1 To 0 Step-1 If List1．Selected(k)Then List2．Addltem List1．List(k) List1．Removeltem k End If Next k End Sub程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（ ）。

    A.在List2中插入了“外语”、“物理”两项

    B.在List1中删除了“外语”、“物理”两项

    C.同时产生A和B的结果

    D.把List1巾最后1个列表项删除并插入到List2中


    正确答案：C
    C。【解析】本题程序中的意思为如果选择了符合条件的数，那么将选中的项增加到List2列表框中，同时在List1中移除所选项，所以本题A和B选项均正确。

  • 第19题：

    窗体上有一个列表框和一个文本框，编写下列两个事件过程：

    Private Sub Form. Load()

    List1.Addltem"北京"

    List1.Addltem"天津"

    List1.Addltem"上海"

    Text1.Text=""

    End Sub

    Private Sub List1 Click()

    Print Text1.Text+List1.Text

    End Sub

    程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是( )。

    A．中国北京

    B．中国天津

    C．中国上海

    D．北京中国


    正确答案：A
    解析：程序运行时，首先在文本框中输入“中国”，则文本框的Text属‘陛值为“中国”；然后单击列表框中的“北京”，则此时列表框的Text属性值为“北京”；最后用“+”将文本框的Text属性值和列表框的Text属性值连接起来，因此输出“中国北京”。

  • 第20题：

    (32）设窗体上有一个名为List 1的列表框，并编写下面的事件过程：

    Private Sub Listl_C1ick()

    Dim ch As String

    Ch=Listl．List(List l .ListIndex)

    Listl.RemoveItem Listl.ListIndex

    Listl.AddItem ch

    End Sub

    程序运行时，单击一个列表项，则产生的结果是

    A）该列表项被移到列表的最前面

    B）该列表项被删除

    C）该列表项被移到列表的最后面

    D）该列表项被删除后又在原位置插入


    正确答案：C

  • 第21题：

    执行list1.list（list1.listcount）=“80”会（）。

    • A、会产生错误信息
    • B、list1列表框最后一个表项被改为“80”
    • C、list1列表框会增加一个“80”表项
    • D、指定list1列表框的表项个数为80个

    正确答案:C

  • 第22题：

    单选题
    窗体上有一个名为List1的列表框和一个名为Command1的命令按钮，并有下面的事件过程：程序运行时，选中一个列表项，然后单击Command1按钮，则产生的结果是（　　）。
    A

    若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置

    B

    选中的列表项与它前面的列表项互换位置

    C

    若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置

    D

    选中的列表项与它后面的列表项互换位置


    正确答案： B
    解析：
    当单击Command1按钮后，List1列表框中被选中项的索引值赋给变量n，如果被选中项不为空也不是第1项时，将选中项的项目文字赋值给变量ch，用选中项的上面一项的文字替换选中项的文字，再把变量ch中的文字替换成选中项上中项上面一项的文字，即选中项和它上面一项的位置进行交换。

  • 第23题：

    单选题
    窗体上有List1、List2两个列表框，List1中有若干列表项（如下图所示），并有下面的程序：程序运行时，按照下图所示在List1中选中两个列表项（物理和外语），然后单击Command1命令按钮，则产生的结果是（　　）。
    A

    在List2中插入了“外语”“物理”两项

    B

    在List1中删除了“外语”“物理”两项

    C

    同时产生A项和B项的结果

    D

    把List1中最后一个列表项删除并插入到List2中


    正确答案： D
    解析：
    本题中，点击事件的响应过程：遍历整个List1中的列表项，如果列表项被选中，则将其添加到List2，然后将它们从List1中删除，所以选项A和B都会发生。

相关内容