Tipos de Datos Estructurados - Vectores (Visual Basic)

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