Imports System

Public Module Module1

    Public Sub Main()

        Dim f1, c1, f2, c2 As integer  

        Dim i, j, k As integer

        Dim cont, suma As integer

        f1 = console.readline()

        c1 = console.ReadLine()

        f2 = console.readline()

        c2 = console.readline()

        Dim m(f1,c1) As integer

        Dim m2(f2,c2) As integer

        cont = 1

        For i = 0 to f1 - 1

            For j = 0 to c1 - 1

            m(i,j) = cont

        cont = cont + 1 

            next

        next 

​

        cont = 1

        For i = 0 to f2 - 1

            For j = 0 to c2 - 1

            m2(i,j) = cont

        cont = cont + 1 

            next

        next 

​

    If f1 = f2 and c1 = c2

        Dim mr(f1,c1) As integer

        For i = 0 to f2 - 1

            For j = 0 to c2 - 1

                mr(i,j) = m(i,j) + m2(i,j)

                    Console.write(mr(i,j) & " ")

            next

                        Console.readline()

        next

​

        For i = 0 to f2 - 1

            For j = 0 to c2 - 1

                mr(i,j) = m(i,j) - m2(i,j)

                    Console.write(mr(i,j) & " ")

            next

                        Console.readline()

        next

​

            else console.WriteLine("No se cumplen los criterios para sumar o restar")

    End if

​

        If c1 = f2

            Dim mr(f1,c2) As integer

            For i = 0 To f1 - 1

                For k = 0 To c2 - 1

                    For j = 0 To c1 - 1

                        Suma = Suma + m(i, j) * m2(j, k)

                    Next

                    mr(i, k) = Suma

                    Suma = 0

                Next

            Next

        For i = 0 to f1 - 1 

            For j = 0 to c2 -1 

                Console.write(mr(i,j) & " ")

            next 

                    Console.writeline()

        next

            else console.writeline("No se cumplen los criterios para multiplicar la matriz")

​

    End if

    End Sub

End Module