Question

重金悬赏：VB编程求0~100内能被3和7整除的数,并统计其个数

急急急啊！！！

Answer 1

‘主程序代码如下：
for i = 0 to 100 step 1
p=i mod 3
q= i mod 7
if (p=0 and q=0) then
print i
n=n+1
endif
next i

print "总共有" & n & "个。"

Answer 2

Private Sub Command1_Click()
Dim i As Long
Dim a As Long
For i = 0 To 100
If i Mod 3 = 0 And i Mod 7 = 0 Then
a = a + 1
Print i
End If
Next
Print a
End Sub