Question

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

补充完整
Sub SaveData()
Open App.Path & "PROGOUT.DAT" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Function Fun()
'********begin********

Next
'*********end*********
End Function

Private Sub Command1_Click()
d = Fun()
Text1.Text = d
SaveData
End Sub

Answer 1

小于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的整数部分】

Answer 2

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的整数部分】

Answer 3

ilm market in recent times. F