在窗体上画一个名为Commandl的命令按钮,然后编写如下程序: Private Sub Conunandl_Click() Dim i As Integer Sum=0 n=InputBox(”晰a number”) n=Val(n) For i=1 T

admin2009-08-25  37

问题 在窗体上画一个名为Commandl的命令按钮,然后编写如下程序:
Private Sub Conunandl_Click()
Dim i As Integer
Sum=0
n=InputBox(”晰a number”)
n=Val(n)
For i=1 T0 n
Sum=【  】
Nexti
print Sum
End Sub
Function fun(t As Integer)As Long
P=1
For i=1 To t
P=P*i
Next i
【  】
End Function
以上程序的功能是,计算1 1+2 1+3 1+…+n!,其中n从键盘输入,请填空。

选项

答案sum+fun(i),fun=p

解析 在命令按钮中,要计算前n个数的乘方和,【  】处填Sum+fun(i);fun函数实现的是求一个数的阶乘,函数结束要返回计算结果,【  】处填fun=p。
转载请注明原文地址:https://kaotiyun.com/show/Z01p777K
0

最新回复(0)