martes, 8 de febrero de 2011

DATOS 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

CONVERTIR 125 METROS A CENTIMETROS

TextBox1.Text = (125) * (100)

CALCULAR LA SIGIENTE ECUACION

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

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

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

LOS DATOS MAS INPORTANTES DE UN AUTOMOVIL

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

RAIZ DE 20

TextBox1.Text = 20 ^ (1 / 2)

calcular las areas utilizando frame

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