汉诺塔问题的VB解决方案

赵玉勇 · 2001年第26期

著名的汉诺塔（Hanoi）问题是一个典型的递归问题。它像我们常说的老和尚讲故事，却又不仅仅那么简单，它可以认为是一种特殊的循环，并且如果不用递归程序的话，可能也没有其他的解决方法了。问题如下：
　　 有三根柱子A、B、C，A柱子上有64个圆环，圆环大小不等，大的在下，小的在上，要求将这64个圆环从A柱子移到C柱子，在移动过程中可借助B柱子，每次只准移动一个圆环，且在移动的过程中在三根柱子上都保持大盘在下小盘在上的局面。要求编程写出移动步骤。
　　#1 分析过程：
　　 通过总结，我们将n个圆环从A柱子移到C柱子可以分解为以下三个步骤：
　　 1.将A上n-1个圆环从C柱子先移到B柱子上。
　　 2.将A上剩下的一个盘移到C柱子上。
　　 3.将n-1个盘从B柱子上借助A柱子移到C柱子上。
　　 通过归纳，上面的三个问题又可总结成两个问题：
　　 1.将n-1个盘从一根柱子移到另一根柱子（n>1），这是一个递归过程。
　　 2.将1个圆环从一根柱子移到另一根柱子。
　　 因此，第1个问题通过子程序hano（）来实现，第2个问题通过子程序movet（）来实现。
　　 ＇汉诺塔问题源程序
　　 Private Sub movet（getone As String，putone As String） ＇从一根柱子移到另一根柱子的子程序
　　 TxtList.Text=TxtList.Text+getone+"->"+putone+vbCr+vbLf ＇输出
　　 End Sub
　　 Private Sub hano（n As Integer，one As String，two As String，three As String） ＇从一根柱子移动n-1个圆环到另一根柱子
　　 If n=0 Then ＇无操作数时的处理
　　 Else
　　 If n=1 Then
　　 movet one，three
　　 Else
　　 hano n-1，one，three，two
　　 movet one，three
　　 hano n-1，two，one，three
　　 End If
　　 End If
　　 End Sub
　　 Private Sub CmdExit_Click（） ＇退出按钮
　　 Unload Me
　　 End Sub
　　 Private Sub CmdList_Click（）＇列表按钮
　　 TxtList.Text=""
　　 Dim m As Integer
　　 m=Val（TxtInput.Text） ＇将从文本框输入数据放入变量中
　　 hano m，"A"，"B"，"C"
　　 End Sub
　　 这样，在VB中解决汉诺塔问题的程序就完成了，是不是很简单？以上程序在VB 6.0下调试通过。