Programación Vba suma del 1 al 100

¿Sub? Calcular la suma de números pares e impares ()

¿Dim? uno,? b,? c

¿Respuesta? =?0

b? =?0

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

c? =?Yo? Mod? 2

¿Y si? ¿do? =?1?Entonces

¿Respuesta? =?¿Respuesta? +?Yo

Otros

b? =?b? +?I

¿Fin? ¿Y si

Siguiente? Yo

¿MSG? =?msgbox("La suma impar de 1-100:"?& amp?Respuesta?& amp?La suma de números pares es?& amp?b,?vbOKOnly,?"Resultado del cálculo")

¿Fin? Archivos adjuntos subidos