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

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

Se calcula que en promedio hay 4.7 nidos en cada árbol en la UABC, también se calcula que en cada nido existen un promedio de 5.8 pájaros, se pide calcular la cantidad total de nidos y de pájaros en los 227 arboles que existen en la UABC. (No ocupa entradas)

PUBLIC SUB Button2_Click()
QUIT

END

PUBLIC SUB Button1_Click()
TextBox1.Text = (4.7) * (227)
TextBox2.Text = (5.8) * (TextBox1.Text)

END

CALCULAR EL TIEMPO

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

PUBLIC SUB Button1_Click()
TextBox3.Text = (TextBox1.Text) / (TextBox2.Text)
END

UTILIZACION DEL FRAME

PUBLIC SUB Button1_Click()
TextBox3.Text = TextBox1.Text + TextBox2.Text
TextBox5.Text = TextBox4.Text * 1000
END

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

END

RAIZ CUADRADA DE X O DE UN NUMERO CUALESQUIERA

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

END

PUBLIC SUB Button1_Click()
TextBox2.Text = (TextBox1.Text) ^ (1 / 2)
END

RAIZ DE 9

PUBLIC SUB Button1_Click()
TextBox1.Text = 9 ^ (1 / 2)

END

PUBLIC SUB Button3_Click()
QUIT

END

MOSTRAS LOS CINCO DATOS MAS IMPORTANTES de automovil

PUBLIC SUB Button1_Click()
Label3.Caption = "1. NUMERO DE MOTOR"
Label4.Caption = "2. FRENOS"
Label5.Caption = "3. TANQUE DE COMBUSTIBLE"
Label6.Caption = "4. NUMERO DE PLACA"
Label7.Caption = "5. PAPELES EN REGLA"
END

LA GORDA SRÑ LOPEZ Y SUS 8 HIJOS

PUBLIC SUB Button1_Click()
TextBox1.Text = 9 * (8.75 + 3.55 + 14.25)

EVALUAR LA FUNCION Y= 8X³/5-3X³+6X²-7

PUBLIC SUB Button1_Click()
TextBox2.Text = (-8) * (TextBox1.Text) ^ (3 / 5) - (3) * (TextBox1.Text) ^ 3 + 6 * (TextBox1.Text) ^ 2 - 7

END
para borrar
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END

Imprimir los numeros del 1 al 20

Imprimir los numeros del 1 al 20

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button2_Click()

QUIT

END

PUBLIC SUB Button1_Click()

DIM a AS Integer

FOR a = 1 TO 20

ListBox1.Add(A)

NEXT

END

PUBLIC SUB Button3_Click()

ListBox1.Clear

END

Usando visual basic para desplegar enteros entre 50 y 80

Usando visual basic para desplegar enteros entre 50 y 80

' Gambas class file


PUBLIC SUB _new()


END


PUBLIC SUB Form_Open()


END


PUBLIC SUB Button3_Click()
QUIT
END


PUBLIC SUB Button2_Click()
ListBox1.Clear
END


PUBLIC SUB Button1_Click()
DIM A AS Integer
A = 50
DO WHILE A <= 80
ListBox1.Add(A)
A = a + 1
LOOP
END

desplegar múltiplos de 4

Usar visual basic para desplegar múltiplos de 4 entre 60 y 20 acompañados de su

logaritmos de base 10 y base e respectivos (a revisar funciones visual basic )

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()

QUIT

END

PUBLIC SUB Button2_Click()

ListBox1.Clear

END

PUBLIC SUB Button1_Click()

DIM A AS Integer

A = 60

DO WHILE A >= 20

ListBox1.Add(A)

A = a - 1

LOOP

END

PUBLIC SUB Button4_Click()

DIM B AS Integer

B = 60

DO WHILE B >= 20

ListBox2.Add((Log)(B))

B = B - 1

LOOP

END

Puede escribir la letra "a" "b" y se mostrara un mensaje

Puede escribir la letra "a" "b" y se mostrara un mensaje

' Gambas class file


PUBLIC SUB _new()


END


PUBLIC SUB Form_Open()


END


PUBLIC SUB Button3_Click()
QUIT
END


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

Evaluar la funciòn Y=3x²-4x+2

