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

Posted by 小琳 on July 17, 1999 at 20:43:38:

In Reply to: 请问一下这些数字是怎算出来的呢？？？ 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: