basic编程打印N x N的数字方阵。由M＝N^2个1，2，3，……，M连续自然数转圈组成

Dim N As Integer, i As Integer, R() As Integer, t As Integer, j As Integer
N = InputBox("请输入N的值：")
ReDim R(1 To N)
For i = 1 To N
R(i) = i
Next i
For i = 1 To N
For j = 1 To N
Print R(j);
Next j
Print
t = R(1)
For j = 1 To N - 1
R(j) = R(j + 1)
Next j
R(N) = t
Next i

旋转矩阵吧。
DIM a(100, 100)
INPUT m
x = 1: y = 1: i = 1
DO
FOR j = x TO m - x + 1
a(j, y) = i
i = i + 1
NEXT
x = m - x + 1
FOR j = y + 1 TO m - y + 1
a(x, j) = i
i = i + 1
NEXT
y = m - y + 1
FOR j = x - 1 TO m - x + 1 STEP -1
a(j, y) = i
i = i + 1
NEXT
x = m - x + 1
FOR j = y - 1 TO m - y + 2 STEP -1
a(x