taller

Taller:

D (declaración de variables) verde

E(entrada de datos) morado

P(procesos) rojo

S(salida) celeste

C(constantes) negro

1)

Dim b, h As Double

Dim area As Double

b = TextBox1.Text

h = TextBox2.Text

area=b*h/2

textBox3.Text=Trim(area)

2)

ConstAlquilerDelAuto=700

ConstKilometrosRecorridos=750

DimDiasDeAlquiler As Integer

DimKilometrosRecorridos, Resultados As Integer

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

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

DiasDeAlquiler=Val(Text2)

Kilometros=Val(Text2)

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

LabelResultados.text=” Los kilómetros recorridos es de” & resultados”

3)

Const Pi As Single =3.14

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

Dim Canal As Double

Dim Q As Single

Label1=”Introduzca aquí el diámentro de depósito, en metro”

Label2=”Introduzca aquí la altura del deposito, en metro”

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”&_&tminutos&”minutos”