Estructura Iterativa Bucle While

Una estructura iterativa While permite repetir una o más instrucciones mientras la condición (Expresión lógica) sea verdadera, cuando la condición es falsa sale del bucle.

Sintáxis estructura Iterativa While

Problema 14

Una organización tiene punto de repartos de vacunas, cada día se registra con cuantas vacunas se inicia.
Crear un programa en Visual Basic que gestione las entregas (validar que la cantidad a entregar no sea mayor que el stock) y de un aviso cuando el stock es inferior a 10 unidades.

pseudocodigo

Diagrama de Flujo

Formulario

Código del Botón Nuevo

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

        txtStockInicial.Clear()

        txtStockFinal.Clear()

        txtCantidadPersonas.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 stock As Integer

        Dim cantPersonas As Integer, cantEntrega As Integer

        'Inicialización de variables

        cantPersonas = 0

        'Entrada de datos

        stock = Val(txtStockInicial.Text)

        'Empezamos a repartir las vacunas

        Do While (stock >= 10)

            cantEntrega = InputBox("Ingrese cantidad entregada persona " & (cantPersonas + 1), "Reparto de vacunas")

            'Validar que la cantidad entregada sea menor o igual

            'que el stock

            If (stock >= cantEntrega) Then

                cantPersonas = cantPersonas + 1

                stock = stock - cantEntrega

            Else

                MessageBox.Show("No hay suficiente stock", "Reparto de Vacunas", MessageBoxButtons.OK, MessageBoxIcon.Error)

            End If

        Loop

        MessageBox.Show("El stock es inferior a 10 und", "Reparto de Vacunas", MessageBoxButtons.OK, MessageBoxIcon.Information)

        'Salida de información

        txtStockFinal.Text = Convert.ToString(stock)

        txtCantidadPersonas.Text = Convert.ToString(cantPersonas)

    End Sub

Código del Botón Salir

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

        End

End Sub