EJERCICIO 38

Ejercicio con la sentencia if then

Realizar un ejercicio que imprima la palabra es rico si el numero ingresado es mayor de 1000 caso contrario es pobre.
PUBLIC SUB Button3_Click()
QUIT
END

PUBLIC SUB Button2_Click()
TextBox1.Text = ""END

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = TextBox1.Text
IF A > 1000 THEN
Message("ES RICO")
ELSE
Message("ES POBRE")
END IF
END