vb题 求大佬帮忙
1个回答
展开全部
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 9
List1.List(i) = 10 + Int(Rnd * 90)
Next
End Sub
Private Sub Command2_Click()
List2.Clear
Dim i As Integer
For i = 0 To 9
If List1.List(i) Mod 2 = 0 Then
List2.AddItem List1.List(i)
List1.RemoveItem i
i = i - 1
End If
If i = List1.ListCount - 1 Then Exit For
Next
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
