UN TEST DEPREGUNTAS

IF RadioButton1.Value = TRUE THEN
TextBox1.Text = ("SI ")
END IF

IF RadioButton2.Value = TRUE THEN
TextBox2.Text = ("ESCUCHAR MUSICA ")
END IF

IF RadioButton3.Value = TRUE THEN
TextBox3.Text = "BAILAR "

END IF
IF RadioButton4.Value = TRUE THEN
TextBox4.Text = "ESTUDIAR"
END IF

IF RadioButton5.Value = TRUE THEN
TextBox5.Text = "SAN MIGUEL"
END IF

IF RadioButton6.Value = TRUE THEN
TextBox6.Text = "080132511 "
END IF
END

4.- Capturar los datos mas importantes de un estudiante incluyendo tres

PUBLIC SUB Button1_Click()
DIM A AS String
A = TextBox6.Text
IF A = ("MEDICINA") THEN
FMain.Hide
Form1.Show
ELSE
Message("Se cita a los padres del estudiante a una platica amistosa con los maestros de la escuela.")
ENDIF
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
END

NUMERO PAR POSITIVO

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

PUEDE ESCRIBIR LA LETRA "A" "B" Y SE MOSTRARA UN MENSAJE

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

PUBLIC SUB Button1_Click()
SELECT CASE TextBox1.Text
CASE "a", "A"
Message("AGUILA")
CASE "b", "B"
Message("TIGRES")
CASE ELSE
Message("NO HAY")
END SELECT
END

SELECT CASE

PUBLIC SUB Button1_Click()
SELECT CASE TextBox1.Text
CASE 1
TextBox2.Text = "UNO"
CASE 2, 3
TextBox2.Text = "DOS O TRES"
CASE ELSE
TextBox2.Text = "NO SE"
END SELECT
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END

NUMEROS ENTRE 50 Y 60 CASO CONTRARIO FUERA DEL RANGO

DIM A AS Integer
A = TextBox1.Text
IF A >= 50 AND A <= 60 THEN
Message("ANDA ENTRE 50 Y 60")
ELSE
Message("FUERA DEL RANGO")
END IF
END

PUBLIC SUB Button3_Click()
QUIT
END

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

SENTENCIA IF

PUBLIC SUB Button1_Click()
DIM A AS String
A = TextBox1.Text

IF A = ("MEDICINA") THEN
Message("BOLETA DE CALIFICACIONES")
Message("PRIMERA CALIFICACION:20; SEGUNDA CALIFICACION 19; TERCERA CALIFICACION 18")
ELSE
Message(" SE INVITA A LOS PADRES DE FAMILIA A UNA PLATICA AMISTOSA")
END IF
END

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