[单项选择题] 现有以下程序：Private Sub Command1_Click()c1=0c2=0For i=1 To 100If i mod 3 = 0 Thenc1=c1+1ElseIf i

[单项选择题] 现有以下程序：Private Sub Command1_Click()c1=0c2=0For i=1 To 100If i mod 3 = 0 Thenc1=c1+1ElseIf i Mod 7 =0 Thenc2=c2+1End IfNextPrint c1+c2End Sub此程序运行后输出的是在1~100范围内（）。

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

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

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

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