Se requiere programación VB para calcular la cantidad de números del 1 al 1000 que pueden ser divisibles por 3,7 y su suma...Gracias...

atenuar i como entero

atenuar c como entero

atenuar a como entero

a=0

c=0

para i=1 a 1000

si (i mod 3=0) y (i mod 7=0) entonces

c=c 1

a=a i

endif

next

msgbox "Número de números del 1 al 1000 que son divisibles por 3,7 Los números son: " amp; c amp; vbcrlf amp; "La suma de estos números es: " amp; a