vb使用递归法,编写计算阶乘的程序
展开全部
Function Factorial(n As Integer) As Double
If Factorial = 0 Then Factorial = 1
If n > 1 Then Factorial = n * Factorial(n - 1)
End Function
Private Sub Form_Click() '点击窗体运行
MsgBox "阶乘计算结果为 " & Factorial(Val(InputBox("请输入一个整数，不要太大")))
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Private Function Factorial1(intN As Integer) As Integer
If intN = 0 Then
Factorial1 = 1
Else
Factorial1 = Factorial1(intN - 1) * intN
End If
End Function
If intN = 0 Then
Factorial1 = 1
Else
Factorial1 = Factorial1(intN - 1) * intN
End If
End Function
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
