¿Qué es un vector?
Los vectores son una forma de almacenar datos que permiten contener una serie de valores del mismo tipo, cada uno de los valores contenidos tiene una posición asociada que se usará para accederlos. Está posición o índice será siempre un número entero positivo.
Este siguiente programa se encarga de encontrar los numeros pares e impares que se encuentran en los numeros que el usuario ingresará.
Se crea un formulario y en el se colocan cuatro botones quedando de la siguiente forma:
A continuación abrir el código y colocar las siguientes líneas al inicio del formulario (tiene que estar fuera del load del formulario):
- Código botón Leer Vector :
For i As Integer = 0 To 9
vector(i) = InputBox("Ingrese el Vector " & i)
Next
Éste código se encarga de solicitar al usuario el tamaño del vector y como siguiente se encarga de almacenar los valores de cada elemento del vector.
- Código botón Numero Vector :
For i As Integer = 0 To 9
If vector(i) Mod 2 = 0 Then
CP = CP + 1
End If
Next
MsgBox(" Hubieron " & CP & " Pares")
Éste Código funciona de manera que comprueba cada valor almacenado para ver si es par, de ser asi se almacena en un contador el número total de los numeros que resulten pares.
- Código botón Numero Impar :
For i As Integer = 0 To 9
If vector(i) Mod 2 = 1 Then
MsgBox("posicion Impar: " & i)
i = 9
End If
Next
Éste código se encarga de encontrar y almacenar la cantidad de números impares.
- Código botón Mayor :
For i As Integer = 1 To 9
If vector(i) > mayor Then
mayor = vector(i)
End If
Next
MsgBox("el Numero Mayor es: " & mayor)
Éste código compara todos los valores e imprimirá el valor más alto.
Esperamos les sea funcional el codigo, en todo caso aqui les dejamos el link del proyecto.
Como en el ejemplo anterior, este es una forma diferente de utilizar los vectores en visual studio, en el siguiente ejercicio se muestra de una forma muy sencilla de utilizar un vector.
Al ingresar al codigo se declaran las siguientes variables al inicio del formulario :
Dim numeros() As Integer
Dim tamano As Integer = -1
tamano = tamano + 1
ReDim Preserve
numeros(tamano)
numeros(tamano) = InputBox("Ingrese el
elemento")
Éste código se encarga de asignar el valor del vector.
- Código botón Tamaño :
MsgBox(" El vector tiene: "
& numeros.Length & " elementos")
Éste codigo se encarga de imprimir la cantidad de elementos en el vector, en este caso debe de ser = 1
- Código botón Imprimir :
For
i As Integer =
0 To numeros.Length - 1
MsgBox(numeros(i))
Next
Éste código se encarga de imprimir el valor del vector.
Link del proyecto :
No hay comentarios:
Publicar un comentario