Forma 1 Do While expresión lógica Una o más instrucciones (1) Loop

1. Tema 9. Estructuras de repetición “Repetir Mientras” Sintaxis de la estructura “repetir mientras” en Visual Basic Forma 1 Do Whileexpresión lógica Una o más instrucciones (1) Loop Forma 2 Whileexpresión lógica Una o más instrucciones (1) EndWhile

2. 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:

3. 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.

4. Sintaxis completa MsgBox Variable = Msgbox (“mensaje”, tipo_MsgBox, “título”)

5. Valores de retorno de un MsgBox

6. Sub Main() Dimnum, suma, media As Single Dimcan_numAs Integer Dimresp As Byte suma = 0 can_num = 0 resp = 6 Do Whileresp = 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

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