请老师帮忙优化
Private Sub Command20_Click()
For ii = 0 To Form9.List1.ListCount - 1
str = Form9.List1.List(ii)
sz = Split(str, ",")
st = sz(0)
Form9.List1.ListIndex = ii
si(0) = ....
si(1) = ....
si(2) = ....
si(3) = ....
si(4) = ....
si(5) = ....
si(6) = ....
......
.......
si(36) = ...
If Form9.Check1(0).Value = 1 Then mi(0) = si(7)
If Form9.Check1(1).Value = 1 Then mi(1) = si(8)
........
........
If Form9.Check1(36).Value = 1 Then mi(36) = si(40)
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
si(3) = ....
si(4) = ....
ww(10) = si(1)
ww(11) = si(0)
ww(0) = ....
............
............
ww(36) = ....
If Form9.Option1(2) = True And Form9.Option2(1) = True Then
fff = False
For dd = 0 To 36
For j = dd + 1 To 36
For n = j + 1 To 36
If Form9.Check1(dd).Value = 1 And Form9.Check1(j).Value = 1 And Form9.Check1(n).Value = 1 Then
d = ww(dd) <> mi(dd)
c = ww(j) <> mi(j)
k = ww(n) <> mi(n)
b = Not (d Or c Or k)
If b And Form9.Check1(dd).Value Then fff = True
End If
Next
Next
Next
If fff = False Then
MSFlexGrid1.RemoveItem i
End If
End If
Next
Next
End If
End Sub
加起来一共5个大循环,运算起来超过40秒,该怎么能减少循环优化