Imports System

Public Module Module1

Sub Main()

Dim A(10, 10), B(10, 10), R(10, 10) As Integer

​

Dim i, n, n1, m, m1, j, k, prod As Integer

​

Console.Write(" Digite cantidad de filas de la primera matriz: ")

n = Console.ReadLine()

Console.Write(" Digite cantidad de columnas de la primera matriz: ")

m = Console.ReadLine()

For i = 0 To n - 1 Step 1

For j = 0 To m - 1 Step 1

Console.Write(" A[" & i & "," & j & " ]=")

A(i, j) = Console.ReadLine()

Next

Next

Console.ReadLine()

Console.WriteLine("La matriz creada es: ")

​

For i = 0 To n - 1 Step 1

For j = 0 To m - 1 Step 1

Console.Write(A(i, j) & " ")

Next

Console.ReadLine()

Next

Console.ReadLine()

Console.Write(" Digite cantidad de filas de la segunda matriz: ")

n1 = Console.ReadLine()

Console.Write(" Digite cantidad de columnas de la segunda matriz: ")

m1 = Console.ReadLine()

For i = 0 To n1 - 1 Step 1

For j = 0 To m1 - 1 Step 1

Console.Write(" B[" & i & "," & j & " ]=")

B(i, j) = Console.ReadLine()

Next

Next

Console.ReadLine()

Console.WriteLine("La matriz creada es: ")

​

For i = 0 To n1 - 1 Step 1

For j = 0 To m1 - 1 Step 1

Console.Write(B(i, j) & " ")

Next

Console.ReadLine()

Next

Console.ReadLine()

If (m = n1) Then

For i = 0 To n - 1 Step 1

For j = 0 To m1 - 1 Step 1

For k = 0 To m Step 1

prod = A(i, k) * B(k, j) + prod

Next

R(i, j) = prod

prod = 0

Next

Next

Console.ReadLine()

Console.WriteLine("La matriz resultante es: ")

​

For i = 0 To n - 1 Step 1

For j = 0 To m1 - 1 Step 1

Console.Write(R(i, j) & " ")

Next

Console.ReadLine()

Next

Console.ReadLine()

Else

Console.WriteLine("No tienen la misma longitud, no se pueden multiplicar ")

End If

Console.ReadLine()

End Sub

​

End Module

​