阅读程序：Function fac(ByVal n As Integer)As IntegerDim temp As Integertemp=1For i％=1 To nt

阅读程序：

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

请帮忙给出正确答案和分析，谢谢！

参考答案

您可能感兴趣的试题

请找出下面这段程序的错误并修正 Public Function getDataFromDB（ByVal strID As String, ByRe

答案解析
请找出下面这段程序的错误并修正 Public Function getDataFromDB（ByVal strID As String, ByRe

答案解析
（22 ）下面是求最大公约数的函数的首部Function gcd （ByVal x As Integer, ByVal y As Integer

答案解析
有下列函数过程：Function funl（ByVal x As Integer, ByVal y As Integer) Do While y $amp;<amp;$gt; 0

答案解析
下列程序的执行结果是 Function P（N As Integer) For i=1 To N Sum=Sum＋i Next i P=Sum End Fun

答案解析
下面是求最大公约数的函数的首部: Function gcd(ByVal X As Integer ByVal y As Integer)As In

答案解析