Reconocimiento de Variables, entrada de datos, procesos y salida

Calcular el promedio de tres notas sumativas

Option Explicit On

Public Class Form1

REM Declaración de variables

Dim nota1, nota2, nota3, promedio As Single

REM Contenido del formulario

Private Sub Form 1_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 de resultados

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventsArgs) 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 d” & promedio&“

End Sub

Simbología

1.      Marque con letras rojas la declaración de variables

2.      De color morado la entrada de datos

3.      De celeste, los procesos o cálculos

4.      La salida de datos de color naranja