VB 求偶数迁移

功能描述 讲左列表框中所有的偶数转移到右列表框
试验要求：两个按钮（产生和->） 两个列表控件
单击产生，列表1产生10个随机两位整数，
单击-> 列表1里面的偶数都迁移到列表2中，列表1里面偶数啊删除

Private Sub Command1_Click()
List1.Clear
List2.Clear
Randomize
For i = 0 To 9
List1.AddItem Str(Int(Rnd * 90 + 10))
Next i
End Sub

Private Sub Command2_Click()

For i = 0 To List1.ListCount - 1
If List1.List(i) Mod 2 = 0 Then
List2.AddItem List1.List(i)
End If
Next i
For i = List1.ListCount - 1 To 0 Step -1
If List1.List(i) Mod 2 = 0 Then
List1.RemoveItem (i)
End If
Next i
End Sub

sub removeitem(index as integer) vb.combobox 的成员 从一个 listbox 或 combobox 控件或一个 grid 控件中的一行中删除一项。 注：这是对象浏览器里申明 改成这个，你忘了list可能有空值，以下测试通过 private sub command2_click() for i = 1 to 10 if val(list1.list(i)) mod 2 = 0 and list1.list(i) <> "" then list2.additem list1.list(i) list1.removeitem (i) end if next i end sub