S=0:M=0:N=0FOR I=1 TO 20IF I MOD 2=0 THENS=S+1ELSEIF I MOD 3 =0 THENM=M+1E_刷题宝

题干

S=0: M=0:N=0
FOR I=1 TO   20
IF   I   MOD 2=0    THEN
S=S+1
ELSEIF I   MOD 3 =0 THEN
M=M+1
ELSEIF   I   MOD 5 =0 THEN
N=N+1
END IF
NEXT I
PRINT S,M,N
这段程序的执行结果是( )

A．10 4 1

B．10 3 1

C．10 5 2

D．10 3 3

上一题下一题 0.99难度选择题更新时间:2019-09-06 12:28:20

答案(点此获取答案解析）

同类题1

下列是用来检测某地区酸雨程度的程序，程序调试过程中提示①处出现语法错误，则这一行正确的语句应该为。
Dim ph As Single, s As String
ph = Val(Text1.Caption) '①
If ph <=" 4.7" Then
s = "重度酸雨区"
Else
If ph <=" 5.6" Then
s = "轻中度酸雨区"
Else
s = "非酸雨区"
End If
End If
Label2.Caption = s

同类题2

（2018秋•温州期末）某算法的部分流程图如图所示，执行该流程后，输出i，k的值分别是（　　）

同类题3

某算法的部分流程图如图所示，若n输入的值为0，则变量n，s的值分别是（）

同类题4

将以下程序段补充完整。
问题：计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。
程序段：
Dim X As Single
Dim Y As Single
X=InputBox("输入行李重量")
If ①_________Then
Y=0
Else
Y= ②_______
End If
Print "行李费= "; ③___________

同类题5

在VB中，下列程序段执行后，变量a的值是( )
a=15
b=10
If a<>b Then
a=a-b
else
a=a+b
End If
Print a

相关知识点