А Вы напишите, как будете ее решать чисто математически,
а по этому решению можно будет и код написать.
Подумайте, задачка очень прикольная.. .
--
Не обязательно сразу писать кодами.
Пишите русскими словами:
ЕСЛИ, ТО, ИНАЧЕ . .
--
Ну, и если Вы хотите вспомнить синтаксис Visual Basic,
то могу привести ссылки на сайты с учебниками.
Но надо указывать какой Visual Basic.
А то их много всяких разных.
Visual Basic Script
Visual Basic Application (для Excel, Word, Access, MS Outlook, Power Point, Visio, CorelDraw, AutoCAD, OpenOffice, LibreOffice)
Visual Basic 6.0
Visual Basic .NET (релиз 2003, 2005, 2008, 2010, 2012)
--
Подсказываю я бесплатно.
А вот код пишу не бесплатно.
Увы, у программистов работа такая - писать код за деньги.