VB题目。请帮忙看一下，应该不难，但是我不会。我给20分。

我的代码少一点.呵呵
Option Base 1
Private Sub Form_Click()
Dim a%(4, 3), b%(3, 4)
Dim i%, j%
Cls
Randomize
For i = 1 To 4
For j = 1 To 3
a(i, j) = Int(Rnd * 90 + 10)
b(j, i) = a(i, j)
Print a(i, j);
Next j
Print
Next i
Print
For i = 1 To 3
For j = 1 To 4
Print b(i, j);
Next j
Print
Next i

End Sub

'我来试试~

Option Base 1

Private Sub Command1_Click()

Dim a(4, 3) As Integer
Dim b(3, 4) As Integer
Dim Num As Integer

For l1 = 1 To 3
For h1 = 1 To 4
Randomize
Num = (99 - 10 + 1) * Rnd + 10
a(h1, l1) = Num
Next h1
Next l1

For l2 = 1 To 4
For h2 = 1 To 3
b(h2, l2) = a(l2, h2)
Next h2
Next l2

For l1 = 1 To 3
For h1 = 1 To 4
Print " " & a(h1, l1);
If h1 = 4 Then Print Chr(10) & Chr(13)
Next h1
Next l1<