网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
如下有一段程序，窗体上打印出来的结果是______。Private Sub Command1_ Click() x=1 do x=x+3 Print x； Loop until x＞=8End Sub
A．4 7 10
B．1 3
C．8
D．1 8 9
参考答案
更多 “ 如下有一段程序，窗体上打印出来的结果是______。Private Sub Command1_ Click() x=1 do x=x+3 Print x； Loop until x＞=8End SubA．4 7 10B．1 3C．8D．1 8 9 ” 相关考题
考题
下列程序段的执行结果为( )。 I=4 x=5 Do I=I+1 x=x+2 Loop Until I＞=7 Print"I=";I Print"x=";xA．I=4 x=5B．I=7 x=15C．I=6 x=8D．I=7 x=11
考题
假定有以下程序： Private Sub Form. Click（ ） a=1：b=a Do Until a=5 x=a*b Print b；X a=a+b b=b+a Loop End Sub 程序运行后，单击窗体，输出结果是（ ）。A.1 1 2 3B.1 1 2 4C.1 1 3 8D.1 1 3 6
考题
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()X=0Do While X＜＞-1X=Val(InputBox("请输入数据X:"))Y=Val(InputBox("请输入数据Y:"))If X*Y＜X+Y Then Print X，YLoopEnd Sub程序运行后，依次输入7，2，-3，8，-5，-10，18，-1，-1，则输出结果是【 】
考题
以下能够正确计算n!的程序是A．Private Sub Command1_Chck( ) n=5：x=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubB．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜n Print x End SubC．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜=n Print x End SubD．Private Sub Command1_Click( ) n=5：x=1：i=l Dox=x*i i=i+1 Loop While i＞n Print x End Sub
考题
以下能够正确计算n!的程序是A．Private Sub Command1 Click() n=5：x=1 Do x=x * I I=I + 1 Loop While I ＜ n Print x End SubB．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X*I I=I + 1 Loop While I ＜n Print x End SubC．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I＜=n Print X End SubD．Private Sub Command1_Click() n=5：X=1：I=1 Do x=x * I I=I + 1 Loop While I＞n Print X End Sub
考题
运行下面程序后，正确的输出结果是 ______。Private Sub Command1_ Click() x = 6 if x ＞6 then Print "x＞6": Else if x ＜8 then Print "x＜8"; Else if x = 6 then Print "x=6": End if End if End ifEnd SubA．x＜8 x=6B．x＜8C．x=6D．x＜8或x=6
考题
下列程序段的执行结果为 I=1 x=5 Do I= I + 1 x= x + 2 Loop Until I＞=7 Print " I= "；I Print "x="；xA．I=4 x=5B．I=7 x=15C．I=6 x=8D．I=7 x=17
考题
以下能够正确计算n! 的程序是( )。A．Private Sub Command1_Click( ) n=5:x=l Do x=x*i i=i+1 Loop While i ＜ n Print x End SubB．Private Sub Command1_Click( ) n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i ＜ n Print x End SubC．Private Sub Command1_Cliek( ) n:5:x=1:i=1 Do x=x* i i:i+1 Loop While i ＜ = n Print x End SubD．Private Sub Command1_Cliek( ) n=5:x:1:i=1 Do x=x*i i=j+1 Loop While i ＞ n Print x End Sub
考题
以下能够正确计算n!的程序是A．Privas Sub Command1_Click() n=5：x=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubB．Private Sub Command1_Click() n=5：x=1：i=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubC．Private Sub Command1_Click() n=5：x=1：i=1 Do x=x*i i=i+1 Loop while i＜=n Print x End SubD．Private Sub Command1_Click() n=5：x=1：i=1 Do x=x*i i=i+1 Loop While i＞n Print x End Sub
考题
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_ Click() x=0 Do Until x=-1 a=InputBox(“请输入A的值”) a=Val(a)b=InputBox(“请输入B的值”) b=Val(b)x=InputBox(“请输入x的值”) x=Val(x) a=a+ b+ x Loop Print aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 ______。A．2B．3C．14D．15
考题
假定有如下事件过程： Private Sub Form. Click() Dim x As Integer, n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是______。A．81 4B．56 3C．28 1D．243 5
考题
单击窗体时，下列程序代码的执行结果为______ 。 Private Sub Test (x As Integer) x=x*2+1 If x ＜ 6 Then Call Test(x) End If x-x*2+1 Print x; End Sub Private Sub Command1_ Click () Test 2 End SubA．23 47B．5 11C．10 22D．23 29
考题
下列程序段的执行结果为 i=9 x=5 Do i=i + 1 x=x + 2 Loop Until i＞=7 Print "i=":i Print "x="：XA．i=4x=5B．i=7x=15C．i=6x=8D．i=10x=7
考题
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputDox("请输入a的值") a=Val(A)b=InputBox("请输入b的值") b=Val(B)x=InputBox("请输入x的值") x=Val(x) a=a+b+x Loop Print a End sub 程序运行后，单击命令按钮，依次在输入对话框中输入10、8、9、2、11、-1，则输出结果为 ______。A．15B．14C．13D．12
考题
下面程序运行后，窗体中显示______。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．＄＄＄＄＄＄＄＄＄
考题
以下程序段的输出结果是( )。 x=1 y=4 Do Until y4 x= x * y y=y＋1 Loop Print XA.1SX
以下程序段的输出结果是（ ）。 x=1 y=4 Do Until y4 x= x * y y=y+1 Loop Print XA.1B.4C.8D.20
考题
窗体上有一个名称为Command1的命令按钮，并有如下程序： Private Sub Command1 Click（ ） x=14 Do While x0 x=x-3 x=IIf(Int(x／5)=x／5，x+2，x) Loop Print x End Sub 程序运行后，单击命令按钮Command1，输出结果为（ ）。A.0B.-lC.-2D.-_3
考题
以下能够正确计算n!的程序是______。A．Private Sub Commeadl_Click() n=5: x=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubB．Private Sub Command1_Click() n=5: x=1: i=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubC．Private Sub Command1_Click() n=5: x=1: i=1 Do x=x*i i=i+1 Loop Whilei＜=n Print x End SubD．Private Sub Commsndl_Click() n=5: x=1: i=1 Do x=x*i i=i+1 Loop While i＞n Print x End Sub
考题
在窗体上画一个命令按钮，然后编写如下代码。运行程序后，单击命令按钮，依次在输人对话框中输入2，7，5，3，8，5，12，6，12，在窗体上输出的结果是______。 Private Sub Command1 Click() z=5 Do Until z＜＞5 x=InputBox“请输入x值”) x=Val(x) y=InputBox(“请输入y值”) y=Val(y) z=InputBox(“请输入z值”) z=Val(z) y=x+y+2 * z Loop Print y End SubA．19B．21C．42D．19
考题
以下能够正确计算n!的程序是( )。A．Pfivate Sub Commgld1_LClick() n=5:x=1 Do x=x*1 i=i+1 Loop Whilei＜nB．Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*1 i=i+1 Loop Whilei＜n Print x End SubC．Pfivate Sub Command1_ C1ick() n=5:x=1:i=1 Do X=X*1 i=i+1 Loop While i＜=nD．Private Sub Command1_C1ick() n=5:x=1:i=1 Do X=X*1 i=i+1 Loop While i＞n Print x End Sub
考题
下列程序段的执行结果为 I=9 X=5 Do I=I+1 x=x+2 Loop Until I ＞=7 Print"I="；I Print"x="；xA．I=4x=5B．I=7x=15C．I=6x=8D．I=10x=7
考题
设有如下程序 Private Sub Command1 Click（ ） x=10：Y=0 For i=l To 5 Do x=x-2 y=y+2 Loop Until yj Or x-l Nex1 End Sub 运行程序，其中Do循环执行的次数是（ ）。A.15B.10C.7D.3
考题
运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x
运行下列程序：Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x 20x = x + 10y = y + xIf x 20 Then Exit DoLoopPrint x, yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.10 20B.30 60C.10 30D.20 60
考题
单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() For i = 1 To 4 x = fun(i) Print x; Next i End Sub Function (n) x = n * n FF = x End SubA．1 4 9 16B．1 3 5 7C．3 6 9 12D．2 4 6 8
考题
在窗体上画一个命令按钮，名称为Command1。 Private Sub Command1 Click() Dim x As Integer，y As Integer x=10:y:0 Do x=x+2:y=y+x Print "x=", x; "y=",y If y＞20 Then Exit Do Loop Until x=18 End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是 ______。A．x=12y=12 x = 14 y = 16 x=16 y=18B．x=12 y=12 x= 16 y =28 x= 18 y=24C．x=12 y=12 x= 14 y=44D．x= 12 y=12 x= 14 y=26
考题
以下能够正确计算n!的程序是( )。A．Private Sub Commandl_C1ick()B．hiVate Sub Commandl_C1ick() n＝5:x＝1 n＝5:x=1:i＝1 DO DO X＝x*1 X＝X*1 i＝i＋1 i＝i＋1 Loop while i＜n Loop While＜n Print x Ptinte x End Sub End SubC．Private Sub Commandl_Click ()D．Pdvate Sub Commandl C1ick() n＝5:X＝1:i＝1 n＝5＝:x＝1:i＝1 DO DO X＝X*1 X＝X*1 i＝i＋1 i＝i＋1 Loop While i＞n Print x Print x End Sub End Sub
热门标签
最新试卷