Ejemplos de codificados en Visual Basic

Calcular el promedio de tres notas sumativas

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+Notta2+ 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 letras rojas la declaración de variables.

2.    De color morado la entrada de datos

3.    De celeste los procesos o cálculos

4.    La salida de datos de color naranja

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 Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventtArgs) 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 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”

1. Los datos de entrada celeste

2. Declaración de variables verde caña

3. Los procesos amarillos

4. Los datos de salida rosado

5. Declaración de constante rojo