Ejemplo 1

Dim b, h As Double

Dim área As Interger

 

b = TextBox1.Text

h= TextBox2.Text

área = b*h/2

TextBox3.Text = Trim(área)

 

Ejemplo 2

 

ConstAlquilerDelAuto = 700

ConstKilometrosRecorridos = 750

 

DimDiasDeAlquiler As Interger

DimKilometrosRecorridos, Resultado As Interger

 

Label1.text= ”introduzca el día de alquiler”

Label2.Text =”introduzca los kilómetros recorridos”

 

DiasDeAlquiler = Val(Text1)

Kilómetros = Val(Text2)

Resultados = (DiasDeAlquiler * AlquilerDelAuto) + (KilometrosRecorridos* Kilometros)

 

LaelResultado.Text = “Los kilómetros recorridos es de” & resultado”

 

Ejemplo 2

 

ConstPi As Single =3.14

 

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 quetranscurrirá hasta el” &_ “llenado del depósito es de “&tminutos&”minutos”