Ejercicio 40

“Capture un numero cualesquiera e informe si es o no es mayor de 50 y múltiplo de tres. Escribir un mensaje de respuesta de manera muy clara y esto resuelve el problema”

' Gambas class file

PUBLIC SUB Button1_Click()

DIM A AS Integer

A = TextBox1.Text

IF A > 50 THEN

Message("ES MAYOR QUE 50")

IF A MOD 3 = 0 THEN

Message("ES MÚLTIPLO DE 3")

ELSE

Message("NO ES MÚLTIPLO DE 3")

ENDIF

ELSE

IF A MOD 3 = 0 THEN

Message("ES MÚLTIPLO DE 3")

ELSE

Message("NO ES MAYOR DE 50 Y NO ES MÚLTIPLO DE 3")

ENDIF

ENDIF

END

PUBLIC SUB Button2_Click()

TextBox1.Text = ""

END

PUBLIC SUB Button3_Click()

MenuS.Show

Numero.Hide

END