5.- Capturar los datos mas importantes de un producto cualesquiera, incluyendo cantidad, precio, etc. , desplegar una orden de compra, solo si el producto es de origen nacional, en caso contrario no hacer nada.

PUBLIC SUB Button1_Click()
DIM A AS String
A = TextBox5.Text
IF A = ("NACIONAL") OR A = ("ECUADOR") THEN
Message("REALIZAR ORDEN DE COMPRAS")
ELSE
Message("PRODUCTO EXTRANJERO")
END IF
END
PARA BORRAR

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
END

3.- Capturar los cinco datos mas importantes de un Empleado, incluyendo el sueldo diario y los días trabajados esto en un panel, desplegarle su cheque semanal en un segundo panel solo si ganó mas de $500.00 en la semana, en caso contrario desplegarle un bono de despensa semanal de $150.00 en un tercer panel.

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = TextBox6.Text
IF A > 500 THEN
Message("CHEQUE SEMANAL")
ELSE
Message("BONO DE DESPENSA DE 150")
END IF
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
END

SI EL SUELDO ES MAYOR QUE 1000 ES RICO

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

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = TextBox1.Text
IF A > 1000 THEN
Message("ES RICO")
ELSE
Message("ES POBRE")
END IF
END

MODULO DEL VECTOR Y PARA BORRAR

PUBLIC SUB Button3_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
END

PUBLIC SUB Button2_Click()
TextBox3.Text = ((TextBox1.Text) ^ 2 + (TextBox2.Text) ^ 2) ^ (1 / 2)
END

2.- Capturar un numero entero cualesquiera e informar si es o no es múltiplo de 4 ( recordar el operador mod, analizado en el tema de operadores aritméticos).

PUBLIC SUB Button2_Click()
TextBox1.Text = ""

END

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = TextBox1.Text
IF A MOD 2 THEN
Message("NO ES MULTIPLO")
ELSE
Message(" ES MULTIPLO")
END IF

END

1.- Capturar un número cualesquiera e informar si es o no es mayor de 100

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = TextBox1.Text
IF A > 100 THEN
Message("EL NUMERO ES MAYOR")
ELSE
Message(" EL NUMERO ES MENOR")
END IF


END

EJERCICIOS CON EL FRAME

PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""

END

PUBLIC SUB Button1_Click()
TextBox3.Text = TextBox1.Text / TextBox2.Text
TextBox6.Text = (TextBox4.Text) ^ 2 * (TextBox5.Text) + (TextBox4.Text) ^ 3 * (TextBox5.Text) ^ 2 - (TextBox4.Text) ^ 4

END