Option Explicit
On
Public Class
Form1
REM Declaración
de variables
Const
Pi As Single= 3.141592654
Din 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=”Cálculo
volumen cilindro”
ButtonCalcular.Text=”Calcular
Volumen”
Label1.Text=”Introduzca aquí el
diámetro, en metros”
Label2.Text=”Introduzca aquí la
altura, en metro”
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)
LabelResultaodos.TextAlign=ContentAlignment.MiddleCenter
LabelResultados.Text=”El
volumen del cilindro es de “& V &” metros cúbicos”
End Sub
End Class
Option Explici On
Public Class Form 1
REM Declaración de variables
Dim nota1, ntoa2, 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”, 10FontStyle.Bold)
LabelResultados. TextAlign = ContetAlignment.MiddleCenter
LabelResultados.Text = “
El Promedio es de “ & promedio & “
End Sub