GUIA PRACTICA #11

 

ARREGLOS EN VISUAL BASIC .NET

 

Objetivos:

• Identificar la sintaxis para declarar arreglos.

• Diseñar aplicaciones utilizando arreglos.

1. Crear una aplicación para capturar el nombre de 10 personas y luego mostrarlos ordenados y en letras mayúsculas.

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

-------------------------------------------------------------------------------------------------------------
Module Module2
    Sub Main()
        Dim n1(3, 3) As Integer
        Dim n2(3, 3) As Integer
        Dim n3(3, 3) As Integer
        For f = 0 To 3
            For c = 0 To 3
                Console.Write("Datos Primer Matriz: ")
                n1(f, c) = Console.ReadLine
            Next
        Next
        For f = 0 To 3
            For c = 0 To 3
                Console.Write("Datos Segunda Matriz: ")
                n2(f, c) = Console.ReadLine
            Next
        Next
        For f = 0 To 3
            For c = 0 To 3
                n3(f, c) = n1(f, c) + n2(f, c)
            Next
        Next
        Console.WriteLine("Sumatoria de Matrices: ")
        Console.WriteLine()
        For f = 0 To n3.GetUpperBound(0)
            For c = 0 To n3.GetUpperBound(1)
                Console.Write(n3(f, c) & " ")
            Next
            Console.WriteLine()
        Next
        Console.ReadLine()
    End Sub
End Module
-----------------------------------------------------------------------------------------------------

3. 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.

-----------------------------------------------------------------------------------------------------------
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

    End Sub

End Module
------------------------------------------------------------------------------------------------------