Declaración de Variables 2

Option Explicit On

Public Class Form 1

REM Declaración de variables

Dim nota 1, nota 2, nota 3, promedio As Sinlge

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. EvenArgs) Handles

ButtonCalcular. Click

Nota 1 = Val (TextBox1. Text)

Nota 2 = Val (TextBox2. Text)

Nota 3 = Val (TextBox3. Text)

Promedio = (Nota1 + Nota2 + Nota3) / 3

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

LabelResultados.TextAlign = ContentAligment.MiddleCenter

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

End Sub