0到2000内能同时被17和37整除的数

dim i as long
for i=0 to 2000
   if (i mod (17* 37))=0 then
      print i
      end if
   next i

这个小程序是自己编的，运用了for....next,if...then...else...end if.点鼠标的时候就会输出两千以内能同时被17和37整除的数。

其实这个程序还有一点不足，就是：if (i mod (17* 37))=0 then，这里用17*37有点不妥，但是不妨碍这个程序的结果，主要原因是17和37是素数！！！