Ciclos Anidados en Visual Basic .NET

1. Construya el pseudocódigo, diagrama de flujo y el código para obtener la suma de una pareja de números enteros proporcionado por un número indeterminado de personas. El final se da cuando el total sea mayor a 100.

TOTAL_MAXIMO_100

{Suma todos los números leídos hasta que el total sea mayor a 100}

{Total es la variable para acumular los números}

1. Total = 0 ‘Se asigna un valor de cero al acumulador
2. Hacer mientras Total<=100 ‘Ciclo para las personas
3. Repetir para i desde 1 hasta 2 ‘Todas las personas tienen derecho a proporcionar
Leer Num ‘ dos números.
Total=Total+Num
4. Fin Repetir
5. Fin Ciclo
5. Escribir Total

‘ Código para el botón btnSuma
Dim Num, Total As Double
Total = 0
Do While Total <=100 ‘Ciclo exterior

Loop
MsgBox «Total: «&CStr(Total)