现有以下程序：

Private Sub Command1_Click()

c1=0

c2=0

For i=1 To 100

If i mod 3 = 0 Then

c1=c1+1

ElseIf i Mod 7 =0 Then

c2=c2+1

End If

Next

Print c1+c2

End Sub

此程序运行后输出的是在1~100范围内（）。

A．同时能被3和7带队的整数个数

B．能被3或7整除的整数个数（同时被3和7整除的数只记一次）

C．能被3整除，而不能被7整除的整数个数

D．能被7整除，而不能被3整除的整数个数