IF CheckBox1.Value = 1 THEN
Message("MASCULINO")
ELSE
IF CheckBox1.Value = 0 THEN
Message("DATO FEMENINO")
END IF
IF CheckBox2.Value = 1 THEN
Message("ES FEMENINO")
ELSE
IF CheckBox2.Value = 0 THEN
Message(" DATOS MASCULINO")
END IF
END IF
END IF
END
PUBLIC SUB Button2_Click()
IF CheckBox3.Value = 0 THEN
Message("SU SUELDO ES DE 100 A 200")
ELSE
IF CheckBox3.Value = 1 THEN
Message("")
END IF
IF CheckBox4.Value = 0 THEN
Message("SU SUELDO ES DE 201 A 300")
ELSE
IF CheckBox4.Value = 1 THEN
Message("")
END IF
IF CheckBox5.Value = 1 THEN
Message("SU SUELDO ES DE 301 A 400")
ELSE
IF CheckBox5.Value = 0 THEN
Message("")
END IF
END IF
END IF
END IF
ENDPUBLIC SUB Button2_Click()
IF CheckBox3.Value = 0 THEN
Message("SU SUELDO ES DE 100 A 200")
ELSE
IF CheckBox3.Value = 1 THEN
Message("")
END IF
IF CheckBox4.Value = 0 THEN
Message("SU SUELDO ES DE 201 A 300")
ELSE
IF CheckBox4.Value = 1 THEN
Message("")
END IF
IF CheckBox5.Value = 1 THEN
Message("SU SUELDO ES DE 301 A 400")
ELSE
IF CheckBox5.Value = 0 THEN
Message("")
END IF
END IF
END IF
END IF
END

No hay comentarios:
Publicar un comentario