窗体上有一个名为List1的列表框（允许做多项选择），一个名称为Text1的文本框，三个命令按钮，标题分别为“求全部项目和”，“求选定项目之和”，“删除选定项目”要求1）程序运

Question

窗体上有一个名为List1的列表框（允许做多项选择），一个名称为Text1的文本框，三个命令按钮，标题分别为“求全部项目和”，“求选定项目之和”，“删除选定项目”
【要求】
1）程序运行后，将把1～100之间能够被7整除的数添加到列表框中。
2）单击“求全部项目和”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果。
3) 单击“求选定项目之和”按钮，则对List1中的选中的项目进行累加求和，并在文本框中显示计算结果。
4) 单击“删除选定项目”按钮，则删除List1中的选中的项目。

Answer 1

已调试完毕
Private Sub Command2_Click()
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then m = m + Val(List1.List(i))
Next
Print m
End Sub
Private Sub Command1_Click()
For j = 0 To List1.ListCount - 1
m = m + Val(List1.List(j))
Next
Text1 = m
End Sub
Private Sub Command3_Click()
Dim n As Integer
Do
If List1.Selected(n) = True Then
List1.RemoveItem n
n = 0
Else
n = n + 1
End If
If n = List1.ListCount Then Exit Do
Loop
End Sub
Private Sub Form_Load()
For i = 1 To 100
If i Mod 7 = 0 Then List1.AddItem i
Next
End Sub