EJERCICIOS

PROCESOS SECUENCIALES

PROBLEMA 01. Mostrar los múltiplos de 3 comprendidos entre los números 1 y 20.

PROBLEMA 02. Hallar A+B-C+100.

PROBLEMA 03. Obtener (a-b)(a+b).

PROBLEMA 04. Dos Atletas recorren la misma distancia y se registra sus tiempos en minutos y segundos. Se desea saber el tiempo total utilizando por ambos atletas en horas, minutos y segundos.

PROBLEMA 05. Dada una cantidad expresada en pies, y otra en metros. Determinar la suma pero convertida a pulgadas, a yardas, a metros y a millas por separado. Considere las siguientes equivalencias:
1 milla = 1609 metros, 1 pulgada = 0.0254 metros, 1 yarda = 3 pies, 1 pie = 12 pulgadas.

PROBLEMA 06. Dadas dos tanques llenos de agua cuyas capacidades están dadas en litros y en yardas cúbicas. De la cantidad total de agua: el 75% se dedica al consumo domestico y el 25% se dedica al riego. Diseñe un programa que haga lo siguiente:
Determine la cantidad total de agua expresada en metros cúbicos y en metros cúbicos.
Determine las cantidades de agua dedicada al riego y al consumo doméstico expresada en metros cúbicos y en pies cúbicos. Considere los siguientes factores de conversión:
1 pie cúbico = 0.0283 metros cúbicos, 1 metro cúbico = 1000 litros, 1 yarda cúbica = 27 pies cúbicos.

PROCESOS CONDICIONALES

PROBLEMA 07. Dado un número verificar si es positivo, negativo o nulo

PROBLEMA 08. El gobierno ha implementado como parte de su programa social, un subsidio familiar bajo la siguiente reglamentación:

• a) Las familias que tienen hasta 2 hijos, reciben S/. 70.00, las que tienen hasta 3 y 5 reciben S/. 90.00 y las que tienen 6 o más reciben S/: 120 mensual.
  
• b) Por cada hijo en edad escolar reciben S/. 10.00 adicionales. Se considera la edad escolar entre 6 y 18 años.
  
• c) Si la madre de familia fuera viuda, la familia recibe S/. 20.00 adicionales.
  

Determinar el monto mensual que recibirá una familia de acuerdo a su realidad familiar.

EJERCICIO EJEMPLO Nº 1

El código será algo como lo que se muestra a continuación. Antes de escribir el código tenemos que crear los objetos (controles) a que vamos a hacer referencia en el código, en concreto crearemos 6 labels, 4 TextBox y un botón.

Rem Curso Visual Basic aprenderaprogramar.com
Option Explicit
Rem Declaración de variables
Dim Turismos%, Todoterrenos As Integer
Dim Capturismos!, Captodot As Single
Dim Necesidadescom As Single

Rem Contenido del formulario
Private Sub Form_Load()
Form1.Caption = "Cálculo de necesidades combustible"
Label1(0) = "Por favor introduzca estos datos"
Label1(1) = "Número de turismos"
Label1(2) = "Número de todoterrenos"
Label1(3) = "Capacidad de turismos (litros)"
Label1(4) = "Capacidad de todoterrenos (litros)"
Command1.Caption = "Aceptar"
End Sub

Rem Cálculo y muestra resultados
Private Sub Command1_Click()
Label2.ForeColor = vbBlack
Label2.FontBold = True
Turismos = Val(Text1(0))
Todoterrenos = Val(Text1(1))
Capturismos = Val(Text1(2))
Captodot = Val(Text1(3))
Necesidadescom = Turismos * Capturismos + Todoterrenos * Captodot
Label2 = "Las necesidades totales de combustible son de " & Necesidadescom & " litros"
End Sub

EJERCICIO EJEMPLO Nº2

Transformar en código el pseudocódigo que se muestra a continuación, relativo a proporcionar el volumen de un cilindro dados su altura y diámetro.

1.  Inicio

