（ 28 ）下面程序在调试时出现了死循环

Private Sub Command1_Click （）

n=InputBox （ “ 请输入一个整数 ” ）

D．o

If n Mod 2=0 Then

n=n+1

E．lse

n=n+2

E．lse If

Loop Until n=1000

E．nd Sub

下面关于死循环的叙述中正确的是（ ）

A． ）只有输入的 n 是偶数时才会出现死循环，否则不会

B． ）只有输入的 n 是奇数时才会出现死循环，否则不会

C． ）只有输入的 n 是大于 1000 的整数时才会出现死循环，否则不会

D． ）输入任何整数都会出现死循环

[单选题]下面程序在调试时出现了死循环 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．输入任伺整数都会出

[单选题]下面程序在调试时出现了死循环Private Sub Command1_Click（）n=InputBox（“请输入一个整数”）D．oIf n Mod 2=0 Thenn=n+1E．lsen=n+2E．lse IfLoop Until n=1000E．nd Sub下面关于死循环的叙述中正确的是（ ）。A．只有输入的n是偶数时才会出现死循环，否则不会B．只有输入的n是奇数时才会出现死循环，否则不会C．只有输入的n是大于1000的整数时才会出现死循环，否则不会D．输入任何整数都会出现死循环

[单选题]下面程序运行后，窗体中显示______。Private Sub Command1_ Click() a＄ = "*": b＄ = "＄ for k = 1 To 3 x＄ = String＄(Len(a＄) +k, b＄) Print x＄; Next k PrintEnd SubA．*** ** ***B．*＄*＄*＄C．1*＄2*＄3*＄D．＄＄＄＄＄＄＄＄＄

[单选题]下面程序运行后的输出结果是______。Private Sub Command1_ Click ( ) for j = 1 To 10 if j Mod 3 ＜＞ 0 then a =a+j/3 Next j Print aEnd SubA．20B．10C．3D．9

[单选题]设有如下程序： Dption Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim n As Integer n=InputBox("输入数据") If n＜10 Then Call GetArray(a, n) End If End Sub Private Sub GetArray(h()As Integer, n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=C

[单选题]设有如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n=InputBox("输入数据") If n＜10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b()As Integer,n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=Cl

[主观题]有如下程序，该程序的执行结果是[ ]。Private Sub Command1_lick()F．or i= 1 To 4x= 4F．or j =1 To 3x =3F．or k=1 To 2X= K+5Next kNext jNext iPrint xE．nd Sub

[单选题]阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是A．3B．9C．14D．21

[单选题]单击命令按钮时，下列程序代码的运行结果为 Private Sub Command1_Click() Print MyFunc(20, 18) End Sub Public Function MyFunc(m As Integer, n As Integer)As Integer Do While m＜＞n Do While m＞n:m=m-n:Loop Do Whle m＜n:n=n-m:Loop Loop MyFunc=m End FunctionA．0B．2C．4D．6

[单选题]下列程序运行后，信息框显示的内容是()。Private Sub Command1_Click()D．im s1 As StringD．im s2 As Integers1 = "Hello-World,2004"s2 = Len(s1) + InStr(1, s1, "2")MsgBox s2E．nd SubA．Hello-WorldB．2003C．16D．29