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”