Tu Personalidad

Este código sirve para elaborar un cuadro en el que te muestre tu nombre, edad, estado civil, equipo favorito. Primero te preguntara en InputBox y se mostrara en el cuadro.


Private Sub Form_Load()
Dim nombre As String
Dim paterno As String
Dim materno As String
Dim edad As String
Dim equipo As String
Dim estado As String
Do
nombre = InputBox("escribe tu nombre", "software")
Loop Until nombre <> ""
Do
paterno = InputBox("escribe tu apellido paterno", "software")
Loop Until paterno <> ""
Do
materno = InputBox("escribe tu apellido materno", "software")
Loop Until materno <> ""
Do
edad = InputBox("escribe tu edad", "software")
Loop Until edad <> ""
Do
equipo = InputBox("escribe tu equipo favorito", "software")
Loop Until equipo <> ""
Do
estado = InputBox("escribe tu estado civil", "software")
Loop Until estado <> ""

txtnombre.Text = nombre
txtapaterno.Text = paterno
txtamaterno.Text = materno
txtedad.Text = edad
txtequipo.Text = equipo
txtestado.Text = estado
End Sub