计算机二级
如下有一段程序，窗体上打印出来的结果是______。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
题目
如下有一段程序，窗体上打印出来的结果是______。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
相似问题和答案
第1题：
如下有一段程序段，若要求该程序执行3次循环，则在程序中的空白处填入 。 x=1 Do x=x+3: Print x Loop Until______
A．x＞=8
B．x＜=8
C．x＞=7
D．x＜=7
第2题：
运行下列程序：
Private Sub Form_Click( )
Dim y As Integer, x As Integer
Do Until x > 20
x = x + 10
y = y + x
If x > 20 Then Exit Do
Loop
Print x, y
End Sub
单击窗体后，则在窗体上显示的结果是( )。
A.10 20
B.30 60
C.10 30
D.20 60
第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 Sub
B．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
C．Private Sub Command1_Click() n=5: x=1: i=1 Do x=x*i i=i+1 Loop Whilei＜=n Print x End Sub
D．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
解析：选项A中变量i没有赋初值操作，其一直保持0值，所以始终为0；选项B中循环条件“i＞n”错误，计算一次后就退出循环，导致计算结果不正确；选项D的计算过程中，第1次计算时“1＞4”的条件不处理，退出Do循环，其结果为1；选项C的计算结果为5!。
第4题：
以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。 Private SubForm_Click() Dim a As Integer，b As Integer a=10 ：b=20 Call ff(a，B)Print a，b End Sub Private Sub ff(x As Integer，y As Integer) x=x+y y=x+y End Sub
A．30 50
B．30 30
C．20 20
D．10 20
解析：本题中x、y的最后取值也就是a、b的输出值。执行x＝x+y＝10+20＝30，接着执行y＝x+y＝ 30+20＝50。所以在窗体上输出的结果是30和50。
第5题：
以下能够正确计算n!的程序是
A．Private Sub Command1_Click( ) n=5: x=1 Do x=x*i i=i+1 Loop While i＜n Print x End Sub
B．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
C．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
D．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
解析：n!=1×2×3×…×(n-1)×n，由于是累乘，因此x和i的初值都必须为1；其次就是循环执行条件的确定，由于使用的是While型循环，表示在满足条件时执行循环体中的代码，这里满足执行循环的条件应该是i=n。注意： Do…Loop While循环控制结构是先执行循环体语句，然后再判断条件。—因此，不管条件如何，该循环语句至少执行一次循环体。注意：Do…Loop Until、Do…Loop While循环控制结构。
第6题：
以下能够正确计算n!的程序是
A．Privas Sub Command1_Click() n=5：x=1 Do x=x*i i=i+1 Loop While i＜n Print x End Sub
B．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
C．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
D．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
解析：本题主要考查Do循环控制结构。只有C项符合题意。A中i一开始未被赋值，默认为0；B项中由于“in”的条件使得 Do循环比应有循环次数少循环一次；选项D由于“i＞n”这一条件，使得控制语句只能循环一次。
第7题：
以下能够正确计算n!的程序是
A．Private Sub Command1 Click() n=5：x=1 Do x=x * I I=I + 1 Loop While I ＜ n Print x End Sub
B．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
C．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
D．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
解析：n!=1×2×3×…×(n-1)×n，由于是累乘，因此x和i的初值都必须为1；其次就是循环执行条件的确定，由于使用的是While型循环，表示在满足条件时执行循环体中的代码，这里满足执行循环的条件应该是i=n。
第8题：
以下能够正确计算n!的程序是（ ）。
A．Private Sub Command1_Click（）
n=5: x=1
Do
x=x * I
I=I + 1
Loop While I < n
Print x
End Sub
B．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
C．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
D．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
第9题：
如下有一段不完整的程序段，如果要求该程序执行3次循环，则在程序中的空白处要填入( )。 x=1 Do x=x+3 Printx LoopUntil______
A．x＞=8
B．X＜=8
C．x＞=7
D．X＜=7