违法和不良信息举报 联系客服
免费注册 登录

设窗体上有一个名为List1的列表框,并编写下面的事件过程:Private Sub List1_Click( )Dim ch As

题目

设窗体上有一个名为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.该列表项被删除后又在原位置插入

如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

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

Private Sub Listl_Click()

Dim ch As String

ch=Listl．List(Listl．Listlndex)

Listl，RemoveItem Listl．ListIndex

Listl．Addltem ch

End Sub

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

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

B．该列表项被删除

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

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


正确答案：C
解析：RemoveItem方法作用是删除项；AddItem方法作用是添加项，若省略Index值，则默认为插入到列表的最后面。

第2题：

有一个工程文件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语句来判断按下的是鼠标左键或右键。

第3题：

在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是

A．List1．Removeltem List1．Text

B．List1．Removeltem List1．CIear

C．List1．Removeltem List1．ListCount

D．List1．Removeltem List1．Listlndex


正确答案：D
解析：单击某个城市名则该城市名消失，说明是要移除选中的列表项，Removeltem方法的用法为，<ListName>．Removeltem<．Index>，四个选项的不同点均在<Index>上，而要移除选中的列表项则要使用选中的列表项索引号，即：List1．Listlndex，因此本题答案为D)。

第4题：

(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

第5题：

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

注意：

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


正确答案：

第6题：

在窗体七画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是（ ）。

A.List1．Removeltem List1．Text

B.List1．R(moveItem List1．Clear

C.List1．R(、moveItem List1．ListCount

D.List1．Rt-moveItem List1．Listlndex


正确答案：D
D。【解析】本题考查列表框的方法，列表框的移除方法使用Removeltem，RrmoveItem后面跟的必须是数字，币只有c和D中的List1．Count和List1．ListIndex是表示数字的。List1．IAstIndex表示的是在列表框中的襄=个索引值，所以答案选择D。

第7题：

在窗体上有一个名为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次。

第8题：

设窗体上有一个名为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在增加项的时候是加在列表最后面的。

第9题：

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

注意：

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


正确答案：

第10题：

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

A．List1.Text

B．List1.Index

C．List1.List

D．List1.ListIndex


List1中有ListCount-1个列表项

相关内容