1.- Evaluar la funciòn Y=3x²-4x+2 para X=2, -5, 8 USAR UN CHECKBOX para cada valor de X y programar cada evento clik de cada checkbox con la operaciòn correspondiente y el despliegue del resultado

PRIMER FORMULARIO

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button2_Click()

QUIT

END

PUBLIC SUB Button1_Click()

IF CheckBox1.Value = TRUE THEN

FMain.Hide

Form1.Show

END IF

IF CheckBox2.Value = TRUE THEN

FMain.Hide

Form2.Show

END IF

IF CheckBox3.Value = TRUE THEN

FMain.Hide

Form3.Show

END IF

END

SEGUNDO FORMULARIO

' Gambas class file

PUBLIC SUB Button1_Click()

Form1.Hide

FMain.Show

END

PUBLIC SUB Button2_Click()

TextBox1.Text = (3) * (2) ^ 2 - (4) * (2) + 2

END

TERCER FORMULARIO

' Gambas class file

PUBLIC SUB Button1_Click()

Form2.Hide

FMain.Show

END

PUBLIC SUB Button2_Click()

TextBox1.Text = (3) * (-5) ^ 2 - (4) * (-5) + 2

END

CUARTO FORMULARIO

' Gambas class file

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()

Form3.Hide

FMain.Show

END

PUBLIC SUB Button2_Click()

TextBox1.Text = (3) * (8) ^ 2 - (4) * (8) + 2

END

IMPRIMIR LA PALABRA PATO 10 VECES EN UN LISTBOX1 Y EN UN LABEL1

IMPRIMIR LA PALABRA PATO 10 VECES EN UN LISTBOX1 Y EN UN LABEL1

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()

QUIT

END

PUBLIC SUB Button2_Click()

Label2.Caption = ""

END

PUBLIC SUB Button1_Click()

DIM x AS Integer

FOR x = 1 TO 5

Label2.Caption = ("pato")

NEXT

END

PUBLIC SUB Button5_Click()

ListBox1.Clear

END

PUBLIC SUB Button4_Click()

DIM A AS Integer

FOR A = 1 TO 10

ListBox1.Add("pato")

NEXT

END

GASTO TOTAL

 La gorda Sra. López y sus 8 hijos solo compran una vez al mes su mandado en conocido supermercado, en dicha tienda el kilogramo de frijol cuesta $8.75, el paquete de tortillas cuesta $3.55 y el frasco de café vale $14.25, si solo compran de estos tres productos para su mandado, calcular su gasto total.( problema no claro)

Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()

Text1.Text = (8.75 + 3.55 + 14.25)/9

END

PUBLIC SUB Button2_Click()

textbox1.text=””

textbox2.text=””

END

Realizar un ejercicio con la sentencia if then

Realizar un ejercicio con la sentencia if then que me permita ingresar un numero y me muestre un mensaje si es positivo o negativo y si es par o impar.

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()

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

PUBLIC SUB Button2_Click()

Textbox1.text = ""

END

PUBLIC SUB Button3_Click()

QUIT

END

Realizar un programa que me permita ingresar un numero y muestre un mensaje:

Realizar un programa que me permita ingresar un numero y muestre un mensaje: “esta en el rango de 50 a 60 caso contrario fuera del rango” utilizando la sentencia IF THEN ELSE.

' Gambas class file


PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button1_Click()
Dm A as integer
A= TextBOX1.Text
If (A) >= 50 and If (A) <= 60 Then
Message ("ANDA ENTRE 50 Y 60") 
Else
Message (" FUERA DEL RANGO 50 Y 60")
END 
PUBLIC SUB Button2_Click() 
Textbox1.text = ""
END
PUBLIC SUB Button3_Click()
QUIT 
END

Editor de menú realizar las siguientes operaciones

Utilizando

Editor de menú realizar las siguientes operaciones

Conversiones:

Edad a Dias

Kilometros a Metros

Terabytes a byte

OPERACIONES

SUMA; RESTA; MULTIPLICACION; DIVISION

PRIMER FORMULARIO


' Gambas class file


PUBLIC SUB _new()


END


PUBLIC SUB Form_Open()
END


PUBLIC SUB SALIR_Click()
QUIT
END


PUBLIC SUB EDAD_Click()
FMain.Hide
Form1.Show
END


