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
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