Calcular el promedio de tres notas sumativas
Option Explicit On
Public Class Form 1
REM Declaración de variables
Dim nota1, nota2, nota3, promedio As Single
REM Contenido del formulario
Private Sub Form1_ Load (ByVal sender As System.
Object , ByVale e As System.EventArgs) Handles
MyBase. Load
Me. Text=” Cálculo promedio de 3 notas sumativas”
Button Calcular. 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
Button Calcular. Click
Nota1 = Val (textBox1.text)
Nota2 = Val (TextBox2.Text)
Nota3 = Val (TextBox3. Text)
Promedio = (Nota1 + Nota2 + Nota3)/3
Label Resultados.Font = NEW Font (“Arial”,10
FontStyle.Bold)
Label Resultados. TextAgain = ContentAligment.
MiddleCenter
LabeResultados.
Text = “El promedio es de “& promedio &”
End Sub
Option Explicit On
Public Class Form 1
REM declaración de
variables
Const Pi As Single= 3.141592654
Dim R,H,V As Single
REM Contenido de
formulario
Private Sub
Form1_Load (ByVal sender As System. Objects, ByVale e As System.
EventArgs)Handles
MyBase.Load
Me.Text= “Cálculo
volumen cilindro”
ButtonCalcular. Text
=”Calcular volumen”
Label1.Text = “Introduzca aquí el
diámetro, en metros”
Label2.Text = “Introduza aquí la altura,
en metros”
End Sub
REM Calculo y muestra
resultados
Private Sub
Button1_Click (By Val sender As System. Object, By val 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)
LabelResultados. Text
Align= ContentAlignment. MiddleCenter
LabelResultados.Text=”El volumen del
cilindro es de “&V&” metros cubicos”
End Sub
End Class
Instrucciones del A
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 (rojo)
Instrucciones del B
1.
Marque con letras
rojas la declaración de variable
2.
De color morado la
entrada de datos
3.
De celeste los
procesos o cálculos
4.
La salida de datos
color naranja
