Ricardo A. Healy                                            10°A                                        28/7/2016

D Dim b, h as doble

   Dim área as integer

P  b= TextBox1.Text

    h= TextBox2.Text

área= b* h/2

    TextBox3.text =

Tim(área)

Ejemplo#2

ConstAquilerDelauto=700

ConstKilometrosRecorrido=750

DimDiasDeAquiler As Integer

DimKilometrosRecorridos, Resultado

As integer

Label1.Text=”Introduazca el dia de alquiler”

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

DiasDeAlquiler=Val(text1)

Kilometros=Val(Text2)

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

labelResultados.Text=”Los Kilometros recorridos es de “ & resultado”

Constpi As Single= 3.14

Dim D, R, H, V, Viltros, Tminutos As Single

Dim Canal As Double

Dim Q As Single

Label1=”introduzca aquí el diámetro del deposito en metros”

Label2=”Introduzcas aquí la altura del deposito, en metros

D=Val(Text1)

H=Val(Text2)

R= D/2

V= Pi*(R^ 2)*H

Viltros=V* 1000

Tminutos= Viltros/Q

Label3=&”EL tiempo que transcurría hasta el” &_”llenado del dispositivo es de” &tminutos&”minutos”

D DECLARACION VERDE

E ENTRADA MORADO

P PROCESO ROJO

S SALIDA CELESTE

C CONSTANTE NEGRO