编写程序:求在5000以内能被17或者23整除的正整数的个数
编写程序:求在5000以内能被17或者23整除的正整数的个数
日期：2018-08-04 02:27:59 人气：1
Private Sub Command1_Click()
Dim i As Integer, n As Integer
For i = 1 To 5000
If i Mod 17 = 0 Or i Mod 23 = 0 Then _
n = n + 1
Next
Print n
End Sub