La programación en Vb divide 7
Etiqueta I como un número entero
Para i=500 a 1000
Si mod 5=0, mod 7=0, entonces
Imprime I;" Puede ser divisible por 5 y 7"
Entonces si no mod 5=0
Imprimir I; "Puede ser divisible por 5"
Entonces si no mod 7= 0
Imprimir I; "Divisible por 7"
Terminará si...
Entonces