阅读程序: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.33

题目

阅读程序:

Function fac(ByVal n 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 To 4

nsum=nsum+fac(i%)

Next i%

print nsum

End Sub

程序运行后,单击窗体,输出结果是

A.35

B.31

C.33

D.37


相似考题
参考答案和解析
正确答案:C
解析:本题中fac函数的功能为求n的阶乘,单击事件中i的值分别取2,3,4,并对它们的阶乘求和为2+6+24=32,再加上nsum的值1,得33。因此本题答案为C)。
更多“阅读程序:Function fac(ByVal n As Integer)As IntegerDim temp As Integertemp=1For i%=1 To nt ”相关问题
  • 第1题:

    【判断题】以下程序段将对a数组实现升序排序(N是符号常量) for(i=1;i<N;i++) for(j=0;j<N-i;j++) if(a[j]>a[j+1]) { temp=a[j]; a[j]=a[j+1]; a[j+1]=temp; }

    A.Y.是

    B.N.否


    正确

  • 第2题:

    【判断题】以下程序段将对a数组实现将序排序(N是符号常量) for(i=1;i<N;i++) for(j=0;j<N-i;j++) if(a[j]<a[j+1]) { temp=a[j]; a[j]=a[j+1]; a[j+1]=temp; }

    A.Y.是

    B.N.否


    正确

  • 第3题:

    3、下面程序的时间复杂度是()。 x=0 y=1 for (i=1; i<=n; ++i){ ++x; y=y*i }

    A.O(1)

    B.O(n)

    C.O(1+n)

    D.O(2+2n)


    O(n 2 )

  • 第4题:

    以下程序是计算s=1-1/2+1/4-1/6+1/8+...+1/n的和,请填空。 double fun(int n) { double s=1.0,fac=1.0;int i; for(i=2;i<=n;i+=2) { fac=-fac; s=s+ ___________; } return s; }


    以上都正确

  • 第5题:

    【判断题】以下程序段将把a的最大值移到末尾位置 for(i=0;i<N;i++) if(a[i]>a[i+1]) { temp=a[i]; a[i]=a[i+1]; a[i+1]=temp; }

    A.Y.是

    B.N.否


    8