Taller de declaración de variables

Taller de declaración de variables en Visual Basic

Declarar las siguientes variables en VB:

N. V.                                                                  T. D.

Dim Suma                     as                                   float

Dim Cantidad                      as                                   integer

Dim Sum-Ban                      as                                   double

Dim Nom                      as                                   char

Dim Dire                      as                                   char

Dim Residuo                        as                                   float

Dim Prog                      as                                   bool

Dim Redes                    as                                   char

Dim Eda                            as                                   bool

Dim Resta                     as                                   single

Dim Div                             as                                   single

Dim Multi                     as                                   float

Dim Mat                      as                                   single

Dim Lib                       as                                   char

Dim Tipos                     as                                   single

Dim Dat                        as                                   float

Dim AB                        as                                   bool

Dim VS                         as                                   double

Dim Saldo                            as                                   float

Dim Sueldo                           as                                             single Dim Tecla                     as                                   char

Dim Esc                        as                                   single

Dim cod                        as                                   float

Dim cont                       as                                   bool

Dim T-fila                     as                                   double                         

Dim T-columna               as                                  float

Dim Si                           as                                   bool

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