CleanFKBack
'备份数组
For m = 1 To 19
For n = 1 To 12
tem = (m - 1) * 12 + n
If n = 12 And ImageFKArray(tem) = 1 Then
Exit Sub
End If
If ImageFKArray(tem) = 1 Then
BackImageFKArray(tem + 1) = 1
End If
Next n
Next m
'清空当前数组
CleanFK
CleanFKBack
'备份数组
For m = 1 To 19
For n = 1 To 12
tem = (m - 1) * 12 + n
If n = 12 And ImageFKArray(tem) = 1 Then
Exit Sub
End If
If ImageFKArray(tem) = 1 Then
BackImageFKArray(tem + 1) = 1
End If
Next n
Next m
'清空当前数组
CleanFK