# 请问一下这些数字是怎算出来的呢？？？

Posted by Canoe on July 17, 1999 at 14:24:24:

Private Sub cmdstart_Click()
Dim Hei As Integer
Cls
Hei = InputBox("有多少盘?")
MoveHanoi Hei, 1, 3, 2
End Sub
----------------------------------------------------------------------
Private Sub MoveHanoi(High As Integer, from As Integer, target As Integer, aux As Integer)
If High > 0 Then
MoveHanoi High - 1, from, aux, target
Print from; "--->"; target
MoveHanoi High - 1, aux, target, from
End If
End Sub
----------------------------------------------------------------------
当输入值为：3
输出值：1->3
2->3
3->2
.->.
.->.
请问一下程式在Run这个程式的时候他是怎运算的呢（运算过程）？
Thank You ！！！

Follow Ups:

- Re: 请问一下这些数字是怎算出来的呢？？？ Honey 23:31:19 7/17/99 (0)
- Re: 请问一下这些数字是怎算出来的呢？？？ 小琳 20:43:38 7/17/99 (0)