1000~2000之间能同时被17和37整除的数的编程

代码编写：

Function  Judge  (N  as  Integer)  as  Boolean
Judge   =N  Mod  17*37=0
End  Function
 
Private  Sub  Command1_()
Dim  i  as  Integer
For  i=1000  To   2000
If  Judge  (i)  then
Private   i
End  If
Next 
End  Sub