芙蓉鸟繁殖吧:汉诺塔
来源:百度文库 编辑:九乡新闻网 时间:2024/07/14 09:53:35
汉诺塔。
Private Sub Hanoi(ByVal n%, ByVal A$, ByVal B$, ByVal C$)
'在本例子过程中,在窗体上打印 “A → C” 来代表把金片从A针移动
'到C针,即1阶汉诺塔问题的解
If n=1 Then
Print n; ": "; A; "→"; C '把金片n从A移动到C
Else
Hanoi n-1, A, C, B 'n?1个金片从A到B,以C为过渡
Print n; ": "; A; "→ "; C '把金片n从A移动到C
Hanoi n-1, B, A, C 'n?1个金片从B到C,以A为过渡
End If
End Sub
Private Sub Hanoi(ByVal n%, ByVal A$, ByVal B$, ByVal C$)
'在本例子过程中,在窗体上打印 “A → C” 来代表把金片从A针移动
'到C针,即1阶汉诺塔问题的解
If n=1 Then
Print n; ": "; A; "→"; C '把金片n从A移动到C
Else
Hanoi n-1, A, C, B 'n?1个金片从A到B,以C为过渡
Print n; ": "; A; "→ "; C '把金片n从A移动到C
Hanoi n-1, B, A, C 'n?1个金片从B到C,以A为过渡
End If
End Sub