Next n
'没到最底行,但是不下面有方块了,不能再下移了
For m = 1 To 18
For n = 1 To 12
tem2 = m * 12 + n
tem = (m - 1) * 12 + n
If ImageFKArray(tem) = 1 And ImageBackFKArray(tem2) = 1 Then
test = 0
GoTo goback
End If
Next n
Next m
Next n
'没到最底行,但是不下面有方块了,不能再下移了
For m = 1 To 18
For n = 1 To 12
tem2 = m * 12 + n
tem = (m - 1) * 12 + n
If ImageFKArray(tem) = 1 And ImageBackFKArray(tem2) = 1 Then
test = 0
GoTo goback
End If
Next n
Next m