Copias

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