Ejerciciosdevectoresoarrays 131123100612 Phpapp01

Vectores o Arrays(Arreglos)

¿Qué es un Array?: En programación, una matriz o vector (llamados en
inglés arrays) es una zona de almacenamiento continuo, que contiene una
serie de elementos del mismo tipo, los elementos de la matriz. Desde el punto
de vista lógico una matriz se puede ver como un conjunto de elementos
ordenados en fila (o filas y columnas si tuviera dos dimensiones).
Ejemplo:Donde el 0 es la primera posición y el 9 es la ultima del Indice(formando una
fila), si ingresamos el numero 10 se almacenará en la posición 0, si ingresamos
8 se almacenara en la posición 1, y asi sucesivamente . Ejemplo Grafico:

Como se declara un vector en Visual Basic 6.0
Formula
Dim Nombre Del Vector o Matriz(Primer Valor To Ultimo Valor) As Tipo De
Dato
Ejemplo:
Dim Fila(1 To 5) As IntegerDonde:

Nombre Del Vector o Matriz: Fila
Primer Valor: 1
Ultimo Valor: 5
Tipo De Dato: Integer

Práctica
Visual Basic 6.0

Ejercicio 1:
Escribir un programa en Visual Basic que lea N números, calcule la media aritmética de
los mismos y muestre los números leídos que son mayores que la media calculada.
Se debe crear:
1 CommandButton
1 TextBox
5 Label
1 ListBox
Te debe quedar así

Aquí está el código(Darle doble click al CommandButton e
introducir lo siguiente)
Private Sub Command1_Click()
'Declaramos el vector del 1 al 1000
Dim Numeros(1 To 1000) As Integer
'Atrapamos los numeros en un TextBox y luego lo pasamos a la variable N
N = Val(Text1)
'Contamos desde el numeros que ingresamos en TextBox
For K = 1 To N
Numeros(K) = InputBox("Numero " & K)
Suma = Suma + Numeros(K)
Next
Prom = Suma / NLabelP = Prom
For K = 1 To N
If Numeros(K) > Prom Then
'En español es Agregar Elementos(AddItem) en el evento List1
List1.AddItem Numeros(K)
End If
Next
End Sub

Ejercicio 2
Escribir un programa en Visual Basic que lea 10 números que corresponden a los
elementos de un vector y determine y muestre el mayor y menor de ellos.

Se debe crear:
1 CommandButton
2 TextBox
2 Label
Te debe quedar así

Aquíesta el código (Darle doble click al CommandButton e introducir lo siguiente)
Private Sub Command1_Click()
'Declaramos el vector del 1 al 120
Dim Vector(1 To 20) As Integer
Dim Mayor As Integer
Dim Menor As Integer
For Indice = 1 To 10
Vector(Indice) = InputBox("Numero " & Indice)
Next
'Leemos el primer dato ingresado en la posicion '1' del indice
Mayor = Vector(1)
For Indice = 1 To 10
IfVector(Indice) > Mayor Then
Mayor = Vector(Indice)
End If
Next
Menor = Mayor
For Indice = 1 To 10
If Vector(Indice) < Menor Then
Menor = Vector(Indice)
End If
Next
Text1 = Mayor

Text2 = Menor
End Sub

Ejercicio 3
Escribir un programa en Visual Basic que permita cargar "N" números en un vector
"V" y luego muestre la cantidad de elementos de "V" que son números pares y la
cantidad de elementos de "V" queson mayores que 100

Se debe crear:
1 CommandButton
1 TextBox
3 Label
Te debe quedar así

Aquí está el código (Darle doble click al CommandButton e introducir lo siguiente)
Private Sub Command1_Click()
Dim Vector(1 To 1000) As Integer
Dim Pares, Mayores As Integer
N = Val(Text1)
For Indice = 1 To N
Vector(Indice) = InputBox("Dato " & Indice)
If Vector(Indice) Mod 2 = 0 Then
Pares = Pares + 1
EndIf
If Vector(Indice) > 100 Then
Mayores = Mayores + 1
End If
Next
Label2 = "Cantidad de pares " & Pares
Label3 = "Mayores que 100 " & Mayores
End Sub

Ejercicio 4
Hacer un programa en Visual Basic que lea dos vectores de "N" elementos cada uno y
cree y ordene ascendentemente un tercer vector cuyos elementos sean los elementos de
los 2 vectores leidos
Lo que va a hacer dicho programa es leer elvector 'A' y 'B'
Vector A
_ _ _
|7 |1| 4|

Vector B
_ _ _
|9 |6 |8|

lo que hace es unirlo el vector 'A' y 'B'
_ _ _ __ _
|7 |1 |4 |9 |6 |8|

Luego de haberlos unidos los vextores 'A' y 'B', los ordena
lo que hace es unirlo el vector 'A' y 'B'
_ _ _ __ _
|7 |1 |4 |9 |6 |8|

Vectores 'A' y 'B' ordenados
_ _ _ __ _
|1 |4 |6 |7 |8 |9|

Se debe crear:
1 CommandButton
1 TextBox
2 Label
1 ListBox

Te...