重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
给你个参考:
创新互联专注于企业成都全网营销推广、网站重做改版、德令哈网站定制设计、自适应品牌网站建设、H5网站设计、电子商务商城网站建设、集团公司官网建设、外贸营销网站建设、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为德令哈等各大城市提供网站开发制作服务。
Private Sub hanoi(n As Integer, one As String, two As String, three As String)
If n = 1 Then
Print Tab(5); one; "-------"; three
Else
Call hanoi(n - 1, one, three, two)
Print Tab(5); one; "-------"; three
Call hanoi(n - 1, two, one, three)
End If
End Sub
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输入圆盘的个数"))
Print Tab(5); "将" x "个圆盘从A柱移到C柱的移动顺序为"
Call hanoi(x, "A", "B", "C")
End Sub
Dim N As Integer
Private Sub Form_Click()
Dim N As Integer
N = Val(InputBox("请输入汉诺塔的圆盘总数:"))
Call MoveDisk(N, "A", "B", "C")
End Sub
Sub MoveDisk(N, A As String, B As String, C As String)
If N = 1 Then
Print "将第1个圆盘从第" A "根柱子移到第" C "根柱子"
Else
Call MoveDisk(N - 1, A, C, B)
Print "将第" N "个圆盘从第" A "根柱子移到第" C "根柱子"
Call MoveDisk(N - 1, B, A, C)
End If
End Sub
这个是文字型的,你自己转换成图片的吧
这个程序难度不小,估计是个课程设计或是毕业设计之类的,我建议你还是自己先动手做,当遇到问题再提出来大家帮忙。不是一个人一两天能做出来的,只要开始去做,好的开始是成功的一半。
private function Hnt(n as integer,A,as string,B as string,C as string)
Hnt (n-1),a,c,b
是上面的函数的四个参数呀,这是在函数中再次调用本函数