Option Explicit On

Public Class Form1

REM Declaracion de variables

Dim nota1, nota2, nota3, promedio As Single

REM Contenido de formulario

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e 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”,10,FontStyle.Bold)

LabelResultados.TextAlign = ContentAligment.MiddleCenter

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

End Sub