VB 编写 6行6列矩阵，并转置，用图片框显示

Dim a(1 To 6, 1 To 6) As Integer
Private Sub Command1_Click()
Randomize
For j = 1 To 6
For i = 1 To 6
a(j, i) = Int(Rnd * (10) + 1)
Picture1.Print Format(a(j, i), "00"); " ";
Next i
Picture1.Print
Next j
End Sub
Private Sub Command2_Click()
For j = 1 To 6
For i = 1 To 6
Picture2.Print Format(a(i, j), "00"); " ";
Next i
Picture2.Print
Next j
End Sub

'例子需控件：Command1、Picture1、Picture2
Dim Zu() As String
Private Sub Form_Load()
'初始化6行6列矩阵
Dim I As Long, J As Long
ReDim Zu(1 To 6, 1 To 6)
For I = 1 To 6
For J = 1 To 6
Randomize
Zu(I, J) = 1 + Int(Rnd * 9) 'I & "-" & J
Next
Next
Command1.Caption = "显示"
End Sub

Private Sub Command1_Click()
Dim I As Long, J As Long, JL As Single