[填空题] 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、 Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程

[填空题] 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、 Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程

[填空题] 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、 Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。

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

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

正确答案：

Listl.AddItem i Listl.ListCount-1或 14 Listl.List(i)或 Val(Listl.List(i))或CInt1(List1.List(i))

参考解析：

本题考查列表框的属性。Form Load文件过程用来添加1～100之间能被7整除的数。第一处使用AddItem方法，应填：List1.AddItem i，表示把i加入到列表框中。根据尝试，1～100之间能被7整除的数有14个，故第二处填：14。也可以填：Listl.ListCount-1，其中ListCount表示Listl中表项的个数。对于第三空，List属性用来返回Listl列表框中的表项，一般与下标配合使用，本处应填List1.List(i)，表示把表项的值赋给Sum。其他项为等价的。