题目内容（请给出正确答案）

[主观题]

设窗体上有_个名为Listl的列表框，并编写下面的事件过程：Private Sub Listl_Click（)Dim ch As Str

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

提问人：网友linux5151 发布时间：2022-01-06

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“设窗体上有_个名为Listl的列表框，并编写下面的事件过程：…”相关的问题

第1题

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

A.Listl．List

B.Listl．Listlndex

C.Listl．Text

D.Listl：Index

点击查看答案

第2题

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

点击查看答案

第3题

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

点击查看答案

第4题

（32）设窗体上有一个名为List 1的列表框，并编写下面的事件过程：Private Sub Listl_C1ick（)Dim ch

(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）该列表项被删除后又在原位置插入

点击查看答案

第5题

设在窗体Forml上有一个列表框Listl，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗

体上，正确的事件过程是。 A．Private Sub Listl_Click B．Private Sub Forml_Click Print Listl．Text Print Listl．Text End Sub End Sub C．Private Sub Listl_Click D．Private Sub Forml_Click Print Forml．Text Listl．Print Listl．Text End Sub End Sub

点击查看答案

第6题

在窗体上画一个名称为Listl的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为A

在窗体上画一个名称为Listl的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为

A．Fori=OTOListI．ListCount？1 … Next

B．Fori=0 To List1.Count？1 … Next

C．Fori=1 To List1.ListCount … Next

D．For i=1 To List1.Count … Next

点击查看答案

第7题

设窗体上有一个名为Text1的文本框，并编写如下程序：Private Sub Form_Load（) Show Text1.Text=

设窗体上有一个名为Text1的文本框，并编写如下程序：Private Sub Form_Load() Show Text1.Text="" Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer，_Shift As Integer,X As Single,Y As Single） Print"程序设计"End SubPrinvate Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print "Visual Basic";End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是。A．Visual BasicB．程序设计C．Visual Basic 程序设计D．a程序设计

点击查看答案

第8题

设窗体上有一个名为Text1的文本框，并编写如下程序：Private Sub Form_Load（)ShowText1.Text=""Tex

设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print"程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print"Visual Basic"; End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是______。

A． Visual Basic

B．程序设计

C．Visual Basic程序设计

D．a程序设计

点击查看答案

第9题

设窗体上有一个名为Text1的文本框，并编写如下程序：Private Sub Form_Load（) Show Text1. Text=""

设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1. Text="" Text1. SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Sinqle) Print"程序设计" End Sub Private Sub Text1_Keynown(KeyCode As Integer, Shift As Integer) Print "Visual Basic"; End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上最示的内容是

A．Visual Basic

B．程序设计

C．Visual Basic程序设计

D．a程序设计

点击查看答案

第10题

窗体上有名为Drivel与Dirl的驱动器列表框与文件夹列表框，需要在选定驱动列表框中的列表项时，文件夹表框中内容随之改变，正确的语句及语句的位置是（）。

A.Dir1.Path=Drive1.Drive′位于Drive1 Change（）过程

B. Dir1.Path=Drive1.Drive′位于Dir1 Change（）过程

C. Dir1.Path=Drive1.Path′位于Dir1 Change（）过程

D. Dir1.Path=Drive1.Path′位于Drive1 Change（）过程

点击查看答案