Private Sub Command1_Click()
Dim arr(1 To 5, 1 To 5) As Integer
Dim i As Integer, j As Integer
For i = 1 To 5
    For j = 1 To 5
        arr(i, j) = i
    Next j
Next i
For i = 1 To 5
    For j = 1 To i
        Print arr(i, j);
    Next j
Print
Next i
End Sub

a.

1
22
333
4444
55555
b. (without the empty line)
1
22
333
4444
55555
c.
1
12
123
1234
12345
d. Syntax error