VB递归格式
答案:3 悬赏:70 手机版
解决时间 2021-04-29 17:33
- 提问者网友：niaiwoma
- 2021-04-29 05:42
RT
最佳答案
- 五星知识达人网友：西风乍起
- 2021-04-29 06:50
给个例子你，这个是阶乘的方法：
阶乘的公式如下：
F=1 （n=1）
F=F*(n-1) （n>1）
代码如下：
Function F(n As Integer) As Long
F = 1
Else
F = n *(n - 1)
end If
End Function
Private Sub Form_Click()
Dim a As Integer
a=Val(InputBox(”请输入a：“))
Print F(a)
End Sub
全部回答
- 1楼网友：七十二街
- 2021-04-29 09:22
[Function|Sub] FuncName(params) [As Type]
If [Expression] Then
FuncName=[Value]
Else
FuncName=FuncName(params)
End If
End [Function|Sub]
- 2楼网友：煞尾
- 2021-04-29 08:12
已阶乘算法为例
Function Factorial(n As Long) As Long If n = 1 Then
Factorial = 1
Else
Factorial = n * Factorial(n - 1)
end if End Function
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