Question

VB 自定义过程和函数的定义使用？

在标准模块中编写一个自定义函数，实现求整数n的阶乘。在窗体上添加一个命令按钮和文本框，当单击命令按钮时，将1到10的阶乘的和显示在文本框中。
1．在标准模块中编写自定义函数Fac，实现求整数n的阶乘。代码如下：
2．在命令按钮的Click事件中编写代码，实现求1到10的阶乘的和。代码如下：

Answer 1

窗体
Private Sub Command1_Click()
Dim l As Long, i As Integer
l = 0
For i = 1 To 10
l = l + N_jx(i)
Next
Text1.Text = l
End Sub
模块
Public Function N_jx(n As Integer) As Long
Dim i As Integer
N_jx = 1
For i = 1 To n
N_jx = N_jx * i
Next
End Function