el ensayo
Ejemplos Prácticos: ARRAY UNIDIMENSIONAL.- Introducción:
Para almacenar y leer datos en los elementos de un Array unidimensional, deberá indicar el nombre del Array y la posición delelemento donde quiere almacenar los datos. Por ejemplo, si queremos una aplicación que permita almacenar en dos Arrays los nombres y apellidos de cien personas introducidas mediante cajas detexto diseñaríamos una aplicación similar a la siguiente:
▪ Abra un nuevo proyecto y diseñe el entorno que vemos en la imagen anterior.
▪ En la sección general del editor de códigoescriba:
Dim Nombre(30) As String
Dim Apellido(30) As String
▪ En el evento Click del botón Agregar escriba:
'Verifica que las cajas no se dejen vacías. If Len(Trim(Text1.Text)) = 0 ThenMsgBox ("Debe introducir un nombre.")
Text1.SetFocus 'Hace que la caja reciba el enfoque.
ElseIf Len(Trim(Text2.Text)) = 0 Then
MsgBox ("Debe introducir el apellido.")
Text2.SetFocus'Hace que la caja reciba el enfoque. Else
'Contamos los elementos del Array que contienen información.
Dim i As Long
Dim TotalLeidos As Long
For i = 1 To UBound(Nombre) 'Repite hastaque se lean todos los elementos del Arrays. If Len(Trim(Nombre(i))) > 0 Then
TotalLeidos = TotalLeidos + 1 'Acumula los elementos del Arrays que tienen datos.
'Esto es para saber cual será laposición del siguiente
elemento.
End If
Next I
Nombre(TotalLeidos + 1) = Text1.Text 'Agrega el nombre al Array. Apellido(TotalLeidos + 1) = Text2.Text 'Agrega el apellidoal Array.
'Limpiamos las cajas. Text1.Text = "" Text2.Text = "" Text1.SetFocus
End If
▪ En el evento Click del botón Leer arreglo escriba:
Dim i As Integer
'Leemos todos los elementos delArray y lo mostramos en el ListBox. For i = 1 To UBound(Nombre)
If Len(Trim(Nombre)) > 0 Then 'Verificamos los elementos que contienen datos.
List1.AddItem Nombre(i) & " " &...
Regístrate para leer el documento completo.