Practica Numero 2

Ejemplo N°1

                2 Integer                             Dim A,B As Interger

5

                3 double                             Dim C, D, E As Double

Label1=”Introduzca el primer dato”

Label2=”Introduzca el segundo dato”

Label3=” Introduzca el tercer dato”

Label4=” Introduzca el cuarto dato”

E= A+B+C+D

Label5= (resultado de la suma de & E)

Ejemplo N°2

Dim H As Integer

Dim G As Integer

Dim J As Integer

Label1= “Introduzca la primera variable”

Label2= “Introduzca la segunda variable”

J= H/G

Label3=(resultado de la suma de & J

Ejemplo 3

Dim m As Integer

Dim k As Integer

Dim p As Integer

Label1=”Introduzca el primer dato”

Label2=”Introduzca el segundo dato”

Label3=” Introduzca el tercer dato”

M=K*P

Label 4 = (resultado de la multiplicacion & M

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