<%
dim a, b, p
    a = 1: b = Int(n / 2 + 0.5)
        
   For P = 2 To n * n
        If a - 1 < 1 And b + 1 > n Then
            a = a + 1: b = b
        ElseIf a - 1 < 1 And b + 1 <= n Then
            a = n: b = b + 1
        ElseIf a - 1 >= 1 And b + 1 > n Then
            a = a - 1: b = 1
        ElseIf a - 1 >= 1 And b + 1 <= n Then
            a = a - 1: b = b + 1
        End If
        
        If Mabang(a, b) <> "" Then
            a = a + 2: b = b - 1
        End If
        
        Mabang(a, b) = P
        
    Next
%>


틀린부분 있으면 고쳐주시고 3,4,5차는 어떻게 변경 해야 하나요??