codificación

Calcular el promedio de tres notas sumativas

Option explicito n

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. EventArgs) 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 primera nota”

Label3.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(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 letra roja la declaración de variables

2. De color morado la entrada de datos

3. De celeste los procesos o cálculos

4. La salida de datos de color naranjs

Option Explicit On

Public Class Form1

REM Declaracion 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)Handles

MyBase.Load

Me.Text=”Calculo volume cilindro”

ButtonCalcular.Text=”Calcular Volumen”

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 Buttom1_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)

LabelResultados.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. declaracion de constante (rojo)