Download Elaborar un programa que calcula el salario neto

Document related concepts
no text concepts found
Transcript
Tema 9. Estructuras de repetición
“Repetir Mientras”
Sintaxis de la estructura “repetir mientras” en Visual Basic
Forma 1
Forma 2
Do While expresión lógica
While expresión lógica
Una o más instrucciones (1)
Loop
Una o más instrucciones (1)
End While
EJERCICIO No. 1
Dado un conjunto de valores de diámetros de los árboles de una
parcela, calcular la cantidad de árboles que pueden ubicarse
dentro de cada una de las siguientes categorías:
Categoría de diámetro (cm)
≤ 10
(10,20]
> 20
EJERCICIO No. 2
Programa que calcula la suma y la media aritmética de
un conjunto de números. No se conoce de antemano
cuántos números se van a introducir.
Cada vez que se introduce un número se muestra un MsgBox
donde se pregunta si se desea introducir un nuevo número, si la
respuesta es sí, aparece un InputBox para escribir el siguiente
número, si es no, entonces se muestran la suma, la media
aritmética y la cantidad de números procesados.
Sintaxis completa MsgBox
Variable = Msgbox (“mensaje”, tipo_MsgBox, “título”)
Tipo de MsgBox
0
1
2
3
4
5
Botones que aparecen
Aceptar
Aceptar y Cancelar
Abortar, Reintentar, Ignorar
Sí, No, Cancelar
Sí, No
Reintentar, Cancelar
Valores de retorno de un MsgBox
Valor
1
2
3
4
5
6
7
Significado
El usuario hizo clic en el botón Aceptar
El usuario hizo clic en el botón Cancelar
El usuario hizo clic en el botón Abortar
El usuario hizo clic en el botón Reintentar
El usuario hizo clic en el botón Ignorar
El usuario hizo clic en el botón Sí
El usuario hizo clic en el botón No
Sub Main()
Dim num, suma, media As Single
Dim can_num As Integer
Dim resp As Byte
suma = 0
can_num = 0
resp = 6
Do While resp = 6
num = InputBox("Escriba un número:", "ejemplo 2")
suma = suma + num
can_num = can_num + 1
resp = MsgBox("¿Desea introducir otro número?", 4, "ejemplo 2")
Loop
media = suma / can_num
MsgBox("Números procesados = " & can_num & Chr(10) & "Suma = " & suma &
Chr(10) & "Media = " & media)
End Sub
EJERCICIO No. 3
Una facultad necesita un programa para
obtener la siguiente información acerca de sus
estudiantes:
-Número de estudiantes del sexo femenino
-Número de estudiantes del sexo masculino
-Promedio general de los hombres
-Promedio general de las mujeres
Asumir que el número de estudiantes es
conocido previamente por el usuario