For n = 1 To 11
tem = (m - 1) * 12 + n
If ImageBackFKArray(tem) = 1 And ImageFKArray(tem + 1) = 1 Then
Exit Sub
End If
Next n
Next m
'清除备份数组
CleanFKBack
'备份数组
For m = 1 To 19
For n = 1 To 12
tem = (m - 1) * 12 + n
If (n - 1) = 0 And ImageFKArray(tem) = 1 Then