Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim imp As String
Dim op As Single
Dim datos(4, 2) As String
datos(0, 0) = TextBox1.Text
datos(1, 0) = TextBox2.Text
datos(2, 0) = TextBox3.Text
datos(3, 0) = TextBox4.Text
datos(0, 1) = TextBox5.Text
datos(1, 1) = TextBox6.Text
datos(2, 1) = TextBox7.Text
datos(3, 1) = TextBox8.Text
op = TextBox10.Text
imp = op - 1
Label2.Text = "nombre" + datos(imp, 0) + vbCrLf + "edad" + datos(imp, 1)
End Sub
End Class
No hay comentarios:
Publicar un comentario