Private Sub Command1_Click()

For i = 0 To List1.ListCount - 1

If InStr(List1.List(i), "错") Then
List1.RemoveItem i + 1
Else
If InStr(List1.List(List1.ListCount - 1), "错") Then
End If
End If

Next

End Sub

运行提示错误，该怎么样修改？？？

Private Sub Form_Load()

List1.AddItem "对"
List1.AddItem "对"
List1.AddItem "错"
List1.AddItem "对"
List1.AddItem "对"
List1.AddItem "错"
List1.AddItem "对"
List1.AddItem "对"
List1.AddItem "错"
List1.AddItem "对"
List1.AddItem "对"
List1.AddItem "对"
List1.AddItem "错"
List1.AddItem "对"
List1.AddItem "对"
List1.AddItem "错"
End Sub




找到方法了。。。


Private Sub Command1_Click()
 
For i = 0 To List1.ListCount - 1
 
If InStr(List1.List(i), "错") And i < List1.ListCount - 1 Then
List1.RemoveItem i + 1
End If

Next
 
End Sub

搞定。。。呵呵


[ 本帖最后由 z8571127 于 2015-2-11 22:24 编辑 ]

应该是这样：

  List1.Items.Add("对")
        List1.Items.Add("对")
        List1.Items.Add("错")
        List1.Items.Add("对")
        List1.Items.Add("对")
        List1.Items.Add("错")
        List1.Items.Add("对")
        List1.Items.Add("对")
        List1.Items.Add("错")
        List1.Items.Add("对")
        List1.Items.Add("对")
        List1.Items.Add("对")
        List1.Items.Add("错")
        List1.Items.Add("对")
        List1.Items.Add("对")
        List1.Items.Add("错")

但是我没弄明白 你弄这些对错有啥用  一组不就够用了吗

Private Sub Command1_Click()

For i = 0 To List1.ListCount - 1

If InStr(List1.List(i), "错") Then

 List1.RemoveItem i + 1

 Else

 If InStr(List1.List(List1.ListCount - 1), "错") Then

 End If

 End If

Next

End Sub

我只是想把LIST1 中 含有“错”的下一行删除， 如果最后一行含有“错”，则不删除。
是command1里的代码怎么样写。

这个代码有问题。
你测试看看，会报下标越界。

list控件按条件删元素，应该是从下向上遍类，而不是从上到下遍类。

测试通过，没有出现错误。有红色的条件，下标就不会越界了。

Private Sub Command1_Click()

 For i = 0 To List1.ListCount - 1

 If InStr(List1.List(i), "错") And i < List1.ListCount - 1 Then
 List1.RemoveItem i + 1
 End If
 
Next

 End Sub
 
搞定。。。哈哈

[ 本帖最后由 z8571127 于 2015-2-12 14:53 编辑 ]