谁能帮我修改一下下面这段代码呀?
列表框里的每个项目有七个数,数之间用一个空格隔开,我的目的是如果某个项目只包含一个奇数或只包含一个偶数或全部是奇数或全部是偶数就删除掉,我写了下面的代码,可是运行时出错:无效的过程调用或参数,请问该怎么修改呀?谢谢!!Private Sub Command1_Click()
Dim jx As Integer, ox As Integer, i As Integer
For i = List1.ListCount - 1 To 0 Step -1
jx = 0: ox = 0
For a = 1 To 19 Step 3
If Val(Mid(List1.List(i), a, 2)) Mod 2 = 0 Then ox = ox + 1 Else jx = jx + 1
If ox = 0 Or ox = 1 Or jx = 0 Or jx = 1 Then List1.RemoveItem i
Next a, i
End Sub --------------------编程问答--------------------
这样看起来更好
Private Sub Command1_Click()
Dim a
Dim Count_O As Long, Count_J As Long
For i = List1.ListCount - 1 To 0 Step -1
a = Split(List1.List(i), ",")
Count_O = 0: Count_J = 0
For j = 0 To UBound(a)
If Val(a(j)) Mod 2 = 0 Then Count_O = Count_O + 1 Else Count_J = Count_J + 1
Next
If Count_O = 1 Or Count_J = 1 Or Count_O = j Or Count_J = j Then List1.RemoveItem i
Next
End Sub --------------------编程问答-------------------- --------------------编程问答-------------------- 非常感谢eersoft的回复!想不通的是我的代码我觉得思路也很清淅,为什么就是不行呢? --------------------编程问答-------------------- Next a, i
这样也可以啊???
关注!
补充:VB , 基础类