Areglos En Viual Basic 2005 Net

Programación Digital

Página 1

1. Hacer una aplicación que solicite 5 valores al usuario y los almacene en un vector, imprima el vector.

Module Module1 Sub Main() Dim indice, vector(4) AsShort ' Aqui lleno el arreglo o vector For indice = 0 To 4 Step 1 Console.Write("Ingrese elemento [{0}] : ", indice) vector(indice) = Console.ReadLine() Next 'Aqui imprimo el vector For indice = 0 To 4Step 1 Console.WriteLine("Vector[{0}] : {1} ", indice, vector(indice)) Next Console.ReadLine() End Sub End Module

Ing. Jesús Molina Calizaya

Programación Digital

Página 2

2. Elaborar unaaplicación que permita el ingreso de un arreglo de 10 elementos y encuentre el valor y la posición del mayor elemento..
Module Module1 Sub Main() Dim indice, vector(9), maximo, posicion_maximo AsInteger maximo = 0 posicion_maximo = 0 ' Aqui lleno el arreglo o vector For indice = 0 To 9 Step 1 Console.Write("Ingrese elemento [{0}] : ", indice) vector(indice) = Console.ReadLine() Next 'Aqui recorroel arreglo buscando el mayor elemento y su posicion For indice = 0 To 9 Step 1 If (vector(indice) > maximo) Then maximo = vector(indice) posicion_maximo = indice End If Next 'Aqui imprimo elresultado Console.WriteLine("El mayor elemento es {0} y esta en la posición {1} ", maximo, posicion_maximo) Console.ReadLine() End Sub End Module

Ing. Jesús Molina Calizaya

Programación DigitalPágina 3

3. Usando el arreglo anterior escribir los elementos cuyos valores sean múltiplos de 3. 4. Hacer una aplicación que entre una serie de valores (dados por el usuario), los almacene en un vectory sume los elementos de las posiciones pares, lo mismo que las posiciones impares por separado. El vector tendrá tamaño 10.

5. Elaborar una aplicación que lea dos arreglos unidimensionales de igualtamaño y forme un tercer arreglo mediante el producto de los elementos de los dos arreglos, tomados en orden inverso, es decir, productos del primer elemento del primer arreglo, con el último del...