Práctica de programación #2

Ejemplo# 1

2(Integer)

Dim A, B As Integer

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, & E”)

Ejemplo #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 división, & 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”

P= M*K

Label3= (“Resultado de la multiplicación, & P”)

Práctica de Codificación de VB

Práctica

Ejemplo1:

D

Dim b, h As Double

Dim área As Integer

P

b= TextBox1.Text

h= TextBox2.Text

area = b*h/2

TextBox3.Text= Trim(area)

Ejemplo2:

C

 ConstAlquilerDelAuto = 700

ConstKilometrosRecorrido = 700

D

DimDiasDeAlquiler As Integer

DimKilometrosRecorridos, Resultado As Integer

E

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

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

P

DiasDeAlquiler = Val(Text1)

Kilometros = Val(Text2)

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

S

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

Ejemplo3:

C

 Const Pi As Single = 3.14

D

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

Dim canal

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 transcurrirá hasta el”&_”llenado del depósito es de “&tminutos& ”minutos”