martes, 8 de febrero de 2011

Realizar un ejercicio con la sentencia if then

Realizar un ejercicio con la sentencia if then que me permita ingresar un numero y me muestre un mensaje si es positivo o negativo y si es par o impar.

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = TextBox1.Text
IF (A) > 0 THEN
Message("POSITIVO")
IF (A) MOD 2 THEN
Message("EL NUMERO ES IMPAR")
ELSE
Message("EL NUMERO ES PAR")
END IF
ELSE
Message("NEGATIVO")
IF (A) MOD 2 THEN
Message("EL NUMERO ES IMPAR")
ELSE
Message("EL NUMERO ES PAR")
END IF
END IF
END

PUBLIC SUB Button2_Click()
Textbox1.text = ""
END

PUBLIC SUB Button3_Click()
QUIT
END

No hay comentarios:

Publicar un comentario en la entrada