Práctica

(Declaración de variable)

1)Option Explicit On

Public Class Form1

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, ByVal e As System. EventArgs) Handles

MyBase.Load 

Me. Text= “Cálculo promedio de 3 notas sumativas”

ButtonCalcular. 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

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-Y la salida de dato de color naranja 

 

2)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 Sun Form1_Load(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles

MyBase.Load

Me.Text = “Calculo volumen 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 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)

LabelResultados.TextAlign = ContentAlignment.MiddleCenter

LabelResultados.Text = “El volumen del cilindro es de “ & V &” metros cúbicos

End Sub

End Class

1-     Los datos de entrada-Celeste

2-    Declaración de variables-Verde caña

3-    Los procesos-Amarillo

4-   Los datos de salida-Rosado

5-    Declaración de variables-Rojo