单选题现有以下程序：
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整除的整数个数

【正确答案】 B

【答案解析】[解析] 在For语句中，如果i的值能被3整除，则c1的值加1；如果i的值能被7整除，则c2的值加1。如果i的值同时能被3和7整除，满足被3整除的条件，则只执行c1=c1+1，不会再执行c2=c2+1，可见，同时被3和7整除的数只记一次。