Rolando
Quezada XºA 28/7/2016
Ejemplo #1
Dim b, h, As Double
Dimarea
As Integer
b=
TextBox1.Text
h=TextBox2.Text
area=
b*h/2
Ejemplo
#2
DimDiasDeAlquiler As Integer
DimKilometrosRecorridos, Resultado
Label1.text=”introduzca el día de alquiler”
Label2.text=”introduzca el día de alquiler”
DiasDeAlquiler= Val(Text1)
Kilometros= Val(Text2)
Resultados= (DiasDeAlquiler*AlquilerDelAuto) +
(KilometrosRecorrido * Kilometros)
LabelResultado.text =” Los kilómetros recorrido es de”
& resultado”
Ejemplo #3
Dim D, R, H, V, Vlitros, tminutos
Dim Canal
Dim Q As Single
Label1= “Introduzca aquí el diámetro del depósito, en
metros”
Label2=”Introduzca aquí la altura del depósito, en
metros”
D=
Val(Text1)
H=
Val(Text2)
R= D/2
V= Pi*(R^2) * h
Vlitros= V*1000
tminutos= Vlitros/Q
Label3= & “El tiempo que transcurrirá hasta el”
&_”llenado del depósito es de “&tminutos&”minutos”
D
Dim b,
h, As Double
Dimarea As Integer
DimDiasDeAlquiler As Integer
DimKilometrosRecorridos, Resultado
Dim D, R, H, V, Vlitros, tminutos
Dim
Canal
Dim Q As
Single
P
b=
TextBox1.Text
h=TextBox2.Text
area=
b*h/2
DiasDeAlquiler=
Val(Text1)
Kilometros=
Val(Text2)
D=
Val(Text1)
H=
Val(Text2)
R= D/2
V= Pi*(R^2) * h
Vlitros= V*1000
tminutos=
Vlitros/Q
E
Label1.text=”introduzca el día de alquiler”
Label2.text=”introduzca el día de alquiler”
Label1= “Introduzca aquí el diámetro del depósito, en
metros”
Label2=”Introduzca aquí la altura del depósito, en
metros”
S
Label3= & “El tiempo que transcurrirá hasta el”
&_”llenado del depósito es de “&tminutos&”minutos”
Resultados= (DiasDeAlquiler*AlquilerDelAuto) +
(KilometrosRecorrido * Kilometros)
LabelResultado.text =” Los kilómetros recorrido es de”
& resultado”
