Matrices

[marcos1979]

No se si entendi bien:

Dim datos(1 To 2, 1 To 4) As String
Dim a As Integer
For a = 1 To 2
datos(a, 1) = InputBox("Introduce Matricula")
datos(a, 2) = InputBox("Introduce Nombre")
datos(a, 3) = InputBox("Introduce Apellido Paterno")
datos(a, 4) = InputBox("Introduce Apellido Materno")
Next a

txtDatos.Text = ""
lstDatos.Clear

For a = 1 To 2
Dim el_dato As String

el_dato = datos(a, 1) & " "
el_dato = el_dato & datos(a, 2) & " "
el_dato = el_dato & datos(a, 3) & " "
el_dato = el_dato & datos(a, 4)
txtDatos.Text = txtDatos.Text & el_dato & vbCrLf
lstDatos.AddItem el_dato
Next


Un saludo