Imports System
Public Class Program
Public Const COLS1 As Integer = 3
Public Const COLS2 As Integer = 2
Public Shared Sub Main(ByVal args As String())
Dim matrix1 As Integer()() = New Integer()() {
New Integer() {4, 2, 4},
New Integer() {8, 3, 1}}
Dim matrix2 As Integer()() = New Integer()() {
New Integer() {3, 5},
New Integer() {2, 8},
New Integer() {7, 9}}
Dim mul As Integer()() = New Integer()() {
New Integer() {0, 0},
New Integer() {0, 0}}
Dim rows1 As Integer = matrix1.Length
Dim cols2 As Integer = matrix2(0).Length
For i As Integer = 0 To rows1 - 1
For j As Integer = 0 To cols2 - 1
For k As Integer = 0 To COLS1 - 1
mul(i)(j) += matrix1(i)(k) * matrix2(k)(j)
Console.Write("mul[" & i)
Console.Write("][" & j)
Console.Write("] += m1[" & i)
Console.Write("][" & k)
Console.Write("] * m2[" & k)
Console.Write("][" & j & "]" & Environment.NewLine)
Next
Console.Write(Environment.NewLine)
Next
Next
For i As Integer = 0 To COLS2 - 1
For j As Integer = 0 To COLS2 - 1
Console.Write(mul(i)(j) & " ")
Next
Console.Write(Environment.NewLine)
Next
End Sub
End Class
' run:
'
' mul[0][0] += m1[0][0] * m2[0][0]
' mul[0][0] += m1[0][1] * m2[1][0]
' mul[0][0] += m1[0][2] * m2[2][0]
' mul[0][1] += m1[0][0] * m2[0][1]
' mul[0][1] += m1[0][1] * m2[1][1]
' mul[0][1] += m1[0][2] * m2[2][1]
' mul[1][0] += m1[1][0] * m2[0][0]
' mul[1][0] += m1[1][1] * m2[1][0]
' mul[1][0] += m1[1][2] * m2[2][0]
' mul[1][1] += m1[1][0] * m2[0][1]
' mul[1][1] += m1[1][1] * m2[1][1]
' mul[1][1] += m1[1][2] * m2[2][1]
' 44 72
' 37 73
