Ejercicio 33

“MÚLTIPLO DE 4”

' Gambas class file

PUBLIC SUB Button1_Click()

IF CInt(TextBox1.Text) MOD 4 = 0 THEN

Message.Info("ES MÚLTIPLO DE 4")

ELSE

Message.Info("NO ES MÚLTIPLO DE 4")

ENDIF

END

PUBLIC SUB Button2_Click()

TextBox1.Text = ""

END

PUBLIC SUB Button3_Click()

FMain.Show

Multiplode4.Hide

END