这也叫递归，气的半死了，哈哈哈哈。

dianyancao 2011-02-11 09:06:29

Option Explicit



Dim a As Integer

Dim b As Integer



Private Sub Command1_Click()

  a = 1

  b = 4

  MsgBox stack(b)

End Sub



Private Function stack(stackitem As Integer) As Long

If a = 1 Then

   stack = 1

ElseIf stackitem = b Then

  stack = b

  Exit Function

Else

  stack = stackitem

End If

a = a + 1

If a <= b Then stack = stack * stack(a)

End Function

...全文

174 16 打赏收藏转发到动态举报

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

貓哥是個傳說 2011-02-12

打赏
举报

俺一直沒弄懂遞歸。。

jiashie 2011-02-12

打赏
举报

混淆代码大赛

杨哥儿 2011-02-12

打赏
举报

递归未用熟！

孤独剑_LPZ 2011-02-12

打赏
举报

[Quote=引用 9 楼 dianyancao 的回复:]
无聊，发下JM帖。
[/Quote]
wljf

chinaboyzyq 2011-02-12

打赏
举报

king06 2011-02-12

打赏
举报

Private Function stack(stackitem As Integer) As Long
Dim s As Long
If a = 1 Then
s = 1
ElseIf stackitem = b Then
stack = b
Exit Function
Else
s = stackitem
End If
a = a + 1
If a <= b Then stack = s * stack(a)
End Function

lxq19851204 2011-02-12

打赏
举报

dianyancao 2011-02-12

打赏
举报

无聊，发下JM帖。

dianyancao 2011-02-12

打赏
举报

这个才是原版。

Option Explicit



Private Sub Command1_Click()

Dim n%, i%, R&

n = InputBox("")

R = Rsl(n)

MsgBox R

End Sub



Private Function Rsl(Item As Integer) As Double

  If Item = 0 Then Rsl = 1 Else Rsl = Item * Rsl(Item - 1)

End Function

threenewbee 2011-02-12

打赏
举报

不知道从什么时候开始阶乘用递归来写了，这纯粹是没事找事。

是不是以后 sum(1 to 100) 之类的也要递归啊。

我觉得让学生明白递归的用途更重要。其实汉诺塔是一个很经典的案例。

dianyancao 2011-02-11

打赏
举报

哈哈，这个写的更糟糕

Option Explicit



Dim a As Integer

Dim b As Integer



Private Sub Command1_Click()

  a = 3

  b = 4

  MsgBox stack(a, b)

End Sub



Private Function stack(startitem As Integer, enditem As Integer) As Long

If a = 0 Or a = 1 Then

   stack = 1

ElseIf startitem = b Then

  stack = b

  Exit Function

Else

  stack = startitem

End If

a = a + 1

If a <= b Then stack = stack * stack(a, b)

End Function