La programación VB genera todos los múltiplos de 5 dentro de 100. ¿Cuántos números hay? Y encuentra la suma de todos estos números.

dim?Total5?as?integer

dim?Sum5?as?integer

dim?i?as?integer

para ?i=1?a?100

si?i?mod?5=0?entonces

Total5=Total5+1

Suma5=Suma5+i

end?if

siguiente

msgbox?" Los múltiplos de 5 son: "?&?Total5?&?", y su suma es: " ? &?Suma5