Practica 12

Guía práctica # 12:

ARREGLOS EN VISUAL BASIC .NET 

 Objetivos:

 Identificar la sintaxis para declarar arreglos.                                                                                                            Diseñar aplicaciones utilizando arreglos. 

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

Module Module1

Sub Main()

Dim nombres(9) As String

Console.WriteLine("Ingrese el nombre de 10 personas:")

For i = 0 To 9

Dim n As String

n = Console.ReadLine

nombres(i) = n

Next

Console.WriteLine()

Console.WriteLine("Los nombres son: ")

For i = 0 To 9

Console.WriteLine(nombres(i))

Next

Console.ReadLine()

End Sub

End Module

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

Console.WriteLine("Arreglo 1:")

Dim n(3, 3) As Integer

Dim sum1, sum2, total As Integer

For f = 0 To 3

For c = 0 To 3

Console.WriteLine("Valor para: (" & f & ", " & c & ")")

n(f, c) = Console.ReadLine()

Next

Next

For f = 0 To 3

For c = 0 To 3

sum1 = sum1 + n(f, c)

Next

Next

Console.WriteLine()

Console.WriteLine("La suma del primer arreglo es: " & sum1)

Console.ReadLine()

Console.Clear()

Console.WriteLine("Arreglo 2: ")

Dim d(3, 3) As Integer

For s = 0 To 3

For p = 0 To 3

Console.WriteLine("Valor para: (" & s & ", " & p & ")")

d(s, p) = Console.ReadLine()

Next

Next

For s = 0 To 3

For p = 0 To 3

sum2 = sum2 + n(s, p)

Next

Next

Console.WriteLine()

Console.WriteLine("La suma del segundo arreglo es: " & sum2)

Console.ReadLine()

Console.Clear()

total = sum1 + sum2

Console.WriteLine("La suma de los arreglos es: " & sum1 & " + " & sum2 & " = " & total)

Console.ReadLine()

End Sub

End Module

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. 

Module Module3

Sub main()

Dim t, pares, impares As Integer

Console.WriteLine("Ingrese la cantidad de numeros a usar: ")

t = Console.ReadLine()

t = t - 1

Dim num(t) As Integer

Console.WriteLine()

Console.WriteLine("Ingrese los numeros de su arreglo: ")

For i = 0 To t

Dim n As Integer

n = Console.ReadLine

num(i) = n

Next

For i = 0 To t

If num(i) Mod 2 = 0 Then

pares = pares + 1

Else

impares = impares + 1

End If

Next

Console.WriteLine()

Console.WriteLine("Los numeros pares son en total: " & pares)

Console.WriteLine("Los numeros impares son en total: " & impares)

Console.ReadLine()

End Sub

End Module

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

Module Module4

Sub main()

Dim t As Integer

Console.WriteLine("Ingrese la cantidad de nombres a usar: ")

t = Console.ReadLine()

t = t - 1

Console.WriteLine()

Dim nom(t) As String

For i = nom.GetLowerBound(0) To nom.GetUpperBound(0)

Console.Write("ingrese uno de los nombres: ")

nom(i) = Console.ReadLine()

Next

Array.Sort(nom)

Console.WriteLine()

Console.WriteLine("Nombres ordenados: ")

For i = nom.GetLowerBound(0) To nom.GetUpperBound(0)

Console.WriteLine(nom(i))

Next

Console.ReadLine()

End Sub

End Module

Descargar Proyecto