有如下一个Sub过程: Sub mlt(ParamArray numbers()) n=1 For Each x In numbers n=n*x Next x Print n End Sub 在一个事件过程中如下调用该Sub过程: Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 该程序的运

题目

有如下一个Sub过程: Sub mlt(ParamArray numbers()) n=1 For Each x In numbers n=n*x Next x Print n End Sub 在一个事件过程中如下调用该Sub过程: Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 该程序的运行结果为( )。

A.12

B.24

C.36

D.48


相似考题
更多“有如下一个Sub过程:Sub mlt(ParamArray numbers()) n=1 For Each x In numbers n=n*x Next ”相关问题
  • 第1题:

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

    B.56 3

    C.28 1

    D.243 5


    正确答案:A
    解析:本题考查Do……Loop循环控制结构。Do…Loop循环控制结构是考试重点内容,历次考试都会有至少2个题目涉及该知识点,务必掌握。题目非常简单,目的是对x进行一定的计算,同时输出循环次数。x初值为1,满足条件,执行后面语句,当x=27,n=3时,继续执行循环,执行x=x*3,后,x为81,n=4,已经不满足条件,循环结束。所以最后的结果x=81,n=4,选项A正确。

  • 第2题:

    下面程序的运行结果是____ int x=30; int[] numbers=new int[x]; x=60; System.out.println(numbers.length);

    A.60

    B.20

    C.30

    D.50


    30

  • 第3题:

    5、为使下列代码正常运行,应该在下画线处填入的选项是()。 int[]numbers =new int[n]; for (int i =0;i <numbers________ .;i ++) numbers[i]=i +1;

    A.size

    B.length

    C.dimension

    D.measure ment


    C 抽象类中的抽象方法可以只声明,定义延迟到其子类。

  • 第4题:

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


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

  • 第5题:

    1、 求解下列递归关系 a) x(n)=x(n-1)+5 其中n>1,x(1)=0 b) x(n)=3x(n-1) 其中n>1,x(1)=4 c) x(n)=x(n-1)+n 其中n>0,x(0)=0 d) x(n)=x(n/2)+n 其中n>1,x(1)=1(对于n=2k的情况来解)


    B

  • 第6题:

    【单选题】下面程序的运行结果是? main() { int x=30; int[] numbers=new int[x]; x=60; System.out.println(numbers.length); }

    A.60

    B.20

    C.30

    D.50


    2