单项选择题

现有以下程序： 　　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整除的整数个数
<上一题 目录 下一题>
热门 试题

单项选择题
设菜单编辑器中各菜单项的属性设置如下表所示：针对上述属性设置，以下叙述中错误的是( )。
A．属性设置有错，存在“标题”与“名称”重名现象
B．运行程序，序号为“3”的菜单项不显示
C．运行程序，序号为“4”的菜单项不可用
D．运行程序，序号为“5”的菜单项前显示“√”
单项选择题
窗体的左右两端各有1直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Linel直线上(见图)；另有1个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interva1属性设置为1000，并编写了如下程序： Private Sub Timer1 Timer() For k=Line1．X1 To Line2．X1 Step 100 If Shape1．Left+Shape1．width Shape1．Left=Shape1．Left+100 End If Next k End Sub运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是( )。
A．把计时器的Interval属性设置为1
B．把For k=line1．X1 To Line2．X1 Step 100和Next k两行删除
C．把For k=Line1．X1 To Line2．X1Step 100改为For k=Line2．X1 To Line1．X1 Step 100
D．把If Shape1．Left+Shepe1．Width
相关试题