Ciclos While #2

Ciclos While en Visual Basic

En Visual Basic .NET, como en otros lenguajes, los ciclos repetitivos son estructuras que nos permite repetir líneas de código según una condición que hayamos establecido. Las estructuras repetitivas son de vital importancia  y le ahorran mucho tiempo y mucho código al programador; solo basta con declarar una variable y crear la condición y poner a correr nuestro Bucle.

Los ciclos While en Visual Basic.NET son una estructura cíclica, que nos permite ejecutar una o varias líneas de código de manera repetitiva sin necesidad de tener un valor inicial e incluso a veces sin siquiera conocer va a terminar el ciclo, los ciclos While, no dependen directamente de valores numéricos.

Ejemplo de Ciclo While en Visual Basic 

Para elaborar un programa que calcule el promedio de una X cantidad de alumnos se hace lo siguiente

Código del botón Nuevo

Prívate 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            

Para mas informacion ve a mi canal de YouTube

https://youtu.be/zYrN_3012B0