请教一个用vb输出5*10矩阵的问题，元素全为0

Private Sub Command1_Click()
Dim T(6, 11) As Single
Dim j As Integer, k As Integer
For j = 0 To 6
For k = 0 To 11
T(j, k) = 0
Next k
Next j
For j = 0 To 6
For k = 0 To 11
Print T(j, k); '添一个分号就行了
Next k
Print
Next j
End Sub

Private Sub Command1_Click()
Dim T(4, 9) As Single
Dim j As Integer, k As Integer
For j = 0 To 4
For k = 0 To 9
Print T(j, k);
Next k
Print
Next j

Option Explicit

Private Sub Form_Click()
Dim i, j As Integer
Dim a(4, 9) As Integer
For i = 0 To 4
For j = 0 To 9
a(i, j) = 0
If (j + 1) Mod 10 = 0 Then
Print a(i, j)
Else
Print a(i, j);
End If
Next j
Next i
End Sub