Module Module1

​

​

    Sub Main()

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

        Dim prom As Double = 0

        Dim sum As Double = 0

        Dim c1 As Integer = 0

        Dim i, n, n1, m, m1, j 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()

        Console.Write(" Digite valores de 0 y 1 para crear la matriz: ")

        Console.WriteLine()

        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 primera 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()

        Console.Write(" Digite valores de 0 y 1 para crear la matriz: ")

        Console.WriteLine()

        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 segunda 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 (n = n1) And (m = m1) Then

            For i = 0 To n - 1 Step 1

                For j = 0 To m - 1 Step 1

                    If A(i, j) = 0 And B(i, j) = 0 Then

                        C(i, j) = 0

                    Else

​

​

                        C(i, j) = 1

                    End If

                Next

            Next

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

​

​

            For i = 0 To n - 1 Step 1

                For j = 0 To m1 - 1 Step 1

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

                Next

                Console.ReadLine()

            Next

            Console.ReadLine()

​

​

​

        Else

            Console.WriteLine("No se puede hacer la union de las dos matrices ")

        End If

        Console.ReadLine()

    End Sub

End Module

​