Ханойские башни

[Игорь()]

Господа программисты, помогите решить задачу!
Я начинающий и не могу решить эту задачу про Ханойские башни, поэтому обращаюсь к более опытным программистам.
Задача решается с помощью рекурсии. Имеется 3 колышка, на первый колышек нанизаны, допустим 5 дисков,и нанизаны они так, что из размеры последовательно уменьшаются к вершине. Нужно переместить все диски с первого колышка на второй колышек при условии, что каждый раз берётся только по одному диску и больший диск никогда не должен находиться над меньшим диском. Временно диски можно размещать на третьем колышке.
Если это возможно, то решить задачу без использования массивов.
Можно на VB.6 или VB.Net

[GSerg]

Код: Выделить всё

Option Explicit

Private Sub Form_Load()
  Me.AutoRedraw = True
  DoMove 3, 1, 2, 3
End Sub

Private Function DoMove(ByVal n As Long, ByVal s1 As Long, ByVal s2 As Long, ByVal s3 As Long) As Boolean
  If n > 0 Then
    DoMove n - 1, s1, s3, s2
    Me.Print "Двигаем со столбика " & s1 & " на столбик " & s2
    DoMove n - 1, s3, s2, s1
  End If
End Function

ЗЫ: яндекс рулит

[Игорь()]

Спасибо!!!