Ejemplo #1

D

Dim b,h, As Double

Dim area As Integer

Area = b * h / 2

TextBox3.Text = Trim(Area)

P

b= TextBox1.Text

h= TextBox2.Text

Ejemplo #2

C

ConstAlquilerDelAuto = 700

ConstKilometrosRecorrido = 750

D

DimDiasDeAlquiler As Integer

DimKilometrosRecorridos,Resultado As Integer

S

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

Label2.text=”introduzca los kilómetros recorrido”

P

DiasDeAlquiler = Val(Text1)

Kilometros = Val(Text2)

Resultado= (DiasDealquiler * AlquilerDelAuto) + (KilometrosRecorrido * Kilometros)

S

LabelResultado.text =” Los kilómetros recorrido es de” & resultado”

Ejemplo #3

C

Const Pi As Single =3.14

D

Dim D,R,H,V,Vlitros,tminutos As Single

Dim Canal As Double

Dim Q As single

E

Label1 = “Introduzca aquí el diámetro del depósito, en metros”

Label2 =”Introduzca aquí la altura del depósito, en metros”

P

D = Val(Text1)

H = Val(Text2)

R = D / 2

V = Pi * (R ^ 2) * H

Vlitros = V * 1000

Tminutos = Vlitros / Q

S

Label3 = & “El tiempo que transcurrirá hasta el” & _” llenado del depósito es de “ &tminutos& “ minutos”