VBA (UserForm)

[Zhene4ka2607]

Составить программу, позволяющую получить словесное описание отметок (2 – «неудовлетворительно», 3 – «удовлетворительно», 4 – «хорошо», 5 – «отлично»).

[EducatedFool]

Sub ОченьСложнаяПрограмма()
    X = InputBox("Введите оценку"): If X = "" Then Exit Sub
    Select Case X
        Case 1: txt = "«Ужасно»"
        Case 2: txt = "«неудовлетворительно»"
        Case 3: txt = "«удовлетворительно»"
        Case 4: txt = "«хорошо»"
        Case 5: txt = "«отлично»"
        Case Else: txt = "Нет такой оценки!"
    End Select
    MsgBox txt, vbInformation, "Оценка"
End Sub

[Zhene4ka2607]

Я вам очень благодарна. Спасибо большое