单项选择题

下面程序在调试时出现了死循环
Private Sub Command1_Click()
n=InputBox("请输入—个整数")
Do
Ifn Mod 2=0 Then
n=n+1
Else
n=n+2
End If
Loop Until n=1000
End Sub
下面关于死循环的叙述中正确的是（）。

A．只有输入的n是偶数时才会出现死循环，否则不会
B．只有输入的n是奇数时才会出现死循环，否则不会
C．只有输入的n是大于1000的整数时才会出现死循环，否则不会
D．输入任伺整数都会出现死循环

<上一题目录下一题>

热门试题

单项选择题

在窗体上从左到右有Text1、Text2两个文本框(见图)，要求运行程序时在Text1中输入—个分数后按回车键，则判断分数的合法性，若分数为0～100中的—个数，则光标移到Text2中；否则光标不动，并弹出对话框“分数错”。下面程序中正确的是（）。

A．Private Sub Text1_KeyPress(KeyAscii As Intege IfKeyAscii=13 Then '回车符的ASCII码是13 a=Va1(Text1) If a＞=0 Or a＜=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub
B．Private Sub Text1_KeyPress(KeyAscii As Intege IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) Ifa＞=0 And a＜=100 Then Text1.SetFocus Else Text2.SetFocus : MsgBox("分数错") End If End If End Sub
C．Private Sub Text1_KeyPress(KeyAscii As Intege IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a＜0 And a＞100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub
D．Private Sub Text1_KeyPress(KeyAscii As Intege IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a＞=0 And a＜=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub

单项选择题

已知有下面过程： Private Sub proc1(a As Integer,b As String,Optional x As Boolean) ...... End Sub 正确调用此过程的语句是（）。

A．Call procl(5)
B．Call procl 5,"abc",False
C．procl(12,"abc",Tru
D．procl 5,"abc"

下面程序在调试时出现了死循环 Private Sub Command1_Click() n=InputBox("请输入—个整数") Do Ifn Mod 2=0 Then n=n+1 Else n=n+2 End If Loop Until n=1000 End Sub 下面关于死循环的叙述中正确的是（）。

下面程序在调试时出现了死循环
Private Sub Command1_Click()
n=InputBox("请输入—个整数")
Do
Ifn Mod 2=0 Then
n=n+1
Else
n=n+2
End If
Loop Until n=1000
End Sub
下面关于死循环的叙述中正确的是（）。