![]() |
#2
wube2011-06-07 19:52
|
Private Sub Form_Click()
Dim a(4, 4) As Integer, b(4, 4) As Integer, c(4, 4) As Integer, i%, j%
Print "A矩阵为"
For i = 1 To 4
For j = 1 To 4
a(i, j) = Int(Rnd * 30) + 10
b(i, j) = Int(Rnd * 30) + 10
Print a(i, j);
Next j
Print
Next i
Print
Print "B矩阵为"
For i = 1 To 4
For j = 1 To 4
b(i, j) = Int(Rnd * 30) + 10
Print b(i, j);
Next j
Print
Next i
Print
Print "C矩阵为"
For i = 1 To 4
For j = 1 To 4
c(i, j) = c(i, j) + a(i, j) * b(j, i)
Print c(i, j);
Next j
Print
Next i
End Sub