Задачки на условия If и Select Case - VB

Формулировка задачи:

Ребят решите кто - нибудь задачки: 1)Определить являеться ли треугольник равнобедренным! Со сторонами a, b , c ! ---------------------------------- 2)Дан номер месяца (1-январь,2-февраль...) вывести число дней в этом месяце для невисокосного года (т.е. в феврале 28 дней)! ---------------------------------- и если сможете вот эту 3)Дано целое число в дипазоне от 1 до 5.Вывести строку-словесное описание соответствующей оценки(1-"плохо", 2- "неудовлетворительно", 3- "Удовлетворительно",4- "Хорошо", 5- "Отлично") ---------------------------------- От меня большооой +

Решение задачи: «Задачки на условия If и Select Case»

textual
                            Листинг программы 
                        
                            Dim ball As Byte