窗体上有一个命令按钮Commalld1和一个列表框List1。先选择列表框中的某一个项目,然后单击命令按钮

在窗体上有一个命令按钮，然后编如下事件过程：

程序运行后，单击命令按钮，在输入对话框内输入-1，输出结果是 。

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

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

要求：

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

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

要求；

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

在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为Listl、Commandl和 Labell，通过属性窗口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如下图所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。

Private Sub Commandl Click()

If Listl.ListIndex＞=______Then

Listl.RemoveItem ______

Labell.Caption=______

Else

MsgBox “请选择要删除的项目”

End If

End Sub

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

Pfivate Sub Form_Load()

Fori=1 To 100

If iMod7=

窗体上有一个命令按钮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

（23）窗体上有一个命令按钮Command1和一个列表框List1.先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下： Private Sub Commandl_Click() Dim In As Integer In___________ List.Remove Ind End Sub 则在程序的空白行的语句是 A.List1.Index B.List1.ListIndex C.List1.Text D.List1.ListCount