码迷,mamicode.com
首页 > 其他好文 > 详细

汉诺塔VB实现

时间:2014-06-05 04:39:36      阅读:186      评论:0      收藏:0      [点我收藏+]

标签:c   class   blog   code   a   ext   

Dim num As Integer  '盘子的个数
Private Sub Hanoi(n As Integer, A As String, B As String, C As String) '移动盘子的递归过程
    If n = 1 Then
        Call Moves(A, C)
    Else
        Call Hanoi(n - 1, A, C, B)
        Call Hanoi(1, A, B, C)
        Call Hanoi(n - 1, B, A, C)
    End If
End Sub
Private Sub Moves(A As String, B As String) '移动
    Print A & "->" & B     '移动结果打印到屏幕上
    List1.AddItem A & "->" & B  '移动结果输出到列表框中
End Sub
Private Sub Command1_Click() '赋值及过程调用
num = Val(Text1.Text)
Call Hanoi(num, "A", "B", "C")
End Sub

汉诺塔VB实现,布布扣,bubuko.com

汉诺塔VB实现

标签:c   class   blog   code   a   ext   

原文地址:http://blog.csdn.net/guoqingchun/article/details/27203591

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!