Más ejemplos de codificación

Verde- D

Morado- E

Rojo- P

Celeste- S

Negro- C

Ejemplo 1:

Dim b, h As Double

Dim área As Integer

b = TextBox1.Text

h = TextBox2.Text

área = b*h/2

TextBox3.Text = Trim(área)

Ejemplo 2:

ConstAlquilerDelAuto = 700

ConstKilometrosRecorrido = 750

               

DimDiasDeAlquiler As Integer

DimKilometrosRecorridos, Resultado As Integer

Label1.Text= “introduzca el día de alquiler”

Label2.Text= “introduzca los kilómetros  recorrido”

Resultado= (DiasDeAlquiler * AlquilerDelAuto) +

(kilometrosRecorrido * Kilometros)

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

Ejemplo 3:

Const Pi 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 el depósito, en metros”

Label2 = “Introduzca aquí la altura del depósito, en metros”

D = Val(Text1)

H = Val(Text2)

R = D / 2

V = Pi * ( R ^ 2 ) * H

Viltros  = V * 1000