Option Explicit On

Public Class Form1

REM Declaración de variables

Const Pi As Single= 3.141592654

Din R, H, V As Single

REM Contenido Del Formulario

Private Sub Form1_Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MyBase.Load

Me.Text=”Cálculo volumen cilindro”

ButtonCalcular.Text=”Calcular Volumen”

Label1.Text=”Introduzca aquí el diámetro, en metros”

Label2.Text=”Introduzca aquí la altura, en metro”

End Sub

REM Cálculo y muestra resultados

Private Sub Button1_ Click(ByVal sender As System.Object.ByVal e As System.EventArgs)Handles

ButtonCalcular.Click

R=Val(TextBox1.Text)/2

H=Val(TextBox2.Text)

V=Pi*(R^2)*H

LabelResultados.Font=New Font(“Arial”, 10,FontStyle.Bold)

LabelResultaodos.TextAlign=ContentAlignment.MiddleCenter

LabelResultados.Text=”El volumen del cilindro es de “& V &” metros cúbicos”

End Sub

End Class

Option  Explici On

Public Class Form 1

REM Declaración de variables

Dim nota1, ntoa2, nota3, promedio As Single

REM Contenido del formulario

Private Sub Form1_ Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MyBase.Load

Me.Text= “Cálculo promedio de 3 notas sumativas”

ButtonCalcular.Text= “Calcular el promedio”

Label1.Text = “Introduzca la primera nota”

Label2.Text = “Introduzca la segunda nota”

Label3.Text = “Introduzca la tercera nota”

End Sub

REM Cálculo y muestra resultados

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

ButtonCalcular.Click

Nota1 = Val(TextBox1.Text)

Nota2 = Val(TextBox2.Text)

Nota3 = Val(TextBox3.Text)

Promedio = (Nota1+Nota2+Nota3)/3

LabelResultados. Font = New Font(“Arial”, 10FontStyle.Bold)

 LabelResultados. TextAlign = ContetAlignment.MiddleCenter

LabelResultados.Text = “ El Promedio es de “ & promedio & “

End Sub