Ejemplos de codificados en Visual Basic

Calcular el promedio de tres notas sumativas

Option Explicit On

Public Class Form 1

REM Declaracion de variables

Dim nota1, nota2, nota3, promedio As Single

REM Contenido del formulario

Private Sub Form1_Load(ByVal sendeer 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”

Lbel1.Text = “introduzca la primera nota"

Lbel2.Text = “introduzca la segunda nota"

Lbel3.Text = “introduzca la tercera nota"

End sub

REM Calculo 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(TextBox 3.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

   1.     Marque con letra roja la declaración de variables

   2.    De color morado la entrada de dato

   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.EventArgs)

        MyBase.Load

        Me.Text = “Cálculo volume cilindro”

        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)

         LabelResultaods.TextAlign = ContentAlignment.MiddleCenter

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

         End Sub

         End  Class

1.        Los datos de entrada (celeste)

2.       Declaración de variable (verde caña)

3.       Los procesos (amarillo)

4.       Los datos de salida (rosado)

5.       Declaración de constante (roja)