假定有如下事件过程： Phvate Sub Form_Click() DimXASInteger，nASInteger x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Ptint x,n End Sub 程序运行后，单击窗体，输出结果为______。A． 81 4B．56 3C．28 1D．243 5

题目

假定有如下事件过程： Phvate Sub Form_Click() DimXASInteger，nASInteger x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Ptint x,n End Sub 程序运行后，单击窗体，输出结果为______。

A． 81 4

B．56 3

C．28 1

D．243 5

相似考题

1.假定有如下事件过程： Privte Sub Form_Click0 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

2.在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer，n As Integer x=1 n=0 Do While x＜20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是 ______。A．15和1B．27和3C．195和3D．600和4

3.假定有如下事件过程： Privte 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

4.假定有如下事件过程：Private Sub Form_Click（）Dim x As Integer, n As Integerx = 1n = 0Do While x < 28x = x * 3n = n + 1LoopPrint x, nEnd Sub程序运行后，单击窗体，输出结果是（ ）。A．81 4B．56 3C．28 1D．243 5

更多“假定有如下事件过程:Phvate Sub Form_Click()DimXASInteger,nASIntegerx=1n=0Do While x<28x=x*3 ”相关问题

  • 第1题：

    在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim x As Integer，n As Integer x = 1 n = 0 Do While x＜20 x = x * 3 n = n + 1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是

    A．15和1

    B．27和3

    C．195和3

    D．600和4


    正确答案：B
    解析：本题考查Do循环控制语句。根据题意，Do循环控制语句执行了3次，在执行第三次循环后，x的值为27，此时终止循环。由于循环了3次，n值加了3次1，故本题正确答案为B。

  • 第2题：

    假定有如下事件过程： 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 4

    B．56 3

    C．28 1

    D．243 5


    正确答案：A
    解析：Do While-Loop循环语句的判断条件为“x28”。循环语句“x=x*3”的作用是每循环一次将成为原数的3倍，而变量n用来记录循环次数，当循环3次后，x得27，有2728，再循环一次后x得81，有81＞28，不再满足循环条件，此时n为4。执行Print语句，输出x和n的值，即输出81和4。

  • 第3题：

    假定有如下事件过程： Private Sub Form_Cilck() 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 4

    B．56 3

    C．28 1

    D．243 5


    正确答案：A
    解析：DoWhile语句是当While后面的条件为True时，执行循环体，当条件为False时退出循环。本题的条件是x28，而循环体中的语句是X=x*3，所以当x值为81时，退出循环体，此时共执行了4次循环体，所以n的值为4。

  • 第4题：

    在窗体上画两个名称为Tcxt1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程： Private Sub Command1 Click() Dim x As Integer，n As Integer x=1 n=0 Do While x＜20 x=x*3 n=n +l Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。

    A．9和2

    B．27和3

    C．195和3

    D．600和4


    正确答案：B
    解析：本题考查While循环的处理过程。循环第1次x=1，执行循环，n=1；循环第2次， x=3，仍然执行循环，n=2 依次类推，当执行完第3次循环后，x=27＞20，n=3，不再满足条件，跳出循环，由此可知本题答案为选项B。

  • 第5题：

    在窗体上画两个名称为Text l、Text 2的文本框和一个名称为Command l的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim x As Integer，n As Integer x=1 n=0 Do While x＜20 x＝x*3 n=n＋l Loop Textl．Text=Str(x) Text2．Text-Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。

    A．9和2

    B．27和3

    C．195和3

    D．600和4


    正确答案：B
    解析：本题考查While循环的处理过程。循环第1次x=l，执行循环，n=l；循环第2次， x=3，仍然执行循环，n:2；依次类推，当执行完第3次循环后，x＝27＞20，n＝3，不再满足条件，跳出循环，答案为B。

相关内容