4、窗体上有一个名为List1的列表框（允许做多项选择），一个名称为Text1的文本框，三个命令按钮，标题分别为“求全部项目和”，“求选定项目之和”，“删除选定项目”。 【要求】
1）程序运行后，将把1～100之间能够被7整除的数添加到列表框中。
2）单击“求全部项目和”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果。
3) 单击“求选定项目之和”按钮，则对List1中的选中的项目进行累加求和，并在文本框中显示计算结果。
4) 单击“删除选定项目”按钮，则删除List1中的选中的项目。
以下是实现1）和2）功能的程序，请完善程序。同时再实现3）和4）
Private Sub Form_Load()   ‘显示7的倍数
For i=1 To 100
If i Mod 7 =0 Then
____________
End If
Next i
End Sub

Private Sub Command1_Click()    ‘列表框所有项目之和
Sum = 0
For i = 1 To   ______________
Sum = Sum + _______________
Next i
_______________
End Sub



囧：我现在不会做的是（3) 单击“求选定项目之和”按钮，则对List1中的选中的项目进行累加求和，并在文本框中显示计算结果。
其他都做了~


[ 本帖最后由 hyp625 于 2010-5-7 01:17 编辑 ]

你好,你的那个算不出成绩,我修改了一下...
这样就可以了,问题有出现了...
算出的答案是Sum与List1.List(i)强行连接了,而不是他们的求和
比如我选定的是21和42 算出的是..."2142"

Private Sub Command2_Click()
n = List1.ListCount - 1
For i = 0 To n
    If List1.Selected(i) = True Then
        Sum = Sum + List1.List(i)
    End If
Next i
Text1.Text = Sum
End Sub

你好,我还有一个问题...对于第四问的理解是4) 单击“删除选定项目”按钮，则删除List1中的选中的项目。
是指我选中了那个数字从list中删除还是指数字只是删除选中状态 但数字还留在list中 变成不选中状态呢?

好的,谢谢你们~