寻求高手最一道简单的VB题

2
3 3 3
5 5 5 5 5
8 8 8 8 8 8 8
13 13 13 13 13 13 13 13 13
谢谢了啊
----------2
------- 3 3 3
------5 5 5 5 5
----8 8 8 8 8 8 8
--9个13

呵呵`~~我顺序排不好所以写了前面的------这个不用打出来
希望高手给我解决下谢谢了
注意：用完整的VB语言写出来

Sub xians(n)

Dim sz1
ReDim sz1(n)
sz1(1) = 1
sz1(2) = 2
For i = 3 To n
sz1(i) = sz1(i - 2) + sz1(i - 1)
Next i
Dim j
j = n
For i = 1 To n

s = ""
For m = 1 To 2 * i - 1
s = s & " " & sz1(i)
Next m
Print Space(2 * j - 1) & s
j = j - 1
Next i
End Sub

5=3+2
8=5+3
13=8+5

第N排输出2N-1个数

int a[5]=new int[];
a[0]=2;
a[1]=3;
for (int i=2;i<a.length;i++)
{
a[i]=a[i-1]+a[i-2];
}
for (int j=1;j<=a.length;j++)
{
for (int k=1;k<=j;k++)
{
System.out.print(a[j]+" ");
}
System.out.println();
}

VB不怎么会,你自己看着改把

上面的同志没有一个写对的啊！！！~~
麻烦你们认真对待啊~``

做之前先把宽调到6000以上,高调到3000,窗口最底部画个Command1然后就可以看到效果了.