PUBLIC SUB KILOMETROSAMETROS_Click()
FMain.Hide
Form2.Show
END


PUBLIC SUB TERABYTE_Click()
FMain.Hide
Form3.Show
END


PUBLIC SUB OPERACIONESCASE_Click()
FMain.Hide
Form4.Show
END


PUBLIC SUB Label11_MouseDown()
MENU.Popup
END






SEGUNDO FORMULARIO


' Gambas class file




PUBLIC SUB Button3_Click()
Form1.Hide
FMain.Show
END


PUBLIC SUB Button1_Click()
TextBOX2.Text = (TextBOX1.Text) * 365
END


PUBLIC SUB Button2_Click()
TextBOX1.Text = ""
TextBOX2.Text = ""
END






TERCER FORMULARIO


' Gambas class file




PUBLIC SUB Button3_Click()
Form2.Hide
FMain.Show
END


PUBLIC SUB Button1_Click()
TextBox2.Text = (TextBox1.Text) * 1000
END


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




CUARTO FORMULARIO


' Gambas class file




PUBLIC SUB Button1_Click()
TextBox2.Text = (TextBox1.Text) * 1024
END


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


PUBLIC SUB Button3_Click()
Form3.Hide
FMain.Show
END




QUINTO FORMULARIO


' Gambas class file




PUBLIC SUB Button2_Click()
Form4.Hide
FMain.Show
END


PUBLIC SUB Button1_Click()
SELECT CASE ComboBox1.Text
CASE ("+")
Form4.Hide
Form5.Show
CASE ("-")
Form4.Hide
Form6.Show
CASE ("*")
Form4.Hide
Form7.Show
CASE ("/")
Form4.Hide
Form8.Show
END SELECT
END




SEXTO FORMULARIO


' Gambas class file




PUBLIC SUB Button1_Click()
Form5.Hide
Form4.Show
END


PUBLIC SUB Button2_Click()
TextBox3.Text = (TextBox1.Text) + (TextBox2.Text)
END


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




SEPTIMO FORMULARIO


' Gambas class file




PUBLIC SUB Button1_Click()
TextBox3.Text = (TextBox1.Text) - (TextBox2.Text)
END


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


PUBLIC SUB Button3_Click()
Form6.Hide
Form4.Show
END




OCTAVO FORMULARIO


' Gambas class file




PUBLIC SUB Button1_Click()
TextBox3.Text = (TextBox1.Text) * (TextBox2.Text)
END


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


PUBLIC SUB Button3_Click()
Form7.Hide
Form4.Show
END




NOVENO FORMULARIO


' Gambas class file




PUBLIC SUB Button3_Click()
Form8.Hide
Form4.Show
END


PUBLIC SUB Button1_Click()
TextBox3.Text = (TextBox1.Text) / (TextBox2.Text)
END


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

FUNCION Y=4X³-3X²+2X-5

TextBox2.Text = (4) * (TextBox1.Text) ^ 3 - 3 * (TextBox1.Text) ^ 2 + 2 * (TextBox1.Text) - 5

EVALUAR LA FUNCION Y=5X³-3X²+8 CUANDO X =4

TextBox1.Text = (-5) * (4) ^ 3 - (3) * (4) ^ 2 + 8

EVALUAR LA FUNCION Y=3X^2+2X-5

TextBox2.Text = (3) * (TextBox1.Text) ^ 2 + 2 * (TextBox1.Text) - 5

CANBIA COLORES A TU FROM

FMain.BackColor = (&HFF0000)
FMain.BackColor = (&HFF)
FMain.BackColor = (&HFF000)

CONVERTIR DE METROS A CENTMITROS

TextBox1.Text = (125) * (100)

EN EL EDITOR DE MENU REALISAR LOS EJERCICIOS

QUEDA ASI

EL NUEVO FORMULARIO ES LA SUMA DE 2 NUMEROS

CONVERTIR LA EDAD EN MESES

TextBox2.Text = TextBox1.Text * (12)

REALIZAR UNA CALCULADORA

TextBox3.Text = TextBox1.TEXT + TextBox2.Text
TextBox3.Text = TextBox1.TEXT - TextBox2.Text
TextBox3.Text = TextBox1.TEXT / TextBox2.Text
TextBox3.Text = TextBox1.TEXT * TextBox2.Text
TextBox3.Text = TextBox1.TEXT ^ TextBox2.Text
TextBox3.Text = TextBox1.TEXT 1/2 TextBox2.Text

