问题题干答案解析相关问题热门问题最新问题

问题详情

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command_Click( ) S=0 Do s=(s + 1) * (s +2) Number=Number+1 Loop Until S＞=30 Print Number，S End Sub 程序运行后，输出的结果是

A、2 3

B、3 182

C、5 12

D、10 20

时间：2022-01-03 23:05 关键词：

答案解析

B
解析：在该题中，考查的知识点是Do…LoopUntil语句，Number记录循环次数，S＞=30为控制语句，当Number=1时，s=2；当Number=2时，s=12；当Number=3时，s=182＞30，故结束运行。

相关问题

在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： OptionBase1 PrivateSubCommand1_Click（） Dima s=0 a=Array（1,2,3,4）;j=1 Fori=4To1Step-1 s=s+a（i）*j j=j*10 Nexti Prints EndSub 运行上面的程序，单击命令按钮，其输出结果是（　　）。
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： PrivateSubCommand1_Click（） n=Val（Text1.Text） Fori=2Ton Forj=2ToSqr（i） IfiModj=0ThenExitFor Nextj Ifj>Sqr（i）ThenPrinti Nexti EndSub 该事件过程的功能是（　　）。
设有如下通用过程： Public Sub Fun(a(),ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程 Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next n = 10 Call Fun(arr(), n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是_____
在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array (1,2,3,4) j = 1 For i = 4 To 1 Step - 1 s = s + a (i) * j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是______
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 a = 1 Do s = s + a a = a - 1 Loop While a