Option Explicit On

Public Class Form1

REM Declaracion de variables

Dim nota1,nota2, nota3, promedio As Single

REM Contenido del formulario

Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As Syntem.Event Args) Handles

MyBase.Load

Me.Text = “Calculo 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 Calculo y muestra resultados

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As Syntem.Event Args) 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”, 10,FontStylo.Bold)

LabelResultados.TextAlign = ContentAlignment.MiddleCenter

LabelResultados.Text = “E3l promedio es de “ & promedio & “

End Sub

Option Explicit On

Public Class Form1

REM Declaracion 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.Object, ByVal e As System.EventArgs) Handles

MyBase.Load

Me.Text = “Calcular Volumen cilindro”

ButtonCalcular.Text = “Calcular Volumen”

Label1.Text = “Introduzca aquí el diametro, en metros”

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

End Sub

REM Calculo y muestra resultados

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

ButtonCalcular.Click

R = Val(TextBox1.Text) / 2

H = Val(TextBox2.Text)

V = Pi * (R  2) * H

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

LabelResultaods.TextAlign = ContenAlignment.MiddleCenter

LabelResultados.Text = “El volumen del cilindro es de “& V &” metros cubicos”

End Sub

End Class

Indicaciones

1. colocar de color rojo la variable declaradas
2. color verde los procesos de calculos
3. color morado las constante
4. Label1,2   naranja