vb，用循环写一个数据排列

上三角部分写出来没有问题，下三角部分不会写，写出来总是顶格排列

for i = 0 to 4
for j = i to 2 * i
picturebox1.print j,
next j
picturebox1.print ""
next i

For i = 1 To 3 用于比较的第一个数在数组中的那就是顺序
For j = i To 2 用于比较的第二个数在数组中的顺序，不过前面的比较了就不用重复比较了。
If x(i) < x(j + 1) Then 假如第1个小于第2个数时
t = x(i)
x(i) = x(j + 1)
x(j + 1) = t
End If
Next j
Next i