vb中二维数组的输出形式

二维数组的行列不确定，由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     9

Private 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
这是原来的程序，怎么改才能把输出的数字弄成以上形式，急求谢谢 --------------------编程问答-------------------- 来人啊

补充：VB ,  基础类