问题

阅读程序： Function fac(ByVal As Integer)As Integer Dim temp As Integer temp=1 For i％=

阅读程序： 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

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

参考答案

您可能感兴趣的试题

请找出下面这段程序的错误并修正 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

答案解析
在窗体上画一个命令按钮然后编写如下程序：Sub S1（ByVal x As Integer By

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

答案解析