看图VB这个排队如何
答案:1 悬赏:70 手机版
解决时间 2021-04-18 22:49
- 提问者网友：低吟詩仙的傷
- 2021-04-18 00:21
看图VB这个排队如何
最佳答案
- 五星知识达人网友：一把行者刀
- 2021-04-18 02:01
Function f&(ByVal j%, ByVal i%)
If i = 0 Then
f = 1
ElseIf j < i Then
f = 0
Else
f = f(j - 1, i) + f(j, i - 1)
End If
End Function
Sub main()
Dim m%, n%
m = InputBox("m=")
n = InputBox("n=")
Debug.Print "f("; m; ","; n; ")="; f(m, n)
End Sub
If i = 0 Then
f = 1
ElseIf j < i Then
f = 0
Else
f = f(j - 1, i) + f(j, i - 1)
End If
End Function
Sub main()
Dim m%, n%
m = InputBox("m=")
n = InputBox("n=")
Debug.Print "f("; m; ","; n; ")="; f(m, n)
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