vb 关于反向操作

Question

  for r=1 to 3
      si(1) = fq(st) 
        si(2) = fw(st)  
        si(3) = si(0) + si(1) + si(2)  
        If Form9.Check1(0).Value = 1 Then mi(1) = si(1) 
        If Form9.Check1(1).Value = 1 Then mi(2) = si(2) 
        If Form9.Check1(2).Value = 1 Then mi(3) = si(3) 
。
。
         For i = MSFlexGrid1.Rows - 1 To 1 Step -1
            bb = MSFlexGrid1.TextMatrix(i, 1)
            si(0) = bb Mod 10
            si(1) = (bb \ 10) Mod 10
            si(2) = (bb \ 100) Mod 10
            ww(1) = fq(bb) 
            ww(2) = fw(bb) 
            ww(3) = si(0) + si(1) + si(2) 
。。
。。
If Form9.Option1(0) = True Then 
If ww(r) = mi(r) And Form9.Check1(dd).Value Then MSFlexGrid1.RemoveItem i
以上是按照条件删除
有很多条件，现在先按照3个举例
现在想
If Form9.Option1(1) = True '保留，就是保留上面那些被删除的，也就是反向操作
我现在用
If Form9.Option1(1) = True Then 
If ww(r) <> mi(r) And Form9.Check1(dd).Value Then MSFlexGrid1.RemoveItem i
这个不对，他得到的结果是上面3个条件，即符合条件1又符合条件2又符合条件3，我要的是条件1+条件2+条件3，或者更多。
bb,是3位数
请问这个保留该怎么写

Answer 1

猜测一下If Not (ww(r) = mi(r) And Form9.Check1(dd).Value) Then MSFlexGrid1.RemoveItem i