Programación Vb entrada múltiplos del entero 7.

¿Oscuro? ¿Suma? ¿Como? Largo

¿Oscuro? ¿Bandera? ¿Como? Largo

¿Para qué? r? =?1?¿Adónde ir? 100

¿Y si? r? mod? 5?=?0?o? r? mod? 7?=?0?Entonces

¿Depurar.Imprimir? r? y amplificador? VbTab

¿Y si? ¿Bandera? mod? 5?=?0?Entonces

Depurar.Imprimir

¿Fin? Si

lFlag=lFlag+1

lSum=lSum? +?Raro

¿Fin? si

entonces

debug.print? ¿Cuál es la suma de todos los múltiplos de 5 o 7 entre 1 y 100? y amplificador? lSuma