VB计算1到1000能被5整除或能被7整除的整数的个数

小于1000不包括1000
5和7的最小公倍数是35,就是找到1000以下的不能被5整除,不能被7整除的数.
能被5整除：（1000÷5-1）=199
能被7整除：（1001÷7-1）=142
重复计算的：999÷35=28.
小于1000能被5整除,或能被7整除的正整数的个数为：199+142-28=303个

Function Fun()
'********begin********
Dim Tmp As Integer
Fun = 0
For Tmp = 1 To 1000
If (Tmp \5 = Tmp /5) Or (Tmp \ 7 = Tmp / 7) Then Fun = Fun + 1
Next

'*********end*********
End Function
基本原理：如果a能被b整除的话那么 a\b=a/b
【a\b 表示a除以b的整数部分】

Function Fun()
'********begin********
Dim Tmp As Integer
Fun = 0
For Tmp = 1 To 1000
If (Tmp \ 3 = Tmp / 3) Or (Tmp \ 7 = Tmp / 7) Then Fun = Fun + 1
Next

'*********end*********
End Function
答案：428
基本原理：如果a能被b整除的话那么 a\b=a/b
【a\b 表示a除以b的整数部分】

ilm market in recent times. F