ALLLAR LAS AREAS DE CUADRADO CIRCULO CIRCULO RECTANGULO

 TextBox2.Text = 3.14 * (TextBox1.Text) ^ 2
 TextBox5.Text = (TextBox3.Text * TextBox4.Text) / 2
TextBox8.Text = (TextBox6.Text) ^ 2 + (TextBox7.Text) ^ 2
TextBox10.Text = (TextBox9.Text) ^ 2
END

SUMA RESTA DIVICION MULTIPLICACION EN 4 FRAME

TextBox3.Text = (TextBox1.Text) + (TextBox2.Text)
TextBox6.Text = (TextBox4.Text) - (TextBox5.Text)
TextBox9.Text = (TextBox7.Text) * (TextBox8.Text)
TextBox12.Text = (TextBox10.Text) / (TextBox11.Text)
END

Area del cuadrado

TextBox2.Text = (TextBox1.Text) ^ 2

Allar el Area del circulo

TextBox2.Text = 3.14 * (TextBox1.Text) ^ 2

Allar el area del triangulo

TextBox3.Text = (TextBox1.Text) * (TextBox1.Text) / 2

La distancia Tijuana - Ensenada es de 110 Kms, si un automóvil la recorre a una velocidad constante de 30 millas por hora, cuanto tiempo tarda en llegar. ( 1 milla =1.609 Km.) (Dos maneras correctas de resolverlo).

TextBox1.Text = (30) * (1.609) / 3600
TextBox2.Text = (0.013) / (110)

END

capturar los datos mas inportantes de un estudiante

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

si un numero es mayor o menor si es par o impar

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

realizar la conpra de un producto

DIM A AS Integer
DIM B AS String
A = TextBox4.Text
B = TextBox5.Text
IF TextBox4.Text < TextBox3.Text THEN
Message("REALIZAR ORDEN DE COMPRAS")
ELSE
Message("PERCHA LLENA")
ENDIF
IF TextBox5.Text = ("NACIONAL") THEN
Message("REALIZAR ORDEN DE COMPRAS")
ELSE
Message("PRODUCTO EXTRANJERO ")
ENDIF

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

DIM A AS Integer
A = TextBox1.Text
IF A > 100 THEN
Message("EL NUMERO ES MAYOR")
ELSE
Message(" EL NUMERO ES MENOR")
END IF
 para salir
quit

CONVERSION DE LIBRAS A KILOGRAMOS

TextBox2.Text = TextBox1.Text * 0.453599

CONVERSION DE SUCRES A DOLARES

TextBox2.Text = TextBox1.Text / (25000)
para borrar
TextBox1.Text = ""
TextBox2.Text = ""

CONVERSION DE KILOMETROS A MILLAS y como borrar

TextBox2.Text = TextBox1.Text * 0.6214
para borrar
TextBox1.Text = ""
TextBox2.Text = ""

datos de un enpleado de su sueldo

IF CInt(TextBox1.Text) > 500 THEN
Message("CHEQUE SEMANAL")
ELSE
IF CInt(TextBox1.Text) <= 500 THEN
TextBox2.Text = Val(TextBox1.Text) * 0.25
Message(" BONO DEL 25% ")
END IF
END IF

datos de un producto conprado si es nacional o extranguero

DIM A AS Integer
DIM B AS String
A = TextBox4.Text
B = TextBox5.Text
IF TextBox4.Text < TextBox3.Text THEN
Message("REALIZAR ORDEN DE COMPRAS")
ELSE
Message("PERCHA LLENA")
ENDIF
IF TextBox5.Text = ("NACIONAL") THEN
Message("REALIZAR ORDEN DE COMPRAS")
ELSE
Message("PRODUCTO EXTRANJERO ")
ENDIF

calcular la raiz de un numero con el frame

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

inprimir del 50 al 60 y mostrar un mensaje si es dentro del rango

IF Val(TextBox1.text) >= 50 AND Val(TextBox1.text) <= 60 THEN
MESSAGE("DENTRO DEL RANGO")
ELSE
MESSAGE("FUERA DEL RANGO")
ENDIF