Question

一道简单的VB程序填空题，求高手赐教·～～

Option Base 1
Private Sub Command1_Click()
Dim a,B(3,3)
a=Array(1,2,3,4,5,6,7,8,9)
For i=1 To 3
For j=1 To 3
B(i,j)=a(i*j)
If(j＞=i) Then Print Tab(j*3);format(B(i,j),“###”);
Next j
Print
Next I
End Sub
输出结果是( )

最好要有简单的介绍，谢谢了。

Answer 1

1 2 3
4 6
9

我先看看这段代码~

Answer 2

2 3 4
5 7

接下来就是，事实错误
第6行，下表越界