Imports System

​

Public Module Module1

​

    Public Sub Main()

        ' Realizar un algoritmo que diga si un numero se encuentra en una fila determinada de la matriz.

        ' Primero creamos la matriz, la llenamos y mostramos

        Dim a(100, 100), f, c, n, fila as Integer

        Dim contador = 0

        Console.Write("Digite el numero de filas de la matriz: ")

        f = Console.ReadLine()

        Console.Write("Digite el numero de columnas de la matriz: ")

        c = Console.ReadLine()

        ' Llenar la matriz

        Console.WriteLine("")

        For i = 0 To f - 1

            For j = 0 To c - 1

                Console.Write("Digite el valor de la matriz en la posicion " & i & "," & j & ": ")

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

            Next

        Next

​

        Console.WriteLine("")

        ' Mostrar la matriz

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

        For i = 0 To f - 1

            For j = 0 To c - 1

                Console.Write("a[" & i & "," & j & "]: " & a(i, j) & " ")

            Next

​

            Console.WriteLine("")

        Next

​

        Console.WriteLine("")

        ' Ejercicio

        Console.Write("Digite el numero que desea buscar: ")

        n = Console.ReadLine()

        Console.Write("Digite la fila en la que desea buscar: ")

        fila = Console.ReadLine()

        For i = 0 To c - 1

            If(a(fila, i) = n) Then

                contador = contador + 1

            End If

        Next

​

        If(contador > 0) Then

            Console.WriteLine("El numero " & n & " si se encuentra en la fila " & fila)

        Else

            Console.WriteLine("El numero " & n & " no se encuentra en la fila " & fila)

        End If

    End Sub

End Module

​