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”