Declaración de variable 2

Ejemplo #1

Dim A,B, AS Integer

Dim C,D,E AS Double

Label1= “introduzca el primer dato”

Label2= “introduzca el segundo dato”

Label3= “introduzca el tercer dato”

Label4= Introduzca el cuarto dato”

E= A+B+C+D

Label5= (Resultado de la suma&E)

Ejemplo#2

Dim H AS integer

Dim  G AS integer

Dim J AS integer

Label1= “introduzca la primera variable”

Label2= “introduzca la segunda  variable”

J= H/G

Label= (“Resultado de la división, &J)

Ejemplo de declaración de variables

Ejemplo #1

Dim A,B, AS Integer

Dim C,D,E AS Double

Label1= “introduzca el primer dato”

Label2= “introduzca el segundo dato”

Label3= “introduzca el tercer dato”

Label4= Introduzca el cuarto dato”

E= A+B+C+D

Label5= (Resultado de la suma&E)

Ejemplo#2

Dim H AS integer

Dim  G AS integer

Dim J AS integer

Label1= “introduzca la primera variable”

Label2= “introduzca la segunda  variable”

J= H/G

Label= (“Resultado de la división, &J)

Tarea

Tarea

Declare las variables de Visual Basic de los siguientes programas
1. Calcule el promedio de 3 notas
2. Divida 2 números enteros
3. Calcule la temperatura en ºC
4. Calcule el seguro social

1. Dim A As float
Dim B As float
Dim C As float

2. Dim E As Int
Dim F As Int

3. Dim M As Int

4. Dim RP As float
Dim CH As Int

Declaración de Variables 2

Option Explicit On

Public Class Form 1

REM Declaración de variables

Dim nota 1, nota 2, nota 3, promedio As Sinlge

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. EvenArgs) Handles

ButtonCalcular. Click

Nota 1 = Val (TextBox1. Text)

Nota 2 = Val (TextBox2. Text)

Nota 3 = Val (TextBox3. Text)

Promedio = (Nota1 + Nota2 + Nota3) / 3

LabelResultados.Font = New Font (“Arial”, 10, FontStyle.Bold)

LabelResultados.TextAlign = ContentAligment.MiddleCenter

LabelResultados.Text = “El promedio es de “& promedio&”

End Sub

Declaración de Variables

Option Explicit On

Public Class Form 1

REM Declaración de variables

Const Pi As Single = 3.141592654

Dim R, H, V As Single

REM Contenido del formulario

Private Sub Form 1_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles

MyBase. Load

Me. Text = “Calcular 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. Event Args) 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”

End Sub

End Class