VECTORES.
En Matemáticas se define un
vector como un elemento de un espacio vectorial, esta noción es más abstracta y
para muchos espacios vectoriales no es posible representar sus vectores
mediante el módulo, la longitud y la orientación (ver espacio vectorial). En particular los espacios de dimensión infinita sin producto escalar no son representables de ese modo.
Un vector es aquel que cambia su tamaño según se necesite en
tiempo de ejecución. En este ejercicio se plantea las formas básicas de un vector.
Se realizó un proyecto de vectores en el cual consiste que
se puedan agregar datos, imprimir los datos, cual es par, que posición ocupa el
mismo.
Primer formulario.
Otro formulario se caracteriza porque se puede agregar
datos, imprime el tamaño de los vectores, e imprime los elementos en sí.
Segundo formulario.
El primer formulario tiene funciones que hacen que el vector
almacene un total de 10 elementos declarando un índice que va del 0 al 9.
Private
Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
For I As Integer = 0 To 9
numeros(I) = InputBox("dame
un numero")
Next
End Sub
Permite al usuario ingresar los datos de forma manual,
pidiendo un número total de 10 elementos, con un índice del 0 al 9.
Private
Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
For I As Integer = 0 To 9
If
numeros(I) Mod 2 = 0 Then
CP = CP + 1
End
If
Next
MsgBox("hay
" & CP & " Pares")
End Sub
Por medio de un ciclo for se detecta los valores que son
pares y los van sumando para posteriormente imprimirlos en pantalla.
Private
Sub Button3_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button3.Click
Dim
mayor As Integer
mayor = numeros(0)
For I As Integer = 1 To 9
If
numeros(I) > mayor Then
mayor = numeros(I)
End
If
Next
MsgBox("
el mayor es " & mayor)
End Sub
Busca el elemento más grande por medio de un ciclo for
Private
Sub Button4_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button4.Click
For I As Integer = 0 To 9
If numeros(I) Mod 2 = 1 Then
MsgBox(" la posicion del primer impar
es " & I)
I = 9
End
If
Next
End Sub
Busca de entre la lista el primer número impar que se
ingresó por medio de un ciclo for y un if
El siguiente formulario tiene la función de agregar y
modificar el tamaño del vector
Iniciamos el formulario declarando el vector y el tamaño del
vector como publicas
En el botón de agregar se pone el código para aumentar el
tamaño del vector a 1
Private
Sub btnAgregar_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btnAgregar.Click
tamano = tamano + 1
ReDim Preserve numeros(tamano)
' sirve para conservar los datos qu se tenian antes
de cambiarle el tamaño del vector
numeros(tamano) = InputBox("deme un
elemento")
End Sub
En el botón de tamaño cuenta todos los elementos para poder
hallar el tamaño del vector
Private Sub btnTamaño_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles btnTamaño.Click
MsgBox(" el vector
tiene " & numeros.Length
& " elementos") ' length sirve para decir la longuitud del vector
End Sub
El botón de imprimir vector se utiliza el siguiente código
Private
Sub BtnImprimir_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
BtnImprimir.Click
For i As Integer = 0 To numeros.Length - 1
MsgBox(numeros(i))
Next
End Sub
Public
Class Form1
Dim
numeros(9) As Integer
Dim CP As Integer = 0
Private Sub Form1_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
For I As Integer = 0 To 9
numeros(I) = InputBox("dame
un numero")
Next
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
For I As Integer = 0 To 9
If
numeros(I) Mod 2 = 0 Then
CP = CP + 1
End
If
Next
MsgBox("hay
" & CP & " Pares")
End Sub
Private Sub Button3_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button3.Click
Dim
mayor As Integer
mayor = numeros(0)
For I As Integer = 1 To 9
If
numeros(I) > mayor Then
mayor = numeros(I)
End
If
Next
MsgBox("
el mayor es " & mayor)
End Sub
Private Sub Button4_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button4.Click
For I As Integer = 0 To 9
If numeros(I) Mod 2 = 1 Then
MsgBox(" la posicion del primer impar
es " & I)
I = 9
End
If
Next
End Sub
Private Sub Button5_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button5.Click
Me.Close()
End Sub
End
Class
Public
Class Form2
Dim
numeros() As Integer
Dim tamano As Integer = -1
Private Sub btnAgregar_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btnAgregar.Click
tamano = tamano + 1
ReDim Preserve
numeros(tamano) ' sirve para conservar los datos qu
se tenian antes de cambiarle el tamaño del vector
numeros(tamano) = InputBox("deme un
elemento")
End Sub
Private Sub btnTamaño_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btnTamaño.Click
MsgBox(" el vector
tiene " & numeros.Length
& " elementos") ' length sirve para decir la longuitud del vector
End Sub
Private Sub BtnImprimir_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
BtnImprimir.Click
For i As Integer = 0 To numeros.Length - 1
MsgBox(numeros(i))
Next
End Sub
Private Sub Form2_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Me.Hide()
Form1.Show()
End Sub
End Class
No hay comentarios:
Publicar un comentario