Sub test16（ ）
X=9
For i=2 To 51 Step 3
If （X/2）＞=i Then X=X+1
Next i
For i=2 To-2 Step-3
If （X/2）＞=i Then X=X+1
Next i
MsgBox （X+i）
End Sub
该程序的运行结果是（ ）
【答案】B
【解答】
【点评】
声明：本试题解析著作权属菁优网所有，未经书面同意，不得复制发布。
发布：2024/4/20 14:35:0组卷：5引用：2难度：0.5
相似题
-
1．编写程序查找字符串中最长连续相同字符的长度：
横线处可选代码为：①h②h=0③h=h+1④Mid（s,i,l）=Mid（s,i+1，1）⑤Mid（s,i,1）=Mid（s,i-1，1），则①②③处语句依次为（ ）发布：2025/1/2 10:30:2组卷：1引用：1难度：0.4 -
2．下列选项中，与语句“Ifx＞188 Then y=x*0.5 Else y=x*0.8“功能相同的是（ ）
发布：2025/1/2 10:30:2组卷：1引用：2难度：0.5 -
3．有程序代码如下，输入某数据后，输出结果为“B”。那么输入的数据可能是（ ）
Dim score As Integer
score=Val（InputBox（“score：“））
If score＞89 Then
Print“A“
Else
If score＞59 Then
Print“B“
Else
Print“C“
End If
End If发布：2025/1/2 12:0:1组卷：0引用：1难度：0.6
