Estructura Iterativa Bucle Do While

Una estructura iterativa Do-While ejecuta al menos una vez su bloque repetitivo, a diferencia del while o del for que podían no ejecutar el bloque, este bloque de instrucciones se repetirán siempre que la condición sea verdadera.

Sintáxis Estructura Iterativa Do While

Problema 3

Hacer un programa en Visual Basic que permita validar el ingreso de notas (0-20) para “n” alumnos, es decir mientras la nota este fuera de ese rango el programa deberá indicar al usuario ingresar la nota, hasta que se ingrese la nota correcta; al final mostrar el promedio.

pseudocodigo

Diagrama de Flujo

Formulario

Código del botón Nuevo

Private Sub btnNuevo_Click(sender As Object, e As EventArgs) Handles btnNuevo.Click

        txtCantAlumnos.Clear()

        txtPromedio.Clear()

End Sub

Código del Botón Ingresar

Private Sub btnIngresar_Click(sender As Object, e As EventArgs) Handles btnIngresar.Click

        'Declaración de variables

        Dim cantAlumnos As Integer, nota As Integer, suma As Integer

        Dim promedio As Double

        suma = 0

        'Entrada de Datos

        cantAlumnos = txtCantAlumnos.Text

        'Proceso

        'Implementamos el bucle que pedirá los datos de los "n"

        'alumnos

        For i As Integer = 1 To cantAlumnos Step 1

            Do

               nota = InputBox("Ingrese la Nota del alumno " & i, "Notas")

            Loop While (nota < 0 Or nota > 20)

            suma = suma + nota

        Next

        promedio = suma / cantAlumnos

        'salida de Información

        txtPromedio.Text = promedio

    End Sub

Código del Botón Salir

Private Sub btnSalir_Click(sender As Object, e As EventArgs) Handles btnSalir.Click

        End

End Sub