vb两个5行5列矩阵分别求和，积，用图片框显示

vb两个5行5列矩阵分别求和，积，用图片框显示

Private Sub Command1_Click()
Picture1.Cls
Dim a(1 To 4, 1 To 4) As Integer, b(1 To 4, 1 To 4) As Integer
For j = 1 To 4
For i = 1 To 4
a(j, i) = Int(Rnd * (9) + 1)
Picture1.Print a(j, i);
Next i
Picture1.Print
Next j

For j = 1 To 4
For i = 1 To 4
b(j, i) = Int(Rnd * (9) + 1)
Picture2.Print b(j, i);
Next i
Picture2.Print
Next j

For j = 1 To 4
For i = 1 To 4
Picture3.Print Format(a(j, i) + b(j, i), "00"); " ";
Next i
Picture3.Print
Next j

For j = 1 To 4
For i = 1 To 4
Picture4.Print Format(a(j, i) * b(i, j), "00"); " ";
Next i
Picture4.Print
Next j

End Sub

晕，写了半天都没有分。 private sub form_click() dim a(0 to 2, 0 to 5) as integer dim i, j as integer dim m as integer a(0, 0) = 12 a(0, 1) = 1 a(0, 2) = 5 a(0, 3) = 9 a(0, 4) = 10 a(0, 5) = 3 a(1, 0) = 4 a(1, 1) = 3 a(1, 2) = 6 a(1, 3) = 56 a(1, 4) = 21 a(1, 5) = 1 a(2, 0) = 2 a(2, 1) = 0 a(2, 2) = 7 a(2, 3) = 1 a(2, 4) = 3 a(2, 5) = 4 for j = 0 to 5 for i = 0 to 2 m = m + a(i, j) next next print m end sub