VB自定义一个计算阶乘的函数过程fac(n),调用该函数过程计算s=1!+2!+3!+4!+5!+…+n!

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/28 14:28:32

VB自定义一个计算阶乘的函数过程fac(n),调用该函数过程计算s=1!+2!+3!+4!+5!+…+n!
要添加标准模块来做,包括标准模块那里的过程,

看了上面几位的代码：应该都写错了
楼主的问题是：s等于 1到N之间每个整数的阶乘相加,而不是N的阶乘
我没理解错吧?
稍等完毕：
在模块中输入代码：
Public Function fac(n As Integer) As Long '在模块中用public(公用的)定义函数过程
Dim i As Integer,j As Integer,s As Long
For i = 1 To n
s = 1
For j = 1 To i
s = s * j
Next j
fac = fac + s
Next i
End Function
在窗体中输入代码：
Private Sub Form_Click()
Dim s As Long
Dim n As Integer
n = InputBox("请输入一个整数")
s = fac(n)
Print s
End Sub
再问：救星，界面上还有有两个text，一个用来输入n，一个用来输入s，n是个数，s是总和，你能不能把它俩也定义下来，让我在界面输入n后可以点击计算命令按钮得到s，我完全迷茫啊……
再答：汗，主过程都这么明白了还不会改啊你等下我改下函数过程不变然后再窗体上的Text1输入N 的值，单击按钮计算，结果会出现在text2中在窗体中输入代码： Private Sub Command1_Click() '按钮单击事件 Dim s As Long Dim n As Integer n =val(text1.text) s = fac(n) text2.text = s End Sub

VB自定义一个计算阶乘的函数过程fac(n),调用该函数过程计算s=1!+2!+3!+4!+5!+…+n! 编写一个fac函数求一个数n的阶乘.其函数原型为long fac(int n),然后调用该函数求1!+2!+3!+4!+ 定义函数facto(int n)计算阶乘,主函数调用该函数,完成1!+2!+3!+…+s! vfp自定义一个求n!的函数,并利用该自定义函数计算:s=1!+3!+5!+7!+9! 编一个函数,计算并返回n的阶乘,n作为函数的参数.在主函数中调用该函数依次计算2!、3!、……10!. 用vb计算1/2-1/3+1/4-1/5+...+1/n,n是文本框任意输入的值分别用自定义子过程和自定义函数过程 1、编写一计算阶乘的函数fac,在主函数中从键盘输入一个正整数,调用阶乘函数fac计算阶乘并输出计算结果. 编程；VB 编写一个过程,用来计算下列表达式的值,并在事件过程中调用.S=1+1/2!+1/3!+...+1/n! 用fact函数求阶乘求和的vb语言用过程法 +2!+3!+ +n!调用fact函数求阶乘之和设计函数,求整数n的阶乘,并在主函数中调用该函数(通过循环结构)计算下列多项式:y=1!+3!+5!+7! 用递归方法写出计算n的阶乘的函数,调用该函数计算0=1,2.10时各阶乘的值用vb语言计算1!+2!+3!+…+10!,其中阶乘的计算分别用过程和函数实现.