VB 求列表框选定项目之和。。。。

Question

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

Answer 1

listbox 支持多选需要在设计的修改属性MultiSelect的值

Private Sub Command1_Click()
Dim sum As Integer
sum = 0
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then
sum = sum + List1.List(i)
End If
Next
Text1.Text = sum
End Sub

Private Sub Form_Load()
For i = 1 To 100
If i Mod 7 = 0 Then
List1.AddItem i
End If
Next
End Sub本回答被提问者采纳