Код проги ханойская башня

[NeoProUniti]

Доброго времени суток!!!
к понедельнику задали на Visual Basic 6.0 сделать программу "ханойскую башню".
Суть такова:Рисуем три палки,на первой палки 3 фигурки Большая,средняя и маленькая, нужно с первой палки перебросить фигурки на вторую,при этом нельзя чтобы большая фигурка лежала на маленькой,прошу помогите составить код программы.
P.S Заранее благодарен!!!

[NeoProUniti]

Ну где та самая помощь студентам??

[ACE Valery]

А где тут про помощь? Я вижу только "Составьте за меня код". Впрочем, если уж вам религия не позволяет погуглить в поиске алгоритма одной из самых знаменитых задач, то пжалста, мне не жалко:

Рекурсивный метод
Для того, чтобы переложить всю пирамиду, надо сначала переложить все, что выше самого большого диска, с первого на вспомогательный стержень, потом переложить это самое большой диск с первого на третий стержень, а потом переложить оставшуюся пирамиду со второго на третий стержень, пользуясь первым стержнем, как вспомогательным.
/*
данная процедура переносит N дисков со стержня A на стержень C
пользуясь B как вспомогательным, соблюдая правила
*/

процедура "Перенести" (A, B, C, N)
начало
если N=1
// Если диск всего один, то надо его перенести напрямую
то
снять диск со стержня A и положить на стержень C;
возврат из процедуры;
иначе
// Переносим все диски, кроме самого большога со стежня
// A на стержень B
Перенести (A,C,B,N-1);
// Переносим самый большой диск со стержня A на стержень C
снять диск со стержня A и положить на стержень C;
// Переносим все диски со стержня B на стержень C поверх
// самого большого диска
Перенести (B,A,C,N-1);
возврат из процедуры;
конец если;
конец процедуры "Перенести";
Всего получается 2N-1 перекладываний.

[NeoProUniti]

Ну да я по моему не совсем точно сформулировал,
просто я совсем новичёк в программировании,а тут задали такое))
мне нужно показать,а потом я нахватаюсь))
В программе мне нужно сделать так чтобы я сам смог передвигать диски.
Вот если не очень трудно помоги пожалуйста.

[ACE Valery]

Совсем новичкам подобные задачи не задают, ну да ладно, это не важно. К сожалению, тут я уже помочь не могу, так как с бейсиком не дружу, а код на другом языке вам не поможет.

[NeoProUniti]

ну мы разбирали сначала задачу с вёдрами( типо перелить воду так чтобы в 1 и 2 было по 4 литра,а теперь задали такую самостоятельно) и я мягко в ауте)))