ARREGLOS EN VB .NET
Indicaciones: en Visual Studio crear un proyecto de tipo Aplicación de Consola y crear un
módulo con un procedimiento principal por cada uno de los siguientes ejercicios.
1. Crear una aplicación para capturar el nombre de 10 personas y luego mostrarlos
ordenados y en letras mayúsculas.
Sub Main()
Dim nombres(9) As String
For n = 0 To 9
Console.WriteLine("Coloque el Nombre " & n + 1 & ":")
nombres(n) = Console.ReadLine.ToUpper()
Console.WriteLine()
Next
Console.Clear()
Console.WriteLine()
Array.Sort(nombres)
For n = 0 To 9
Console.WriteLine(nombres(n))
Next
Console.ReadLine()
End Sub
3. Elaborar una aplicación para capturar números en dos arreglos 4 x 4 y luego mostrar la
sumatoria de los arreglos.
Sub Main()
Dim num(4, 4) As Integer
Dim s, s1, total As Integer
Console.WriteLine("Colocar los valores para el arreglo 1: ")
For f = 1 To 4
For c = 1 To 4
Console.Write("(" & f & ", " & c & "): ")
num(f, c) = Console.ReadLine()
Next
Next
For f = 1 To 4
For c = 1 To 4
s = s + num(f, c)
Next
Next
Console.Clear()
Console.WriteLine("Coloque los valores para el arreglo 2")
For f = 1 To 4
For c = 1 To 4
Console.Write("(" & f & ", " & c & "): ")
num(f, c) = Console.ReadLine()
Next
Next
For f = 1 To 4
For c = 1 To 4
s1 = s1 + num(f, c)
Next
Next
Console.Clear()
total = s + s1
Console.WriteLine("La Sumatoria del arreglo 1: " & s)
Console.WriteLine("La Sumatoria del arreglo 2: " & s1)
Console.Write("El total de la suma de los arreglos es de: " & total)
Console.ReadLine()
End Sub
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.
Sub Main()
Dim a, par, impar As Integer
Console.WriteLine("Cuantos numeros desea ingresar: ")
a = Console.ReadLine()
a = a - 1
Console.WriteLine()
Dim num(a) As Integer
Console.WriteLine("Cuales son :")
For s = 0 To a
Dim n As Integer
n = Console.ReadLine()
num(s) = n
Next
For s = 0 To a
If num(s) Mod 2 = 0 Then
par = par + 1
Else
impar = impar + 1
End If
Next
Console.WriteLine()
Console.WriteLine("El total de Pares es de: " & par)
Console.WriteLine("El total de Impares es de: " & impar)
Console.ReadLine()
End Sub
7. Elaborar una aplicación para almacenar en un arreglo 5 x 5 números aleatorios entre 1
y 100 sin que se repita ningún número en el arreglo.
Sub Main()
Dim n(5, 5), s As Integer
Dim r As New Random
Randomize()
For i = 1 To 5
For h = 1 To 5
s = r.Next(1, 100)
n(i, h) = s
Next
Next
For c = 1 To 5
For w = 1 To 5
Console.WriteLine(n(c, w) & vbTab)
Next
Console.WriteLine()
Next
Console.ReadLine()
End Sub
Conclusión: en esta parte de los ARREGLOS EN VB .NET nos ayudan cuando es necesario almacenar más de una variable del mismo tipo. Se pueden utilizar de muchas maneras como hacer listas o para organizar datos. El uso de arreglos puede ayudar a disminuir el número de variables y poder resolver los ejercicios de esta parte.
No hay comentarios:
Publicar un comentario