2.  Mostrar “Introduzca el diámetro, en metros” : Pedir D 

3.  Mostrar “Introduzca la altura, en metros” : Pedir H 

4.  R = D/2 : Pi = 3,141593

5.  V = Pi * (R ^ 2) * H

6.  Mostrar “El volumen del cilindro es de”, V, “metros cúbicos”

7.  Fin

SOLUCIÓN EJERCICIO EJEMPLO Nº2

Creamos un formulario donde insertamos dos Labels (podemos usar arrays de controles como Label1(0) yLabel1(1)) ó simplemente dos controles como Label1 y Label2, dos TextBox (podemos decir lo mismo que para los labels)y un Label para resultados al que vamos a ponerle nosotros el nombre y que llamaremos (LabelResultados), así como un botón al que llamaremos ButtonCalcular. El primer Label mostrará el mensaje de solicitud del diámetro y el segundo Label el correspondiente a la altura. A través de los TextBox el usuario introducirá los datos solicitados y a través del Label de resultados mostraremos los resultados. El código será algo así:

Rem Curso Visual Basic aprenderaprogramar.com
Option Explicit
Rem Declaración de variables
Const Pi As Single = 3.141592654
Dim R!, H!, V As Single

Rem Contenido del formulario
Private Sub Form_Load()
Form1.Caption = "Cálculo volumen cilindro"
ButtonCalcular.Caption = "Calcular Volumen"
Label1.Caption = "Introduzca aquí el diámetro, en metros"
Label2.Caption = "Introduzca aquí la altura, en metros"
End Sub

Rem Cálculo y muestra resultados
Private Sub ButtonCalcular_Click()
R = Val(Text1) / 2
H = Val(Text2)
V = Pi * (R ^ 2) * H
LabelResultados.FontSize = 10
LabelResultados.FontBold = True
LabelResultados.Alignment = 2
LabelResultados = "El volumen del cilindro es de " & V & " metros cúbicos"
End Sub

EJERCICIO EJEMPLO RESUELTO Nº3

Transformar en código el pseudocódigo que se indica a continuación, relativo a proporcionar el precio medio de un producto, calculado a partir del precio del mismo en tres establecimientos distintos.

1.  Inicio 2.  Mostrar “Introduzca el precio del producto en el establecimiento número 1, en euros” : Pedir Precio1 3.  Mostrar “Introduzca el precio del producto en el establecimiento número 2, en euros” : Pedir Precio2 4.  Mostrar “Introduzca el precio del producto en el establecimiento número 3, en euros” : Pedir Precio3     5.  Media = (Precio1 + Precio2 + Precio3) / 3   6.  Mostrar “El precio medio del producto es”, Media, “Euros”  7.  Fin

SOLUCIÓN EJERCICIO EJEMPLO Nº3

En el formulario insertamos tres Labels y tres TextBox para petición de datos, así como un botón y un Label para cálculo y muestra de resultados. El código será algo así:

Rem Curso Visual Basic aprenderaprogramar.com
Option Explicit
Rem Declaración de variables
Dim Precio1!, Precio2!, Precio3!, Media As Single

Rem Contenido del formulario
Private Sub Form_Load()
Form1.Caption = "Cálculo precio medio producto"
ButtonCalcular.Caption = "Calcular precio medio"
Label1.Caption = "Introduzca aquí el precio en establecimiento nº1, en euros"
Label2.Caption = "Introduzca aquí el precio en establecimiento nº2, en euros"
Label3.Caption = "Introduzca aquí el precio en establecimiento nº3, en euros"
End Sub

Rem Cálculo y muestra resultados
Private Sub ButtonCalcular_Click()
Precio1 = Val(Text1)
Precio2 = Val(Text2)
Precio3 = Val(Text3)
Media = (Precio1 + Precio2 + Precio3) / 3
LabelResultados.FontSize = 10
LabelResultados.FontBold = True
LabelResultados.Alignment = 2
LabelResultados = "El precio medio del producto es de " & Media & " euros"
End Sub