Вам не кажется, что на бейсике есть ещё такая штука как select case? Ниже пишут, что если в условии задачи не указано, что I может принимать другие значения, кроме 1 и 2, то это можно не проверять. Поверьте, проверять нужно, т.к. программы должны писаться с ориентацией на средних "дураков"…