用vb.net編程漢諾塔 vb漢諾塔程序

VB 程序設(shè)計(jì) （漢諾塔問題）

給你個(gè)參考：

成都創(chuàng)新互聯(lián)為客戶提供專業(yè)的網(wǎng)站建設(shè)、做網(wǎng)站、程序、域名、空間一條龍服務(wù)，提供基于WEB的系統(tǒng)開發(fā). 服務(wù)項(xiàng)目涵蓋了網(wǎng)頁設(shè)計(jì)、網(wǎng)站程序開發(fā)、WEB系統(tǒng)開發(fā)、微信二次開發(fā)、移動(dòng)網(wǎng)站建設(shè)等網(wǎng)站方面業(yè)務(wù)。

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("請(qǐng)輸入圓盤的個(gè)數(shù)"))

Print Tab(5); "將" x "個(gè)圓盤從A柱移到C柱的移動(dòng)順序?yàn)?

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

是上面的函數(shù)的四個(gè)參數(shù)呀,這是在函數(shù)中再次調(diào)用本函數(shù)

漢羅塔游戲VB程序怎么寫

Dim N As Integer

Private Sub Form_Click()

Dim N As Integer

N = Val(InputBox("請(qǐng)輸入漢諾塔的圓盤總數(shù):"))

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個(gè)圓盤從第" A "根柱子移到第" C "根柱子"

Else

Call MoveDisk(N - 1, A, C, B)

Print "將第" N "個(gè)圓盤從第" A "根柱子移到第" C "根柱子"

Call MoveDisk(N - 1, B, A, C)

End If

End Sub

這個(gè)是文字型的,你自己轉(zhuǎn)換成圖片的吧

VB：漢諾塔問題的遞歸調(diào)用函數(shù)

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 '此值即為漢諾塔的階數(shù).計(jì)算超過12的漢諾塔會(huì)死機(jī),

Hnt (i,a,b,c)

text1.text=ncont

end sub

運(yùn)行結(jié)果:127

網(wǎng)站題目：用vb.net編程漢諾塔 vb漢諾塔程序
文章地址：http://muchs.cn/article8/doshsop.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站收錄、企業(yè)網(wǎng)站制作、靜態(tài)網(wǎng)站、軟件開發(fā)、手機(jī)網(wǎng)站建設(shè)、品牌網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)