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