taller#2

B.

Calcular el promedio de tres notas sumativas

Option explicito on

Public class form1

REM declaración de variables

Dim nota1, nota2, nota3, promedio As single

REM contenido del formulario

Private sub form1_load(by val sender As system. Object, By val e As sistema. EventArgs)Handles

MyBase.Load

Me.Text=”calculo promedio de tres notas sumativas”

buttonCalcular.Text=”Calcular el promedio”

Label1.Text=”Introduzca la primera nota”

Label2.text=”introduzca la segunda nota”

Label3.text=”introduza la tercera nota”

End sub

REM calculo y muestra resultados

Private sub Button1_Click(ByVal sender As System.Object, By val e As System.EventArgs)Handles

ButtonCalcular.Click

Nota1=Val(TextBox1.Text)

Nota2=Val(TextBox2.Text)

Nota3=Val(TextBox2.Text)

Promedio =(Nota1+Nota2+Nota3)

LabelResultados.font0New Font(“Arial”,10,Fontstyle.Bold)

LabelResultados.TextAlign0ContentAlignment.Middle center

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

End sub