Option Base 1
Sub drumul(a() As Double, b() As Double, c() As Double)
m = UBound(a, 1)
l = UBound(a, 2)
n = UBound(b, 2)
For i = 1 To m
For j = 1 To n
c(i, j) = 0
For k = 1 To l
c(i, j) = c(i, j) + a(i, k) * b(k, j)
Next k
Next j
Next i
End Sub
Private Sub Form_click()
Dim a(4, 2) As Double
Dim b(2, 3) As Double
Dim c(4, 3) As Double
a(1, 1) = 1
a(1, 2) = 2
a(2, 1) = 5
a(2, 2) = 3
a(3, 1) = 3
a(3, 2) = 1
a(4, 1) = 2
a(4, 2) = 2
b(1, 1) = -1
b(1, 2) = -2
b(1, 3) = 3
b(2, 1) = 1
b(2, 2) = 2
b(2, 3) = 1
Call drumul(a(), b(), c())
For i = 1 To m
For j = 1 To n
Me.Print c(i, j);
Next j
Me.Print
Next i
End Sub
|