vb 该怎么写

来源：百度知道 编辑：UC知道 时间：2024/07/01 01:43:16
for dd=0 to 11
ElseIf Form9.Option1(0) = True And Form9.Option2(1) = True Then
If ww(dd) <> mi(dd) And Form9.Check1(dd).Value Then MSFlexGrid1.RemoveItem i
End If
next
上面代码得到的数据不是我想要得
我想要得数据单独测试如下
如dd等于11
ww(11) <> mi(11) then MSFlexGrid1.RemoveItem i 这个结果是我要的
如dd分别等于3，6
if ww(3) <> mi(3) and ww(6) <> mi(6) then MSFlexGrid1.RemoveItem i 这个结果数据是我要的
如dd分别等于4，5,6
if ww(4) <> mi(4) and ww(5) <> mi(5) and ww(6) <> mi(6)then MSFlexGrid1.RemoveItem i 这个结果数据是我要的
如dd分别等于4,5,6,9
if ww(4) <> mi(4) and ww(5) <> mi(5) and ww(6) <> mi(6)and ww(9) <> mi(9)then MSFlexGrid1.RemoveItem i 这个结果数据是我要的
......
......
......
如dd分别等于0,1,2,3,4,5,6,7,8,9,10,11
If ww(0) <> mi(0) And ww(1) <> mi(1) And ww(2) <> mi(2) And ww(3) <> mi(3) And ww(4) <> mi(4) And ww(5) <> mi(5) And ww(6) <> mi(6) And

for dd=0 to 11
ElseIf Form9.Option1(0) = True And Form9.Option2(1) = True Then
If ww(dd) <> mi(dd) And Form9.Check1(dd).Value Then MSFlexGrid1.RemoveItem i
End If
next
如dd分别等于0,1,2,3,4,5,6,7,8,9,10,11
If ww(0) <> mi(0) And ww(1) <> mi(1) And ww(2) <> mi(2) And ww(3) <> mi(3) And ww(4) <> mi(4) And ww(5) <> mi(5) And ww(6) <> mi(6) And ww(7) <> mi(7) And ww(8) <> mi(8) And ww(9) <> mi(9) And ww(10) <> mi(10) And ww(11) <> mi(11) And Form9.Check1(dd).Value Then MSFlexGrid1.RemoveItem i

把DD的值放进数组，然后用循环逐一对比每个元素的函数值
sub bijiao()

dim dd(n-1） 根据dd的数量定义数组大小
给数组 赋值

for x=0 to ubound(dd) 从0 开始到 dd 数组的 上标
if ww(dd（x）) = mi(dd（x）) then exit sub ‘只要相等就直接跳出

next x
MSFlexGrid1.RemoveItem i 如果全都不相等则删除 i
end sub

你的代码很乱，不好理解，只能根据我理解的意思给个答案了