EJERCICIO DE MATRICES

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim nombres(4) As String
Dim edades(4) As Single
Dim opcion As Single

nombres(0) = TextBox1.Text
nombres(1) = TextBox2.Text
nombres(2) = TextBox3.Text
nombres(3) = TextBox4.Text

edades(0) = TextBox5.Text
edades(1) = TextBox6.Text
edades(2) = TextBox7.Text
edades(3) = TextBox8.Text

opcion = TextBox9.Text

TextBox10.Text = "nombre" + nombres(opcion - 1) + vbCrLf + "edad" + CStr(edades(opcion - 1))



End Sub
End Class