[填空题] 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Labe11、 Caption属性为"Sum"的标签，一个名称为Com

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

Pfivate Sub Form_Load()

Fori=1 To 100

If iMod7=0 Then

[6]

End If

Next

End Sub

Private Sub Commandl_Crick()

Sum=0

Fori=0 To List1.List Count-1或14

Sum=Sum+ [7]

Next

Textl:Text=Sum

End Sub

Ust1.List(i)或Val(Listl.List(i))或CInt1(List1.ist(0)