Option
Explicit On
Public
Class Form1
REM Declaracion de variables
Dim
nota1, nota2, nota3, pomedio 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 segunda nota”
Label3. Text=”Introduzca la tercera nota”
End Sub
REM Calculo y muestras 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
Indicaciones:
Marque con letras rojas la
declaración de variables
De color morado las entradas de
datos
De celeste los procesos o cálculos
La Salida de datos de naranja
Option Explicit On
Public Class Form 1
REM Declaracion de variables
Const Pi As Single =
3.141592654
Dim R, H, V As
Single
REM Contenido de formulario
Pribate Sub Form1_Load(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handless
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 muestro 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) /2
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 cubicos”
