下面程序在调试时出现了死循环Private Sub Command1_Click（）n=InputBox（“请输入一个整数”）DoIf n Mod 2=0 Thenn=n+1Elsen=n+2Else IfLoop Until n=1000End Sub下面关于死循环的叙述中正确的是（ ）。A．只有输入的n是偶数时才会出现死循环，否则不会B．只有输入的n是奇数时才会出现死循环，否则不会C．只有输入的n是大于1000的整数时才会出现死循环，否则不会D．输入任何整数都会出现死循环
题目
下面程序在调试时出现了死循环
Private Sub Command1_Click（）
n=InputBox（“请输入一个整数”）
Do
If n Mod 2=0 Then
n=n+1
Else
n=n+2
Else If
Loop Until n=1000
End Sub
下面关于死循环的叙述中正确的是（ ）。
A．只有输入的n是偶数时才会出现死循环，否则不会
B．只有输入的n是奇数时才会出现死循环，否则不会
C．只有输入的n是大于1000的整数时才会出现死循环，否则不会
D．输入任何整数都会出现死循环
相似考题
参考答案和解析
更多“下面程序在调试时出现了死循环PrivateSubCommand1_Click()n=InputBox(“请输入一个整数”)D ”相关问题
-
第1题：
在窗体上画一个命令按钮，然后编写如下事件过程。该程序运行后，单击命令按钮，在输入对话框中分别输入321和456，则输出结果为【 】。
Private Sub Command1_Click()
a=InputBox("请输入一个整数")
b=InputBox("请再输入一个整数")
Print a+b
End Sub
正确答案：321456
321456 解析：由于Visual Basic中的InputBox函数的返回值是字符串，那么a和b分别为字符串321和456，所以a+b就只能将两个字符串连接为321456，而不是可能想要得到的321和456的和777。 -
第2题：
在窗体中添加一个命令按钮，然后编写如下代码：
Private Sub Command1_Click()
a＝InputBox("请输入一个整数")
b＝InputBox("请输入一个整数")
Print Val(a)+Val(b)
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入21和45，输出结果为【 】。
正确答案：66
66 解析：分析题意可知主要是对输入的两个数求和。故输入21和45后，输出结果为 (21+45)即66。 -
第3题：
下面程序运行时，若输入395，则输出结果是_________。 Private Sub Command1_Click（) Dim x% x=InputBox（"请输入一个3位整数") Print x Mod 10,x100,（x Mod 100)10 End Sub
A．3 9 5
B．5 3 9
C．5 9 3
D．3 5 9
C C) 【解析】VB中常用算术运算符有8个，其中幂运算符(^)优先级最高；其次是取负(-)、乘(*)、浮点除(/)、整除(\\)、取模(Mod)、加(+)、减(-)。 -
第4题：
下面程序的功能是从键盘输入—个大于100的整数m，计算并输出满足不等式
1+22+32+42+…+n2＜m
的最大的n。请填空。
Private Sub Command1_Click()
Dim s,m,n As Integer
m=Val(InputBox("请输入一个大于100的整数"))
n=【 】
s=0
Do While s＜m
n=n+1
s=s+n*n
Loop
Print "满足不等式的最大n是";【 】
End Sub
正确答案：0 n-1
0 , n-1 解析：Do While…Loop是先判断条件表达式的值是否为True，如果为True，则执行循环体，如果为False，则执行Loop后面的语句。由循环体可知该题的第1空应该填0。当循环条件不满足时跳出循环，此时的n是满足不等式1+22+32+42+…+n2＞=m的最小的n，所以该题的第2空应该填n-1。 -
第5题：
下面程序运行时，若输入395，则输出结果是（ ）。
Private Sub Command1_Click（ ）
Dim X％
x=InputBox("请输入一个3位整数")
Print x Mod 10，x\100，(x Mod 100)\10
End Sub
A.3 9 j
B.5 3 9
C.5 9 3
D.3 5 9
正确答案：B
B。【解析】本题是要把一个三位整数分开，分别输出个位、百位和十位。Mod为取余运算，“＼”为取整运算。所以本题输出539。