窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Labell、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。
Private Sub Form_Load()
For i=1 To 100
Tf 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
参考答案：List1. AddItem(i) 或 List1. AddItem i
List1. ListCount-1
List1. List(i)
解析： 本题主要考查对List控件的操作及其属性。
ListCount属性用于返回列表框中所有选项的总数；List属性是一个一维数组，数组中元素的值就是在执行时看到的列表项。设计时可以在属性窗口中输入List属性来建立列表项，运行时对List数组从0到ListCount—1依次取值可以获得列表的所有项目；Click事件当用户在一个对象上单击鼠标按钮时发生；AddItem方法用于将项目添加到列表框中，其语法为Object. AddItem Item[，Index]，其中，Item是要添加到列表框中的字符表达式；Index是可选参数，用来指定新项目在列表框中的位置。
本题中需要对List1进行元素添加，故填写List1. AddItem(i)或List1. AddItem i需要完成对List1中所有元素的求和运算。需要给出List1中所拥有元素的个数，考虑到For循环从0开始，所以需要填写元素个数减1，即List1. ListCount—1。需要给出第i个元素的值，加入Sum中去，故填写List1. List(i)。