Programación VB: Del 1 al 100, ¿cuántos múltiplos de tres hay y cuántos múltiplos de 7 hay?

atenuar i, b, c

b =0

c =0

para i = 1 a 100

si (i mod 3) = 0 entonces

b = b 1

elseif (i mod 7) = 0 entonces

c = c 1

end if

siguiente

imprimir "Los múltiplos de tres son" amp; b

imprimir "Los múltiplos de siete son" amplificador; c