Calcular Promedio 2

Option Explicit On

Public Class Form1

REM Declaracion de variables

Dim nota1, nota2, nota3, pomedio 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=”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 muestras 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”, 10, FontStyle.Bold)

LabelResultados.TextAlign=ContentAlignment.MiddleCenter

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

End Sub

Indicaciones:

Marque con letras rojas la declaración de variables

De color morado las entradas de datos

De celeste los procesos o cálculos

La Salida de datos de naranja

Option Explicit On

Public Class Form 1

REM Declaracion de variables

Const Pi As Single = 3.141592654

Dim R, H, V As Single

REM Contenido de formulario

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

Handless

MyBase.Load

Me.Text = “Calculo volumen cilindro”

ButtonCalcular.Text = “Calcular Volumen”

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

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

End Sub

REM Calculo y muestro 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) /2

V= Pi*(R^2)*H

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

LabelResultados.TextAlign = ContentAlignment.MiddleCenter

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