퍼즐 움직이기 소스 질문입니다.

대충은 아는대 이걸 완벽하게 이해를 못하겠습니다.

For i = 0 To 8
kang(i) = 0
Next

Select Case kong
Case 0
For j = 2 To 8
If j 3 Then
kang(j) = 1
End If
Next

Case 1
For j = 0 To 8
If j kong And j kong - 1 And j kong + 1 And j kong + 3 Then
kang(j) = 1
End If
Next

Case 2
For j = 0 To 8
If j kong And j kong - 1 And j kong + 3 Then
kang(j) = 1
End If
Next
Case 3
For j = 0 To 8
If j kong And j kong - 3 And j kong + 3 And j kong + 1 Then
kang(j) = 1
End If
Next

Case 4
For j = 0 To 8
If j kong And j kong - 3 And j kong + 3 And j kong + 1 And j kong - 1 Then
kang(j) = 1
End If
Next

Case 5
For j = 0 To 8
If j kong And j (kong - 3) And j (kong + 3) And j (kong - 1) Then
kang(j) = 1
End If
Next
Case 6
For j = 0 To 8
If j kong And j kong - 3 And j kong + 1 Then
kang(j) = 1
End If
Next
Case 7
For j = 0 To 8
If j kong And j kong - 3 And j kong - 1 And j kong + 1 Then
kang(j) = 1
End If
Next
Case 8
For j = 0 To 8
If j kong And j kong - 1 And j kong - 3 Then
kang(j) = 1
End If

Next

End Select