Tarea experimental de VB
Mostrar bt como booleano
Declaración privada de la biblioteca sub-sleep "kernel132.dll" (ByVal dwMillisegundos mientras sea larga)
Subformulario privado_Activate()
Si bt = false, entonces
Imprimir "nombre";espacio(5);"edad";espacio(3);"dirección postal";espacio(40);"Código postal";Espacio (4);"Teléfono"
Terminará si...
Duerme 1500
Llama a Shuru
bt = true
Conector final
Sulu()
En caso de error, continúe con el siguiente paso
Dimensión a, b, c, d, e
A = InputBox("nombre", "no pueden ser caracteres en inglés, de lo contrario la posición será incorrecta")
B = InputBox ("edad", "","")
C = InputBox("Dirección postal", "No pueden ser caracteres en inglés, de lo contrario la posición será incorrecta")
D = InputBox("Código postal", "", "")
E = InputBox("Teléfono", "", "")
Imprimir a; espacio (9-Len(a)* 2); 7-Len(b));c;space(48-Len(c)*2);d;space(12-Len(d));e
Conector final
Privado subform_Click()
Llamar a Shuru
Finalizar conector