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

給你個參考：

創(chuàng)新互聯(lián)專注于企業(yè)成都全網(wǎng)營銷推廣、網(wǎng)站重做改版、德令哈網(wǎng)站定制設(shè)計、自適應(yīng)品牌網(wǎng)站建設(shè)、H5網(wǎng)站設(shè)計、電子商務(wù)商城網(wǎng)站建設(shè)、集團公司官網(wǎng)建設(shè)、外貿(mào)營銷網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計等建站業(yè)務(wù)，價格優(yōu)惠性價比高，為德令哈等各大城市提供網(wǎng)站開發(fā)制作服務(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("請輸入圓盤的個數(shù)"))

Print Tab(5); "將" x "個圓盤從A柱移到C柱的移動順序為"

Call hanoi(x, "A", "B", "C")

End Sub

漢羅塔游戲VB程序怎么寫

Dim N As Integer

Private Sub Form_Click()

Dim N As Integer

N = Val(InputBox("請輸入漢諾塔的圓盤總數(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個圓盤從第" 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

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

vb編程：漢諾塔

這個程序難度不小，估計是個課程設(shè)計或是畢業(yè)設(shè)計之類的，我建議你還是自己先動手做，當遇到問題再提出來大家?guī)兔Α２皇且粋€人一兩天能做出來的，只要開始去做，好的開始是成功的一半。

vb漢諾塔

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

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

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

網(wǎng)站標題：用vb.net編程漢諾塔,c語言漢諾塔編程
文章鏈接：http://www.aaarwkj.com/article34/hsoise.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供Google、做網(wǎng)站、服務(wù)器托管、網(wǎng)站設(shè)計公司、云服務(wù)器、品牌網(wǎng)站建設(shè)

廣告

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