( 29 )有如下函数:Function fun(a As Integer,n As Integer) As IntegerDim m As IntegerWhile a >=na=a-nm= m+1Wendfun=mEnd Function该函数的返回值是A ) a 乘以 n 的乘积B ) a 加 n 的和C ) a 减 n 的差D ) a 除以 n 的商(不含小数部分)

题目

( 29 )有如下函数:

Function fun(a As Integer,n As Integer) As Integer

Dim m As Integer

While a >=n

a=a-n

m= m+1

Wend

fun=m

End Function

该函数的返回值是

A ) a 乘以 n 的乘积

B ) a 加 n 的和

C ) a 减 n 的差

D ) a 除以 n 的商(不含小数部分)


相似考题
更多“( 29 )有如下函数:Function fun(a As Integer,n As Integer) As IntegerDim m As IntegerWhile a ”相关问题
  • 第1题:

    E.堆排序:

    procedure sift(i,m:integer);{调整以i为根的子树成为堆,m为结点总数}

    var k:integer;


    正确答案:

     

    begin
    a[0]:=a[i]; k:=2*i;{在完全二叉树中结点i的左孩子为2*i,右孩子为2*i+1}
    while k<=m do begin
    if (k<m) and (a[k]<a[k+1]) then inc(k);{找出a[k]与a[k+1]中较大值}
    if a[0]<a[k] then begin a[i]:=a[k];i:=k;k:=2*i; end
    else k:=m+1;
    end;
    a[i]:=a[0]; {将根放在合适的位置}
    end;

    procedure heapsort;
    var
    j:integer;
    begin
    for j:=n div 2 downto 1 do sift(j,n);
    for j:=n downto 2 do begin
    swap(a[1],a[j]);
    sift(1,j-1);
    end;
    end;

  • 第2题:

    组合的生成(1..n中选取k个数的所有方案)

    procedure solve(dep,pre:integer);

    var

    i:integer;


    正确答案:

     

    begin
    if dep=k+1 then begin writeln(s);exit; end;
    for i:=1 to n do
    if (not used[i]) and (i>pre) then begin
    s:=s+chr(i+ord(''0''));used[i]:=true;
    solve(dep+1,i);
    s:=copy(s,1,length(s)-1); used[i]:=false;
    end;
    end;

  • 第3题:

    以下哪个函数声明是正确的?

    A.void play(int a, int b);

    B.void play(a:Integer, b:Integer);

    C.void play(int a, b) ;

    D.Sub play(a as integer, b as integer);


    void play(int a, int b) ;

  • 第4题:

    排列的生成:(1..n)

    procedure solve(dep:integer);

    var

    i:integer;


    正确答案:

     

    begin
    if dep=n+1 then begin writeln(s);exit; end;
    for i:=1 to n do
    if not used[i] then begin
    s:=s+chr(i+ord(''0''));used[i]:=true;
    solve(dep+1);
    s:=copy(s,1,length(s)-1); used[i]:=false;
    end;
    end;

  • 第5题:

    链表的定位函数

    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;

  • 第6题:

    11、下面哪些定义是类型正确的?

    A.f :: (Integer, Integer) -> Float f (x,y) = x / y

    B.f :: (Integer, Integer) -> Float f (x,y) = (fromInteger x) / (fromInteger y)

    C.f :: (Integer, Integer) -> Float f (x,y) = 3*x + y

    D.f :: (Integer, Integer) -> Integer f (x, y) = 3*x + y


    AFT 通常由含有一个双氢呋喃环和一个氧杂萘邻酮(香豆素)的基本架构单位构成 AFT 分为 黄曲霉毒素B1(AFB1)、黄曲霉毒素 B2 (AFB2) 黄曲霉毒素G1(AFG1)、黄曲霉毒素 G2(AFG2) 黄曲霉毒素M1(AFM1)、黄曲霉毒素 M2(AFM2) B1、G1的呋喃环氢键异构。M1型氢键变为羟基。 1比2呋喃环上多了一个双键。