在窗体上画一个命令按钮，然后写出如下事件过程：Private Sub Command1_Click（）s=1Dos=（s + 1） ^ （s + 2）Number=Number + 1Loop Until s >=6Print Number, sEnd Sub程序运行后，输出的结果是（ ）。A．23B．318C．18D．1020
题目
在窗体上画一个命令按钮，然后写出如下事件过程：
Private Sub Command1_Click（）
s=1
Do
s=（s + 1） ^ （s + 2）
Number=Number + 1
Loop Until s >=6
Print Number, s
End Sub
程序运行后，输出的结果是（ ）。
A．23
B．318
C．18
D．1020
相似考题
更多“在窗体上画一个命令按钮,然后写出如下事件过程: PrivateSubCommand1_Click() s=1 Do s= ”相关问题
-
第1题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer，s As Integer a = 8 s = 1 Do s = s + a a = a - 1 Loop While a＜=0 Print s，a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．7 9
B．34 0
C．9
D．死循环
正确答案：C
解析：本题也是考查Do循环控制语句。由于在a=0的情况下，Do循环才可以继续执行循环语句块，所以本循环所条件限制只能执行一次，分别使s值加上a值，a值再减去1，故正确答案为C。 -
第2题：
在窗体上画一个命令按钮，然后写出如下事件过程： Private Sub Command1 _ Click( ) S=1 Do S=(S + 1) ^(S + 2) Number=Number+1 Loop Until S＞=6 Print Number，S End Sub 程序运行后，输出的结果是
A．2 3
B．3 18
C．1 8
D．10 20
正确答案：C
解析：本题考查的是Do……LoopUntil语句，Number记录循环次数，S＞=6为控制语句，Number=1，s=8；结束运行，输出18。 -
第3题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（）
s=1
Do
s=（s + 1） * （s + 2）
Number=Number + 1
Loop Until s >=30
Print Number, s
End Sub
程序运行后，输出的结果是（ ）。
A．2 3
B．2 56
C．5 12
D．10 20
正确答案：B
-
第4题：
在窗体上画一个命令按钮，然后编写如下事件过程: Private Sub Command1_Click( ) Dim a( ) a = Array( 1, 3, 5, 7) s=0 For i = 1 To 3 s=s*10+a(i) Next i Print s End Sub程序运行后，输出结果为( )。
A．135
B．357
C．531
D．753
正确答案：B
解析：程序中的Array是给一维数组赋初值的函数。需要注意，它只能给一维数组赋初值，数组只能是变体类型；赋值号只需写上数组名，不要写上括号。程序中For循环控制的初值从1开始，可见a(i)的取值依次是3、5、7，而不是1、3、5，所以程序运行的结果是选项B。 -
第5题：
在窗体上画一个名称为Coml的命令按钮，然后编写如下事件过程：
该事件过程的功能是计算s=l 1/2！ 1/3 1 … 1/n!的值。请填空。
正确答案：
(1/i)【解析】本题考查循环的知识。本程序首先置q为1，sum为0；经过l0次循环使q每次都乘以1/i，实现了1/n!的求法；每次循环后都加q，把结果再赋给$tllTl，循环结束，slim的值即为所求。