首页 > 计算机等级考试

网友您好，请在下方输入框内输入要搜索的题目：

请输入或粘贴题目内容搜题

搜题

拍照、语音搜题，请扫码下载APP

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

[主观题]

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

窗体上有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、List2两个列表框，List1中有若干列表项（见图)，并有下面的程序：Priv

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

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

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

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

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

答案

查看答案

发布时间：2020-09-14

更多“窗体上有List1、List2两个列表框，List1中有若干列表项（见图)，并有下面的程序：Private Sub Command”相关的问题

第1题

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

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

序：

（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 中

点击查看答案

第2题

窗体上有list1、list2两个列表框，程序运行时，在两个列表框中分别选中1个项目，如图a所示，单击名称

为Command1的“交换”按钮，则把选中的项目互换，互换后的位置不限。如图b所示。下面的程序可实现这一功能，请填空。

窗体上有list1、list2两个列表框，程序运行时，在两个列表框中分别选中1个项目，如图a所示，单

Private Sub Command1_Click()

If list1.text=””or list2.text””then

Msgbox”请选择交换的物品！”

Else

List1.additem list2.text

List2.removeitem【11】

【12】

List1.removeitem list1.listindex

End If

End Sub

点击查看答案

第3题

窗体卜有Listl、List2两个列表框，Listl中有若干列表项（见图)，并有下面的程序：Private sub Command

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

Private sub Commandl_Click()

For k：Listl．ListCount_l To 0 step-1

Tf Listl．Selected(k)Then

List 2．AddItern Listl．List(k)

Listl．Removehem k

End If

Next k

End Sub

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

窗体卜有Listl、List2两个列表框，Listl中有若干列表项（见图)，并有下面的程序：Priv

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

B．在Listl中删除了“外语”、“物理”两项

C．同时产生A)和B)的结果

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

点击查看答案

第4题

窗体上有一个列表框和一个文本框，编写下列两个事件过程：Private Sub Form. Load（)List1.Addltem"

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

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．北京中国

点击查看答案

第5题

窗体上有一个命令按钮Command1和一个列表框List1，其中List1有0、1、2、3、4的内容，有下列程序：Privat

窗体上有一个命令按钮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．程序出错

点击查看答案

第6题

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

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

A．List1.List

B．List1.List1ndex

C．List1.Index

D．List1.Text