Помогите решить легкую задачу , но для меня слишком сложную . Язык VBA 6.0
Дано целое число K. Вывести строку-описание оценки, соответствую-
щей числу K (1—«плохо», 2—«неудовлетворительно», 3—«удовлетворительно», 4—«хорошо», 5—«отлично»). Если K не лежит в диапазоне 1–5,вывести ошибку
Кто первым поможет решить 10 кредитов подарю
Модератор MiSsiS_IA выписал штраф создателю темы в размере 0.1$ за несоблюдение правил рекламы, по причине: реклама Модератор MiSsiS_IA заблокировал пользователю IceXe доступ к данному разделу до 03.05.2014 18:22 по причине: Темы с просьбами (подыскать задания, предложить рефералов, найти выполнителя услуг и пр.) помечаются автором темы как «Реклама». В противном случае автору темы выписывается штраф и дается бан на 1 день без снятия рейтинга.
Console.WriteLine("Введите К")
Dim K As Integer = Integer.Parse(Console.ReadLine())
Dim s As String
Select Case K
Case 1
s = "плохо"
Exit Select
Case 2
s = "неудовлетворительно"
Exit Select
Case 3
s = "удовлетворительно"
Exit Select
Case 4
s = "хорошо"
Exit Select
Case 5
s = "отлично"
Exit Select
Case Else
s = "Ошибка"
Exit Select
End Select
Console.WriteLine(s)
Console.ReadLine()