Calcular el promedio de tres
notas sumativas
Option
Explicit On
Public
Class Form 1
REM Declaracion de variables
Dim nota1, nota2,
nota3, promedio As Single
REM Contenido del formulario
Private
Sub Form1_Load(ByVal sendeer 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”
Lbel1.Text =
“introduzca la primera nota"
Lbel2.Text =
“introduzca la segunda nota"
Lbel3.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(TextBox1.Text)
Nota2 =
Val(TextBox2.Text)
Nota3 =
Val(TextBox 3.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 letra roja la
declaración de variables
2.
De color morado la
entrada de dato
3.
De celeste los procesos
o cálculos
4.
La salida de datos de
color naranja
Option
Explicit On
Public
Class Form1
REM
Declaración de variables
Const Pi As Single = 3.141592654
Dim R, H; V As Single
REM
Contenido del formulario
Private
Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs)
MyBase.Load
Me.Text
= “Cálculo volume cilindro”
Label1.Text = “Introduzca
aquí el diámetro, en metros”
Label2.Text = “Introduzca
aquí la altura, en metros”
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
R = Val(TextBox1.Text) / 2
H = Val(TextBox2.Text)
V = Pi * (R ^ 2) + H
LabelResultados.Font = New Font(“Arial”, 10,FontStyle.Bold)
LabelResultaods.TextAlign
= ContentAlignment.MiddleCenter
LabelResultados.Text
= “El volume del cilindro es de “ & V & “ metros cúbicos”
End Sub
End Class
1. Los datos de entrada
(celeste)
2.
Declaración de variable
(verde caña)
3.
Los procesos (amarillo)
4.
Los datos de salida
(rosado)
5.
Declaración de constante
(roja)