问题详情

现有以下程序：
Private Sub Command1 Click()
c1=0
c2=0
For i=1 To 100
If i Mod 3=0 Then
c1=c1+1
Else If i Mod 7=0 Then
c2=c2+1
End If
Next i
Print c1+c2
End Sub
此程序运行后输出的是在1～100范围内()。
A.同时能被3和7整除的整数个数
B.能被3或7整除的整数个数(同时被3和7整除的数只记一次)
C.能被3整除，而不能被7整除的整数个数
D.能被7整除，而不能被3整除的整数个数请帮忙给出正确答案和分析，谢谢！