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

窗体上有list1、list2两个列表框，程序运行时，在两个列表框中分别选中1个项目，如图a所示，单击名称为Command1的“交换”按钮，则把选中的项目互换，互换后的位置不限。如图b所示。下面的程序可实现这一功能，请填空。

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

设在窗体中有一个名称为Listl的列表框，其中有若干个项目(如图)。要求选中某一项后单击Commandl按钮，就删除选中的项，则正确的事件过程是。A．Private SubCommandl_Click List1.Clear End Sub B．Private Sub Commandl_Click List1.Clear Listl.ListIndex End Sub C．Private Sub Commandl_Click List1.RemoveItem List1.ListIndex End Sub D．PrivateSubCommandl_Click List1.RemoveItem End Sub

设在窗体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

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

在窗体中有一个名为(Command1的命令按钮，Click事件的代码如下：

单击命令按钮后，标签显示的结果是( )。

窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下：

Private Sub Command1_Click()

Dim In As Integer

In=______

List.Remove Ind

End Sub

则在程序的空白行的语句是( )。

A．List1.Index

B．List1.ListIndex

C．List1.Text

D．List1.ListCount

（ 15 ）设在窗体 Form1 上有一个列表框 List1 ，其中有若干个项目。要求单击列表框中某一项时，把该项

显示在窗体上，正确的事件过程是

A)Prvate Sub List1_Click()

Print List1.Text

End Sub

B)Private Sub Form1_Click()

Print List1.Text

End Sub

C)Private Sub List1_Click()

Print Form1.Text

End Sub

D)Private Sub Form1_Click()

List1.Print List1.Text

End Sub

（ 13 ）设在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。要求单击 Command 1

按钮时可把光标移到文本框中。下面正确的事件过程是

A ） Private Sub Command1_Click()

Text1.GotFocus

End Sub

B ） Private Sub

Command1.GotFocus

EndSub

C ） Private Sub Command1_Click()

Text1.SetFocus

End Sub

D ） Private Sub

Command1.SetFocus

End Sub

若在某窗体模块中有如下事件过程： Privam Sub Command1_Click(Index As Integer) ...... End Sub 则以下叙述中正确的是______。

A．此事件过程与不带参数的事件过程没有区别

B．有—个名称为Command1的窗体，单击此窗体则执行此事件过程

C．有一个名称为Command1的控件数组，数组中有多个不同类型控件

D．有—今名称为Command1的控件数组，数组中有多个相同类型控件