Red de conocimiento informático - Problemas con los teléfonos móviles - Programa VB para encontrar la suma de números pares divisibles entre 3 y 1000

Programa VB para encontrar la suma de números pares divisibles entre 3 y 1000

subcomando privado1_click()

atenuar i,s como entero

s=0

para i=0 a 100

si i mod 2=0 y yo mod 3=0 entonces

s=s+i

finaliza si

siguiente i

msgbox s

fin del sub