二维数组的行列不确定,由inputbox给出,输出的时候是下面两种形式,一种S行,一种回旋型
1  10  11  20  21              1     2      3     4      5  
2  9   12  19  22             16    17     18    19     6
3  8   13  18  23             15    24     25    20     7
4  7   14  17  24              14    23     22    21     8                              
5  6   15  16  25              13    12     11    10     9Private Sub Command1_Click()
Dim a, b, x()
a = Val(InputBox("输入行数:"))
b = Val(InputBox("输入列数:"))
ReDim x(a, b)
For i = 1 To a
For j = 1 To b
x(i, j) = (i - 1) * b + j
Print x(i, j);
Next
Print
Next
End Sub
这是原来的程序,怎么改才能把输出的数字弄成以上形式,急求谢谢