ضرب ماتریس ها

[immortalsoull]

سلام دوستان عزیز امیدوارم همیشه سالم باشید .
من دنبال عمل ضرب بر روی ماتریس ها بودم در VB6 کد جمع رو نوشتم براتون می زارم شاید انگیزه شد !

این یک ماتریس 7x11 است :

Option Base 1
Dim a(7,11) As Byte
Dim b(7,11) As Byte

Private Sub CmdFull_Click()
Dim i,j As Byte
For i = 1 to 7
For j = 1 To 11
a(i,j) = Int(Rnd * 90) + 10
b(i,j) = Int(Rnd * 90) + 10
Text1.Text = Text1.Text & a(i,j) & Space(5)
Text2.Text = Text2.Text & b(i,j) & Space(5)
Next j
Text1.Text = Text1.Text & VBNewLine
Text2.Text = Text2.Text & VBNewLine
Next i
End Sub

Private Sub CmdAdd_Click()
Dim i , j As Byte
For i = 1 To 7
For j = 1 To 11
Text3.Text = Text3.Text & a(i,j) + b(i,j) & Space(5)
Next j
Text3.Text = Text3.Text & VBNewLine
Next i
End Sub

ممنون می شوم دوستان در ضرب این ماتریس من را یاری کنید . خیلی ممنون :))