利用vb一级 编写程序,求在10~1000之间所有能被4除余3,被7除余5,被9除余2的数之和.

Dim n As IntegerDim m As IntegerFor n = 10 To 1000If (n Mod 4) = 3 And (n Mod 7) = 5 And (n Mod 9) = 2 Then m = m + nNext nPrint m