Ayudar a las personas a escribir tareas de programación.

Agregue un control de botón de comando y un control de cuadro de texto al formulario;

El código fuente es el siguiente:

Subcomando privado 1_Click()

If IsNumeric( Texto1. Texto) = Verdadero Entonces

i. Imprimir texto 1. Text & amp "¡es un número!"

ElseIf Asc(Text1.Text)>= 65 y Asc(Text1.Text)<= 90 o Asc(Text1.Text)>= 97 y Asc(Text1 .Text)<= 122Entonces

Yo. Imprimir texto 1. Texto y amp "¡Es una carta!"

Otro

I. Imprimir texto 1. Texto y amplificador "¡Es otro rol!"

Terminará si...

Finalizar conector

Subform_Load privado()

Texto1 . Texto = " "

Conector final