漢諾塔。
Private Sub Hanoi(ByVal n%, ByVal A$, ByVal B$, ByVal C$)
'在本例子過程中,在窗體上打印 “A → C” 來代表把金片從A針移動(dòng)
'到C針,即1階漢諾塔問題的解
If n=1 Then
Print n; ": "; A; "→"; C '把金片n從A移動(dòng)到C
Else
Hanoi n－1, A, C, B 'n?1個(gè)金片從A到B，以C為過渡
Print n; ": "; A; "→ "; C '把金片n從A移動(dòng)到C
Hanoi n－1, B, A, C 'n?1個(gè)金片從B到C，以A為過渡
End If
End Sub
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
