在列表框中输出100～1000之间能被37整除的数.

你好;因为循环结束后,最后一组单词没有添加到list里的原因,在循环结束的外面添加
List1.AddItem c就ok了,希望能帮到你：）

如果最后一位也是空格的话,就在循环外加个条件：
if c"" then
List1.AddItem c
end if

已调试完毕
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 Su

Private Sub Command1_Click()
Dim i, sum1, sum2, n
List1.Clear
For i = 1 To 20
Randomize
n = Int(Rnd * 801) + 100
If n Mod 5 = 0 Then
List1.AddItem n
If n Mod 2 = 0 Then sum1 = sum1 + n Else sum2 = sum2 + 1
Else
i = i - 1
End If
Next
MsgBox "偶数之和：" & sum1 & vbNewLine & "奇数个数：" & sum2
End Su

Private Sub Form_Load()
List1.AddItem "北京"
List1.AddItem "山西"
List1.AddItem "辽宁"
List1.AddItem "浙江"
List1.AddItem "广东"
Label1 = "列表框的使用"

'属性栏里设置MultiSelect为2
End Sub
Private Sub List1_Click()
Dim tmp As String
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
tmp = tmp + List1.List(i) & vbCrLf
End If
Next
MsgBox tmp

End Su

Private Sub From_Load()
l1.AddItem"aaaa"
l1.AddItem"bbbb"
l1.AddItem"cccc"
End Su

Private Sub Command1_Click()
If List1.ListIndex > -1 Then
List2.AddItem List1.List(List1.ListIndex)
Command3.Enabled = True
End If
End Sub
Private Sub Command2_Click()
If List2.ListIndex > -1 Then
List2.RemoveItem List2.ListIndex
End If
End Sub
Private Sub Command3_Click()
Dim s As String, i As Integer
Command1.Enabled = False
Command2.Enabled = False
For i = 1 To List2.ListCount
s = s " " List2.List(i - 1)
Next
MsgBox "购买了" s
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
List1.AddItem "苹果"
List1.AddItem "橘子"
List1.AddItem "香蕉"
List1.AddItem "梨"
Command1.Caption = "购买"
Command2.Caption = "退货"
Command3.Caption = "统计"
Command3.Enabled = False
Command4.Caption = "退出"
End Su

D
ctrl+e
C

C
记得采纳~~！

'将 list2 中选中的项目移动到 list1 中
Private Sub Command2_Click()
moveSelItem List2, List1
End Sub

'将 list1 中选中的项目移动到 list2 中
Private Sub Command3_Click()
moveSelItem List1, List2
End Sub

'将 source 中选中的项目移动到 target 中（支持多选功能）。
Private Sub moveSelItem(source As ListBox, target As ListBox)
Dim i As Integer
i = 0
While i < source.ListCount
If source.Selected(i) Then
target.AddItem source.List(i)
source.RemoveItem (i)
Else
i = i + 1
End If
Wend
End Sub

'将 list2 中所有的项目移动到 list1 中
Private Sub Command4_Click()
moveAllItem List2, List1
End Sub

'将 list1 中所有的项目移动到 list2 中
Private Sub Command5_Click()
moveAllItem List1, List2
End Sub

'将 source 中所有的项目移动到 target 中。
Private Sub moveAllItem(source As ListBox, target As ListBox)
Dim i As Integer
i = 0
For i = 0 To source.ListCount - 1
target.AddItem source.List(i)
Next
source.Clear
End Su