Estructura Iterativa Bucle Do - While - Programación Visual Basic. Net con Visual Studio 2013 (15-25)

En este artículo  revisaremos la estructura iterativa bucle Do While en el lenguaje de programación Microsoft Visual Basic. Net, desarrollaremos un ejemplo para entender mejor el uso de la estructura iterativa bucle Do While utilizando el IDe Microsoft Visual Studio 2013.

Pueden ver los vídeos directamente en youtube:

https://www.youtube.com/watch?v=33uPg7kEPic&list=PLZPrWDz1MoloGD4irFB-YMIKvUYNu1i3m&index=1

Visita nuestro canal en youtube donde encontrarás cursos completos de Desarrollo de software y aprende a diseñar sistemas informáticos totalmente gratis:

www.youtube.com/jcarlosad7

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 13

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.

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            

Estructura Iterativa Bucle Do While (15-25) Programación Visual Basic. Net con Visual Studio 2013 

Saludos imperio, un abrazo a la distancia.