vb ???一般程序代码一样的,我写下,不过可能不是VB的格式。你改下!for (int i = 0; i < list1.length(); i++) { if(list1.getItem(i) .....进行你的判断) list.addItem(....)}
写个代码,参考一下:Private Sub Command1_Click()
Dim CS, AA As Integer
List1.Clear
If Option1.Value Then CS = 3
If Option2.Value Then CS = 5
If Option3.Value Then CS = 7
For i = Val(Text1.Text) To 100
If (i Mod CS) = 0 Then
List1.AddItem i
AA = AA + 1
If AA >= 5 Then Exit Sub
End If
Next i
End Sub
加好友解决你的问题
能够被所选除数整除的5 个数?你是想一次在text中输入多个数吗?