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 编辑 ]

n = List1.ListCount - 1
For i = 0 To n
    If List1.Selected(i) Then
        sum = sum + List1.List(i)
    End If
Next

你好,你的那个算不出成绩,我修改了一下...
这样就可以了,问题有出现了...
算出的答案是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

       sum = sum +val( List1.List(i))
或
       sum = sum + clng(List1.List(i))

val 把字符串尽可能的转为数字。如果不是数字形式，就返回 0 。
CLNG 把符合数字形式的字符串，转为 long 数值 ，如果不是数字形式，就报错。

如 val("123ab") 返回 123
   clng("123ab") 报错

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

应该是从 list 中移除.

唉，你的sum没有用dim sum as Integer声明过吧？！我没把代码贴完整。
另外，个人建议你在每个模块前加上“option Explicit”来强制变量需要先声明才能使用。（或者：在vb6中，工具->选项->编辑器->选中“要求变量声明”）养成好的习惯。

好的,谢谢你们~