阅读程序： Function fac(ByVal As Integer)As Integer Dim temp As Integer temp=1 For i％=1 To n temp=temp*i％ Next i％ fac=temp End Function Private Sub Form. Click（ ） Dim nsum As Integer nsum=1 For i％=2 T0 4 nsum=nsum+fac(i％) Next i％ Print nsum End Sub 程序运行后，单击窗体，

题目

阅读程序： Function fac(ByVal As Integer)As Integer Dim temp As Integer temp=1 For i％=1 To n temp=temp*i％ Next i％ fac=temp End Function Private Sub Form. Click（ ） Dim nsum As Integer nsum=1 For i％=2 T0 4 nsum=nsum+fac(i％) Next i％ Print nsum End Sub 程序运行后，单击窗体，输出结果是（ ）。

A.35

B.31

C.33

D.37

相似考题

1.阅读以下说明和Java代码，将应填入(n)处的字句写在对应栏内【说明】编写字符界面的Application程序，接收依次输入的10个整型数据，每个数据一行，将这些数据按升序排序后从系统的标准输出设备输出。【Java代码】import java.iO.*;import java.util.* ;public class compositor{public static void main ( String args[] ){final int NUMBER=10;Vector dataVector=new Vector ();try{BufferedReader br=new BufferedReader ((1) InputStreamReader ( System.in ));System.out.println ("请输入"+NUMBER+"个整数");for (int i=0; i＜NUMBER; i++ ){int temp=Integer.parselnt ( br.(2));int low=0, high=i-1, mid=0;while ((3)){System.out.println ( low+","+mid+","+high );(4);if ((( Integer ) dataVectOr.get( mid )) .intValue () ==temp ){data Vector.insertElementAt ( new Integer ( temp ), mid );break;}else if ((( Integer ) dataVector.get ( mid )) .intValue ( ) ＞temp ){high=mid-1;}else{(5);}}if ( low＞high ){dataVector, insertElementAt ( new Integer ( temp ), iow );}}//输出System.out.println ( "\n升序的排序结果为; ");for (int i=0; i＜NUMBER; i++ ){System.out.print ( dataVector.get( i ) .toString () +"\t" );}}catch ( NumberFormatException nfe){System.out.println ( nfe.toString ());System.out.println ( "整数格式输入错误。");}catch ( IOException ioe ){System.out.println ( ioe.toString ());}}}

2.如果Add函数的调用代码为:func main() {var a Integer = 1var b Integer = 2var i interface{} = asum := i.(Integer).Add(b)fmt.Println(sum)}则Add函数定义正确的是()A.type Integer intfunc (a Integer) Add(b Integer) Integer { return a + b}B.type Integer intfunc (a Integer) Add(b *Integer) Integer { return a + *b}C.type Integer intfunc (a *Integer) Add(b Integer) Integer { return *a + b}D.type Integer intfunc (a *Integer) Add(b *Integer) Integer { return *a + *b}

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

4.阅读程序：Function fac(ByVal n As Integer)As IntegerDim temp As Integertemp=1For i％=1 To ntemp=temp*i％Next i％fac=tempEnd FunctionPrivate Sub Form_Click()Dim nsum As Integernsum=1For i％=2 To 4nsum=nsum+fac(i％)Next i％print nsumEnd Sub程序运行后，单击窗体，输出结果是A．35B．31C．33D．37

更多“阅读程序: Function fac(ByVal As Integer)As Integer Dim temp As Integer temp=1 For i%= ”相关问题

  • 第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题：

    链表的定位函数

    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;

  • 第3题：

    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呋喃环上多了一个双键。

  • 第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题：

    8、下面哪些是将分数化为浮点数的正确定义？

    A.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = a/b###SXB###B.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = (fromInteger a)/ (fromInteger b)###SXB###C.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = fromInteger (a/b)###SXB###D.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = (fromIntegral a)/ (fromIntegral b)###SXB###E.ty
    A

相关内容