下面是我的算法

可以把中心点看成原点建立坐标系，观察整数坐标的点，比如坐标是(x,y)，分别取x和y的绝对值，两个数选出最大值，再加上1，就是这个点应该填的数字

n = Val(InputBox("请输入n"))
k = 2 * n - 1
ReDim a(1 To k, 1 To k)
For j = 1 To k
For i = 1 To k
If Abs(i - n) + 1 >= Abs(j - n) + 1 Then
a(i, j) = Abs(i - n) + 1
Else
a(i, j) = Abs(j - n) + 1
End If
Print a(i, j);
Next
Print
Next

n = Val(InputBox("请输入n"))
ReDim a(1 - n To n - 1, 1 - n To n - 1)
For j = 1 - n To n - 1
For i = 1 - n To n - 1
If Abs(i) >= Abs(j) Then
a(i, j) = Abs(i) + 1
Else
a(i, j) = Abs(j) + 1
End If
Print a(i, j);
Next
Print
Next