ejemplos de codificados en visual basic

A.

Option explicit on

Public class form 1

REM declaración de variables

Const pi as single = 3.141592654

Dim R, H, V as single

REM contenido del formulario

Private sub form1_load(byval sender as system. Objec t, byVal e As System. EventArgs) handles

MyBase.load

Me.text=”calculo volumen cilindro”

ButtonCalcular.text=”calcular volumen”

Label1text=”introduzca aquí el diámetro, en metros”

Label2.text=”introduzca aquí End sub la altura, en metros”

End sub

REM calculo y muestra resultados

Private Sub button1_Click(ByVal sender As Systems.Object, ByVal e As System. EventArgs)Handles button Calcular.Click

Button calcular.Click

R=val(textBox1.text)/2

H= val(textBox2.text)

V=pi *(R ^2)

LabelResultados.font =new Font (“arial”, 10, fontStyle.bold)

LabelResultados.textalign =Contentalignment.Middle center

LabelResultados.text=”elvolumen de cilindro es de “& V &” metros cúbicos”

End sub

End class