Taller Formativo #2

Ejemplo 1

D= Dim b,h As Double

      Dim area As Integer

P= b= TextBox1 .Tetx

     h= TextBox2. Text

     area= b*h/2

     TextBox3. Text = Trim(area)

    

Ejemplo 2

C= ConstAlquilerDelAuto = 700

     ConstKilometrosRecorrido = 750

D= DimDiasDe Alquiler As Integer

      DimKilometrosRecorridos, Resultado As Integer

E= Label1.text = “Introduzca el día de alquiler”

     Label2.text = “Introduzca los kilómetros recorridos”

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

P= DiasDe Alquiler = Val(Text1)

      Kilometros = Val(Text2)

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

Ejemplo 3

C= Const Pi As Single = 3.14

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

     Dim Canal As Single

     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 transcurría hasta el” &_ “llenado del depósito es de” &minutos& “minutos”

                                 

 D-verde

E- morado

P- rojo

S-celeste

C- negro