Question

可以将列表框1中的所有偶数全部添加到列表框2中

设计程序，列表框1的列表项为1到50的所有整数，当单击 添加 命令按钮后 可以将列表框1中的所有偶数全部添加到列表框2中 亲们 急急急。。。。要用vb哦

Answer 1

Dim I As Long
For I = 1 To 50
If I Mod 2 = 0 Then
List1.AddItem I, 0
End If
Next

追问

Private Sub Command1_Click()
Dim m As Integer
For m = 1 To 50
If m Mod 2 = 0 Then
List2.AddItem m
End If
Next m
End Sub
Private Sub Form_Load()
Dim m As Integer
For m = 1 To 50
List1.AddItem m
Next m
End Sub

追答

List1.AddItem I, 0 'I 是需要添加的数据, 0 是指要将 I 添加到控件的位置.这里是添加到第一个位置.

Answer 2

用vb哦 要 吗？