Option Explicit
Private Sub hanoi(n As Integer, one As String, two As String, three As String)
If n = 1 Then
Print Tab(5); one; "------->"; three
Else
Call hanoi(n - 1, one, three, two)
Print Tab(5); one; "------->"; three
Call hanoi(n - 1, two, one, three)
End If
End Sub
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输入圆盘的个数"))
Print Tab(5); "将" & x & "个圆盘从A柱移到C柱的移动顺序为"
Call hanoi(x, "A", "B", "C")
End Sub
B. 汉诺塔问题VB递归算法实现
碟子移动规则如下：
1. 如果碟子总数为奇数，则首先将最小碟子（编号为1）移动到3号柱上；如果碟子总数为偶数，则移动到2号柱上。
2. 然后检查3号柱是否已放满碟子。若未满，则重复步骤1直至所有碟子正确放置。
3. 下次移动的碟子根据前一个移动碟子编号的奇偶性来确定：
- 若前一个移动碟子编号为偶数，则本次移动的目标柱与上次相同，来源柱变改。
- 若前一个移动碟子编号为奇数，则本次移动的目标柱不变，比较另外两柱子上碟子编号。将较小的碟子移动到较大的碟子上。若其中一柱无碟，将另一柱最上层碟子移动给它。
C. 关于汉诺塔问题的尽可能多的信息
汉诺塔
汉诺塔（又称河内塔）问题是印度的一个古老的传说。开天辟地的神勃拉玛在一个庙里留下了三根金刚石的棒，第一根上面套着64个圆的金片，最大的一个在底下，其余一个比一个小，依次叠上去，庙里的众僧不倦地把它们一个个地从这根棒搬到另一根棒上，规定可利用中间的一根棒作为帮助，但每次只能搬一个，而且大的不能放在小的上面。解答结果请自己运行计算，程序见尾部。面对庞大的数字(移动圆片的次数)18446744073709551615，看来，众僧们耗尽毕生精力也不可能完成金片的移动。
后来，这个传说就演变为汉诺塔游戏:
1.有三根杆子A,B,C。A杆上有若干碟子
2.每次移动一块碟子,小的只能叠在大的上面
3.把所有碟子从A杆全部移到C杆上
经过研究发现，汉诺塔的破解很简单，就是按照移动规则向一个方向移动金片：
如3阶汉诺塔的移动：A→C,A→B,C→B,A→C,B→A,B→C,A→C
此外，汉诺塔问题也是程序设计中的经典递归问题。
补充：汉诺塔的算法实现（c++）
#include <fstream>
#include <iostream>
using namespace std;
ofstream fout("out.txt");
void Move(int n,char x,char y)
{
fout<<"把"<<n<<"号从"<<x<<"挪动到"<<y<<endl;
}
void Hannoi(int n,char a,char b,char c)
{
if(n==1)
Move(1,a,c);
else
{
Hannoi(n-1,a,c,b);
Move(n,a,c);
Hannoi(n-1,b,a,c);
}
}
int main()
{
fout<<"以下是7层汉诺塔的解法:"<<endl;
Hannoi(7,'a','b','c');
fout.close();
cout<<"输出完毕！"<<endl;
return 0;
}
如果你的机子足够快，硬盘160G以上的化，可以把以上的程序改成64，运行完毕就是64汉诺塔的解法了。