谁有这道QB题的源程序？？？

来源：百度知道 编辑：UC知道 时间：2024/06/02 04:35:39
n=5时
1 3 4 10 11
2 5 9 12 19
6 8 13 18 20
7 14 17 21 24
15 16 22 23 25
源程序正确，将给予一定积分！！！！！
希望各位编程高手助小弟一臂之力！！！！

程序代码：
CLS
INPUT "please input n:", n
k = 1
DIM a(n, n)
FOR i = 1 TO n * 2
IF i <= n THEN
FOR j = 1 TO i
IF i MOD 2 = 0 THEN x = i - j + 1 ELSE x = j
y = i + 1 - x
a(x, y) = k
k = k + 1
NEXT
ELSE
FOR j = 1 TO 2 * n - i
IF i MOD 2 = 0 THEN
IF j > 1 THEN x = x - 1
ELSE
x = x + 1
END IF
y = i - x + 1
a(x, y) = k
k = k + 1
NEXT
END IF
NEXT

FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j),
NEXT
PRINT
NEXT
END