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
egercicios de gambas
martes, 8 de febrero de 2011
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
Label4.Caption = "2. FRENOS"
Label5.Caption = "3. TANQUE DE COMBUSTIBLE"
Label6.Caption = "4. NUMERO DE PLACA"
Label7.Caption = "5. PAPELES EN REGLA"
END
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
TextBox5.Text = (TextBox3.Text * TextBox4.Text) / 2
TextBox8.Text = (TextBox6.Text) ^ 2 + (TextBox7.Text) ^ 2
TextBox10.Text = (TextBox9.Text) ^ 2
END
Suscribirse a:
Comentarios (Atom)







