VB 程序設計 （漢諾塔問題）

給你個參考：

創新互聯專注于企業成都全網營銷推廣、網站重做改版、德令哈網站定制設計、自適應品牌網站建設、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

漢羅塔游戲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編程：漢諾塔

這個程序難度不小，估計是個課程設計或是畢業設計之類的，我建議你還是自己先動手做，當遇到問題再提出來大家幫忙。不是一個人一兩天能做出來的，只要開始去做，好的開始是成功的一半。

vb漢諾塔

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

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

是上面的函數的四個參數呀,這是在函數中再次調用本函數

網站標題：用vb.net編程漢諾塔,c語言漢諾塔編程
文章鏈接：http://vcdvsql.cn/article34/hsoise.html

成都網站建設公司_創新互聯，為您提供Google、做網站、服務器托管、網站設計公司、云服務器、品牌網站建設

廣告

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