practica #12

Arreglos en VB .NET

ejercicio 1:

Crear una aplicación para almacenar en un arreglo 10 nombres y luego imprimir los nombres.

Código VB .NET:

Module Module1

    Sub Main()

        Console.WriteLine("Introduzca 10 nombres:")

        Dim nombre(9) As String

        For i = 0 To 9

            Dim n As String

            n = Console.ReadLine()

            nombre(i) = n

        Next

        Console.WriteLine()

        Console.WriteLine("El arreglo guardó los siguientes nombres")

        For i = 0 To 9

            Console.WriteLine(nombre(i))

        Next

        Console.ReadLine()

    End Sub

End Module

ejercicio 3:

Elaborar una aplicación para capturar números en dos arreglos 4x4 y luego mostrar la sumatoria de los arreglos.

Código VB .NET:

Module Module2
    Sub Main()
        Dim num(3, 3) As Integer
        Dim sum, sum1, total As Integer
        total = 0
        'Arreglo 1 --------------------------------------------
        Console.WriteLine("Introduzca los valores para el arreglo 1")
        For f = 0 To 3
            For c = 0 To 3
                Console.Write("(" & f & ", " & c & "): ")
                num(f, c) = Console.ReadLine()
            Next
        Next
        For f = 0 To 3
            For c = 0 To 3
                sum = sum + num(f, c)
            Next
        Next
        Console.Clear()

        'Arreglo 2 --------------------------------------------
        Console.WriteLine("Introduzca los valores para el arreglo 2")
        For f = 0 To 3
            For c = 0 To 3
                Console.Write("(" & f & ", " & c & "): ")
                num(f, c) = Console.ReadLine()
            Next
        Next
        For f = 0 To 3
            For c = 0 To 3
                sum1 = sum1 + num(f, c)
            Next
        Next
        Console.Clear()

        'Total de la sumatorias de los 2 arreglos ----------------
        total = sum + sum1
        Console.WriteLine("Sumatoria del primer arreglo: " & sum)
        Console.WriteLine("Sumatoria del segundo arreglo: " & sum1)
        Console.Write("El total de la suma de los arreglos es: " & sum & " + " & sum1 & " = " & total)
        Console.WriteLine()
        Console.ReadLine()
    End Sub
End Module

ejercicio 5:

Elaborar una aplicación para almacenar en un arreglo una cantidad de números enteros indicada por el usuario y luego imprimir cuantos de los números almacenados en el arreglo son pares y cuantos impares.

Código VB .NET:

Module Module3
    Sub Main()
        Dim k, pares, impar As Integer
        pares = 0
        impar = 0
        Console.WriteLine("Cantidad de números a ingresar:")
        k = Console.ReadLine()
        k = k - 1
        Console.WriteLine()
        Dim num(k) As Integer
        Console.WriteLine("Ingrese los números del arreglo:")
        For i = 0 To k
            Dim n As Integer
            n = Console.ReadLine()
            num(i) = n
        Next

        For i = 0 To k
            If num(i) Mod 2 = 0 Then
                pares = pares + 1
            Else
                impar = impar + 1
            End If
        Next
        Console.WriteLine()
        Console.WriteLine("Pares: " & pares)
        Console.WriteLine("Impares: " & impar)
        Console.ReadLine()

    End Sub
End Module

ejercicio 7:

Crear una aplicación para capturar una cantidad de nombres especificada por el usuario, luego mostrar la lista nombre ordenada ascendentemente.

Código VB .NET:

Module Module4
    Sub Main()
        Dim n As Integer
        Console.Write("Ingrese cantidad de nombres: ")
        n = Console.ReadLine()
        n = n - 1
        Dim nombre(n) As String
        For i = nombre.GetLowerBound(0) To nombre.GetUpperBound(0)
            Console.Write("Nombre: ")
            nombre(i) = Console.ReadLine()
        Next
        Console.WriteLine()
        Array.Sort(nombre)
        Console.WriteLine("Lista de nombres ordenada:")
        For i = nombre.GetLowerBound(0) To nombre.GetUpperBound(0)
            Console.WriteLine(nombre(i))
        Next
        Console.ReadLine()
    End Sub

End Module