vb 多重循环 求救急

来源：百度知道 编辑：UC知道 时间：2024/05/25 01:14:51
怎样做
* 3 6 9
15
16
17
18
打印上面乘积表？？
谁可以帮帮忙！
谢谢拉！

Private Sub Form_Click()
Dim a(2) As Integer
Dim b(3) As Integer

Print Tab(2); "*";

For i = 0 To 2
a(i) = 3 * (i + 1)
Print Tab(6 * (i + 1)); a(i);
Next i
Print
For i = 0 To 3
b(i) = 15 + i
Print b(i);
For j = 0 To 2
Print Tab(6 * (j + 1)); a(j) * b(i);
Next j
Print
Next i

End Sub