Dim i As Integer
Dim n As Integer
For i = 100 To 300
If (i Mod 3 = 0) And (i Mod 7 = 0) Then
n = n + 1
Print i
End If
Next
Print "能被二者同时整除的数共有" & n & "个。"
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024