Práctica
Ejemplo#1
Dim
b, h As Double
Dim
area As integer
b=
TextBox1.Text
h=TextBox2.Text
area
= b*h / 2
TextBox3.Text=
Trim(area)
Ejemplo#2
ConstAlquilerDelAuto=
700
ConstKilometrosRecorrido=750
DimDiasDeAlquiler
As Integer
DimKilometrosRecorridos,
Resultado
As
Integer
Label1.text=
“introduzca el día de alquiler”
Label2.text=
“introduzca los kilómetros recorrido”
DiasDeAlquiler
= Val(text1)
Kilometros
= Val(Text2)
Resultado
=(DiasDeAlquiler *AlquilerDelAuto) +
(KilometrosRecorrido
* Kilometros)
LabelResultados.text
= “Los kilómetros
Recorrido
es de” & resultado”
Const
Pi As Single =3.14
Ejemplo#3
Dim
D, R, H,V, Vlitros, tminutos
As
Single
Dim
Canal As double
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 deposito
es de” &tminutos&.” “minutos”


