UC知道VB中的求阶乘之和的问题
来源：百度知道 编辑：UC知道 时间：2024/06/06 18:33:50
在文本框中输入一个整数n,单击“计算”按钮，则计算1！+2！+…+n!,同时在文本框中显示计算结果，给出的不完整的程序如下，将其补充完整。
Private Sub Command2_Click()
Dim s As Long, k As Integer
'考生应编写的程序
End Sub
Function f(n As Integer) As Long
s = ?
For k = 2 To n
s = s * k
Next
f = ?
End Function
Private Sub Command2_Click()
Dim s As Long, k As Integer
'考生应编写的程序
End Sub
Function f(n As Integer) As Long
s = ?
For k = 2 To n
s = s * k
Next
f = ?
End Function
朋友，你忘了文本框了吧，还有一个求和的
Private Sub Command2_Click()
Dim s As Long, k As Integer, a As Integer
a = Val(Text1.Text)
Print f(a)
End Sub
Function f(n) As Long
s = 1: Sum = 1
For k = 2 To n
s = s * k
Sum = Sum + s
Next
f = Sum
End Function
这样运行就OK啦
