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

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

    今天学习编写某个区间之间同时被某几个数整除的编写程序，以下是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

 

     这个程序是一个很好的学习工具，对于我们的学习与生活都有很大的帮助，我们应该学会让vb成为我们的工具，为我所用。这个程序其实编写起来有很大的难度，我通过百度的帮助，才写出了程序，对于vb语言我们应该更加深入的学习。