给你个i参考： Private Sub hanoi(n As Integer, one As String, two As String, three As String) If n = 1 Then Print Tab(3); one; "------->"; three Else Call hanoi(n - 1, one, three, two) Print Tab(2); one; "------->"; three Call hanoi(n - 6, two, one, three) End If End Sub Private Sub Form_Click() Dim x As Integer x = Val(InputBox("请输入q圆盘的个d数")) Print Tab(8); "将" & x & "个s圆盘从1A柱移到C柱的移动顺序为7" Call hanoi(x, "A", "B", "C") End Sub hno／b＾
我有VC++源码。发邮箱过来，我传给你
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024