VB语句问题,用递归的方法,求任意数的阶乘.

来源：学生作业帮编辑：搜搜做题作业网作业帮分类：综合作业时间：2024/07/11 04:36:16

Private Sub Command1_Click()
n = InputBox("请输入阶数n：")
s = f(n)
Print n & "!=" & s
End Sub
Private Function f(ByVal n As Integer)
If n = 0 Or n = 1 Then
f = 1
Else
f = n * f(n - 1)
End If
End Function
再问：编写求阶乘的子过程，调用该过程计算5！+6！+7！之和。麻烦了
再答： Private Sub Command1_Click() Dim n As Integer n = InputBox("请输入阶数n(n>=7)：") Call sub1(n) End Sub Private Sub sub1(n As Integer) Dim i As Integer, s As Integer For i = 5 To 7 s = s + fact(i) Next i Print 5 & "!+" & 6 & "!+" & 7 & "!=" & s End Sub Private Function fact(n As Integer) fact = 1 For i = 1 To n fact = fact * i Next i End Function

VB语句问题,用递归的方法,求任意数的阶乘. 利用递归的方法求自然数n的阶乘 VB编程：用递归方法求n阶勒让德多项式的值,递归公式为：请问用递归法怎样写VB语句?还有 VB中的递归法是怎样的? 求阶乘n!的递归算法 vb求n的阶乘n 用递归方法写出计算n的阶乘的函数,调用该函数计算0=1,2.10时各阶乘的值用递归的方法完成下列问题求n个整数的积 VB语句问题,编写求矩形面积的函数过程,调用该函数求任意两个矩形的面积和. 使用VB 6.0 制作一个程序,求1!+2!+3!+……+n!要求输入任意的N,求1到N的阶乘.用Inputbox 和M 一个VB问题求,有关 for ...next .语句的. vb用递归法求Fibonacci数列的第20、200项