Matriz mágica de programación VB

n = Val(InputBox(""))

i = (n + 1) / 2

j = n

ReDim a(n, n)

Para k = 1 To n * n

a(i, j) = k

Si i = n Y j = n Entonces

j = j - 1

Si no

i = i + 1

j = j + 1

Si i = n + 1 entonces i = 1

Si j = n + 1 entonces j = 1

Fin si

Si a(i, j) < 0 entonces i = i - 1: j = j - 2

Siguiente k

Para i = 1 To n

Para j = 1 To n

Imprimir Tab(j * 5 - 4); a(i, j

Siguiente j

Imprimir

Siguiente i

Fin Sub