Programación V Encuentra el número de números entre 200 y 400 que son divisibles por 3 pero no divisibles por 7.
Subcomando privado1_Click()
Atenuar c mientras
Para b = 200 a 400
Si InStr(1, b / 3, ".") = 0 And InStr(1, b / 7, ".") lt 0 Entonces
c = c 1
End If
Siguiente
MsgBox "El número de números entre 200 y 400 que son divisibles por 3 pero no divisibles por 7 es" amp c amp ""
End Sub;