Tipos de Datos Estructurados - Vectores (Visual Basic)
CONSIGNA
Ingresar nombre, apellido y edad de 5 personas, almacenar en un listbox.
INTERFAZ
CÓDIGO FUENTE
Private Type persona
......nombre As String
......apellido As String
......edad As Integer
End Type ’declaracion del tipo de dato estructurado’
Dim alumnos(5) As persona ‘declaracion del vector de tipo’
Private Sub Ejecular_Click()
For i = 0 To 4
......alumnos(i).nombre = InputBox("Ingrese el nombre del alumno: ", "Carga de Registros")
......alumnos(i).apellido = InputBox("Ingrese el Apellido del alumno: ", "Carga de Registros")
......alumnos(i).edad = InputBox("Ingrese la Edad del alumno: ", "Carga de Registros")
......List1.AddItem (alumnos(i).apellido + ", " + alumnos(i).nombre + ", " + Str(alumnos(i).edad) + " años.")
Next i
End Sub
Private Sub Salir_Click()
Unload Me
End Sub
Private Sub Form_Load()
List1.Clear
End Sub