作业帮 > 综合 > 作业

怎么用VB筛选1~10之间的偶数.急

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/06/17 18:06:54
怎么用VB筛选1~10之间的偶数.急
怎么用VB筛选1~10之间的偶数.急
Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
j = j + 1
If j = 11 Then Exit For
If List1.List(i) < 11 And List1.List(i) Mod 2 = 0 Then List2.AddItem List1.List(i): List1.RemoveItem i
Next
End Sub
Private Sub Form_Load()
For i = 1 To 20
List1.AddItem i
Next
End Su