Question

VB请教下三角显示

Dim a%(3, 3)
Private Sub Command1_Click()
Randomize
For i = 0 To 3
For j = 0 To i
a(i, j) = Int(Rnd * 101 + 1)
Picture1.Print Tab(j * 4); a(i, j);
Next j
Picture1.Print
Next i
End Sub
为什么没法显示出一个4行4列的下三角呢。哪里错了

Answer 1

Dim a%(3, 3)
Private Sub Command1_Click()
Randomize
For i = 0 To 3
For j = 0 To i
a(i, j) = Int(Rnd * 101 + 1)
Picture1.Print Tab(j * 5); a(i, j);
Next j
Picture1.Print
Next i
End Sub