Taller 3

Option Explicit On

Publish Class Formu

REM Declaracion de variables

Dim nota1, nota2, nota3, promedio As Single

REM Contenido de 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”

ButtomCalcular.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 Calculo y muestra resultados

Private Sub Bottom_Click(ByVal Sender As System. Object, ByVal E As System. Eventargs)Handles

BottomCalcular.Click

Nota1=Val(TextBox1.Text)

Nota2=Val(TextBox2.Text)

Nota3=Val(TextBox3.Text)

Promedio=(Nota1+Nota2+Nota3)/3

LabelResultados.Font=New Font(“Ariel”,10 FontStyle.Bold)

LabelResultados.TextAlign=CVontentAlignment.MiddleCenter

LabelResultados.Text=”el promedio es de”&promedio&)

End Sub

1-marque con letra roja la declaración de variables

2-De color morado las entradas de datos

3-De celeste los proceso o calculo

4-Y la salida de datos de color naranja

Option Explicit On

Public Class Form1

REM Declaración de variables

Const Pi As singles=3.141592654

Dim R, H, V As Singles

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 Calculo y muestra resultados

Private Sub Buttom1_Click(ByVal sender As System. Object, ByVal e As System.EventArgs)Handles

ButtomCalcular.Click

R=Val(textBox1.Text)/2

H=Val(textBox2.Text)

V= Pi*(R^2)*H

LabelResultados.Font=New Font(“Arial”,10, FontStyle.Bold)

LabelResultados.TextAling=ContentAlignment.MeddleCenter

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

End Sub

End Class