有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integer p=1 For i=1 To x p=p*1 Next fact=p End Function 调用它的事件过程如下： Private Sub Command1_Click() i=Val(Inputbox("请输入数据")) a=fact((i)) Print a End Sub 若输入数据5，则运行结果为A．120B．60C．80D．100

题目

有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integer p=1 For i=1 To x p=p*1 Next fact=p End Function 调用它的事件过程如下： Private Sub Command1_Click() i=Val(Inputbox("请输入数据")) a=fact((i)) Print a End Sub 若输入数据5，则运行结果为

A．120

B．60

C．80

D．100

相似考题

1.设有如下说明:var q,p:^integer; 且已知有过程调用new(p);new(q);则下面语句正确的是( )Aread(p,q);Bp^:=q^Cp:=p+1Dp:=p+q;

2.下列等式成立的有()。A.(F/A,i,n)=(P/F,i,n)X(A/P,i,n)B.(P/F,i,n)=(A/F,i,n)×(P/A,i,n)C.(A/P,i,n)=(F/P,i,n)×(A/F,i,n)D.(A/P,i,n)=(P/F,i,n1)×(A/F,i,n2),n1+n2=nE.(A/F,i,n)=(P/F,i,n)X(A/P,i,n)

3.最小生成树A.Prim算法：procedure prim(v0:integer);varlowcost,closest:array[1..maxn] of integer;i,j,k,min:integer;

4.●在下列程序中：Program test(input，output)；var i.j:integer；procedure calc(p1，p2：integer)；beginp2：=p2＊p2 pl：=pl-p2；p2：=p2-p1；end{caic}begin{main}i：=2；j：=3；calc(i，j)；write(j)；end{main}当参数传递采用引用方式(Call by reference)时，所得结果j= (6) ；当参数传递采用换名方式(Call by name)时，所得结果，j= (7) ；当参数传递采用赋值方式(Call by value)时，所得结果，j= (8) 。(6) A．3B．6C．10D．16(7) A．3B．6C．10D．16(8) A．3B．6C．10D．16

更多“有如下函致:Function fact(x As Integer)As LongDim p As Long,i As Integer p=1 For i=1 To xp= ”相关问题

  • 第1题：

    链表的定位函数

    loc(I:integer):pointer; {寻找链表中的第I个结点的指针}

    procedure loc(L:linklist; I:integer):pointer;

    var p:pointer;

    j:integer;


    正确答案：

     

    begin
    p:=L.head; j:=0;
    if (I>=1) and (I<=L.len) then
    while j<I do begin p:=p^.next; inc(j); end;
    loc:=p;
    end;

  • 第2题：

    1、在以下程序中，请辨析程序不同的初始状况，其中可以完成 x 的阶乘的程序是：

    A．输入 x p = 0 i 从 1 循环到 x p = p * i

    B．输入 x p = 0 i 从 0 循环到 x p = p * i

    C．输入 x p = 1 i 从 2 循环到 x p = p * i

    D．输入 x p = 1 i 从 0 循环到 x p = p * i


    输入 x p = 1 i 从 2 循环到 x p = p * i

  • 第3题：

    在以下程序中，请辨析程序不同的初始状况，其中可以完成 x 的阶乘的程序是：

    A．输入 x p = 0 i 从 1 循环到 x p = p * i

    B．输入 x p = 0 i 从 0 循环到 x p = p * i

    C．输入 x p = 1 i 从 2 循环到 x p = p * i

    D．输入 x p = 1 i 从 0 循环到 x p = p * i


    7648;03421

  • 第4题：

    在下列程序中：

    Program test(input, output);

    var i. j:integer;

    procedure calc(p1, p2: integer);

    beginp2: = p2 * p2 p1: = p1 - p2; p2: = p2 - p1; end {caic}

    begin {main} i: =2;j:=3;

    calc(i,j); write(j);

    end {main}

    当参数传递采用引用方式(Call by reference)时，所得结果j=(6)；

    当参数传递采用换名方式(Call by name)时，所得结果，j=(7)；

    当参数传递采用赋值方式(Call by value)时，所得结果，j=(8)。

    A．3

    B．6

    C．10

    D．16


    正确答案：D
    解析：一个过程的过程体若包含对其自身的调用，则称此过程是直接递归的。若一个过程的过程体调用某过程，而该过程又调用原过程或经一系列调用后又回到对原过程的调用，则称此原过程是间接递归的。通常实现递归时采用的数据结构是栈，这是因为栈有先进后出的特性，可以保存调用时的“现场”，并在调用结束时恢复“现场”，栈是实现递归的简单途径。对于既可用递归方式求解，也可用循环方式求解的问题，就执行效率和资源而言，显然是循环优于递归，因为递归的开销大。当用户在调用点调用一个过程时，会通过参数传送信息，一个过程的形式参数用来向过程传送信息的标识符，实在参数用来在调用点向被调用过程传送信息。形式参数和实在参数之间的关系通常按照位置来标定，不同程序语言所规定的参数信息传送方式不同。当采用引用方式(Callbyreference)或换名方式(Callbyname)时，在过程中对形式参数的调用本质上是对实在参数单元的引用。先是给形式参数赋初值，而后，在过程中对该形式参数的赋值最终引起调用程序中实在参数值的改变。在本题中形式参数为p1和p2。实在参数初值为i=2和j=3，通过引用方式调用这两个参数，将执行以下计算过程：p1=2p2=3p2:=p2*p2=9p1:=p1-p2=2-3=-7p2:=p2-p1=9-(-7)=16所得结果为j=16。参数传送采用赋值方式时，从调用点向被调用过程传送的是实在参数的值。这一值成为过程中相应位置上形式参数的初值，此后该形式参数在过程中实际是局部变量，其结果无需返回给实在参数。本题中实在参数j=3，在过程中仅起向形式参数F2赋初值的作用。过程中关于p2的运算对j不再起作用，因而过程调用结束后j的值仍为3。

  • 第5题：

    在以下程序中，请辨析程序不同的初始状况，其中可以完成 x 的阶乘的程序是：

    A．输入 x p = 0 i 从 1 循环到 x p = p * x

    B．输入 x p = 0 i 从 0 循环到 x p = p * x

    C．输入 x p = 1 i 从 2 循环到 x p = p * x

    D．输入 x p = 1 i 从 0 循环到 x p = p * x


    输入 x p = 1 i 从 2 循环到 x p = p * i

相关内容