要求是用一个inputbox输入，然后生成输入数字的2x2矩阵如图，每一层比内层小1
做的很没头绪求助一下

思路：单看矩阵的左上1/4部分，可以看到，每个数都是所在位置的行号和列号的最小值，比如第3行第2列的数就是2，这样就可以填出这部分的数；将这部分翻转，就可以得到其他部分
代码如下：
dim a() as integer
n=val(inputbox("输入矩阵阶数"))
redim a(1 to n,1 to n)
for i=1 to (n+1)\2
for j=1 to (n+1)\2
if i<j then m=i else m=j
a(i,j)=m
a(i,n+1-j)=m
a(n+1-i,j)=m
a(n+1-i,n+1-j)=m
next j
next i
for i=1 to n
for j=1 to n
?a(i,j);
next j
?
next i