在窗体上有一个列表框，名称为List1，该列表框中有三个选项，分别为“123”、“456”和“789”，当前没有任

若干列表项。当双击列表框中的某个项目时，在标签Labe1中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。

Private Sub Form_Load（）

List1.AddItem "北京"

List1.AddItem "上海"

List1.AddItem "河北"

End Sub

Private Sub List1 【9】 （）

Labe1.Caption= 【10】

End Sub

单击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)

m"的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如下图所示。以下是实现上述功能的程序，请填空。

Pfivate Sub Form_Load()

Fori=1 To 100

If iMod7=

窗体上有一个名为List1的列表框，其中已经输入了若干个项目(如图所示)；

还有两个文本框，名称分别为Text1、Text2，一个名称为Command1的命令按钮，并有以下程序： Private Sub Command1_Click() Dim str As String,s As String,k As Integer s=Text1 str="" For k=List1.ListCount-1 To 0 Step-1 IfInStr(List1.List(k),s)＞0 Then str=str&List1.List(k)&" " End If Next k If str="" Then Text2="没有匹配项目" Else Text2=str End If End Sub 程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是______。

A．京

B．北京 南京

C．南京 北京

D．没有匹配的项目

个表项时，在Label1中相应地显示该表项，应使用的程序代码为

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

要求；

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

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

要求：

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

性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。

Private Sub Form_Load（）

For i=1 To 100

If i Mod 7 =0 Then

________

End If

Next

End Sub

Private Sub Command1_Click（）

Sum = 0

For i = 0 To ________

Sum = Sum + ________

Next

Text1.Text = Sum

End Sub

窗体上有l个名称为Command1的命令按钮；1个名称为List1、没有列表项的列表框。编写如下程序：

程序运行后，单击命令按钮Command1，并输入“Happynewyear”，则在Listl中显示的内容为

窗体上有名称为List1的列表框。以下能够将列表框当前选定的列表项替换为字符串“Basic”的语句是