大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

用vb.net编程汉诺塔 vb汉诺塔程序

VB 程序设计 (汉诺塔问题)

给你个参考:

成都创新互联为客户提供专业的网站建设、做网站、程序、域名、空间一条龙服务,提供基于WEB的系统开发. 服务项目涵盖了网页设计、网站程序开发、WEB系统开发、微信二次开发、移动网站建设等网站方面业务。

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

vb汉诺塔

private function Hnt(n as integer,A,as string,B as string,C as string)

Hnt (n-1),a,c,b

是上面的函数的四个参数呀,这是在函数中再次调用本函数

汉罗塔游戏VB程序怎么写

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

这个是文字型的,你自己转换成图片的吧

VB:汉诺塔问题的递归调用函数

dim ncont as double

private function Hnt(n as integer,A,as string,B as string,C as string)

ncont=ncont+1

if n1 then

Hnt (n-1),a,c,b

Hnt (n-1),b,a,c

end if

end function

private sub command1_click()

dim i as integer

dim a as string

dim b as string

dim c as string

i=7 '此值即为汉诺塔的阶数.计算超过12的汉诺塔会死机,

Hnt (i,a,b,c)

text1.text=ncont

end sub

运行结果:127


新闻名称:用vb.net编程汉诺塔 vb汉诺塔程序
当前链接:http://dzwzjz.com/article/doshsop.html
在线咨询
服务热线
服务热线:028-86922220
TOP