UC知道请高手帮我看一下下面这段代码错在哪?
来源：百度知道 编辑：UC知道 时间：2024/06/01 02:23:32
下面这段代码在运行的时候我总是出错,提示:实时错误"5",无效的过程调用或参数.我的列表框里面的项目格式为00 00 00 00 00 00 00.我的意图是如果列表框某个项目有三个数尾数相同就删除它.
For I = List1.ListCount - 1 To 0 Step -1
For X = 2 To 14 Step 3
For Y = X + 3 To 17 Step 3
For z = Y + 3 To 20 Step 3
If Val(Mid(List1.List(I), X, 1)) = Val(Mid(List1.List(I), Y, 1)) And Val(Mid(List1.List(I), Y, 1)) = Val(Mid(List1.List(I), z, 1)) Then
List1.RemoveItem I
End If
Next z
Next Y
Next X
Next I
For I = List1.ListCount - 1 To 0 Step -1
For X = 2 To 14 Step 3
For Y = X + 3 To 17 Step 3
For z = Y + 3 To 20 Step 3
If Val(Mid(List1.List(I), X, 1)) = Val(Mid(List1.List(I), Y, 1)) And Val(Mid(List1.List(I), Y, 1)) = Val(Mid(List1.List(I), z, 1)) Then
List1.RemoveItem I
End If
Next z
Next Y
Next X
Next I
建一个COmmand1，List1.
代码如下，已作修改。
＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim f As Boolean
f = False
For I = List1.ListCount - 1 To 0 Step -1
For X = 2 To 14 Step 3
For Y = X + 3 To 17 Step 3
For z = Y + 3 To 20 Step 3
If Val(Mid(List1.List(I), X, 1)) = Val(Mid(List1.List(I), Y, 1)) And Val(Mid(List1.List(I), Y, 1)) = Val(Mid(List1.List(I), z, 1)) Then
List1.RemoveItem I
f = True
End If
If f = True Then Exit For
Next z
If f = True Then Exit For
Next Y
If f = True Then Exit For
Next X
f = False
Next I
End Sub