Calcular el promedio de tres notas sumativas
Option Explicit On
Public Class Form1
REM Declaracion de variables
Dim nota1, nota2, nota3, promedio As Single
REM Contenido del Formulario
Private Sub Form1_Load (ByVal sender As System.Object,
ByVal e As System.EvenArgs) 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=Text”Introduzca
la tercera nota”
End
Sub
REM
Calculo y muestra resultados
Private Sub Button1_Click(ByVal sender As
SYSTEM.Object, ByVal e As System.EventArgs) Handles
ButtonCalcular.Click
Nota1=Val(TexrtBox1.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
1.
Marque con letras
rojas la declaración de variables
2.
De color morado
las entradas de dato(label)
3.
De celeste los
procesos o cálculos
4.
Salida de dato
color naranja