Вывести текст в зависимости от оценки

@Янки19 · Регистрация: 09.11.2013

Студворк — интернет-сервис помощи студентам

Создайте макрос в VBA, при котором: При нажатии кнопки компьютер спрашивает: «Какую отметку ты получил?» и реагирует на неё следующим восклицаниями:
Если 1,2 – выдается текст с предупреждением (vbCritical) «Кошмар»
Если 3 – «Неважно»
Если 4 – «Неплохо»
Если 5 – «Почти гений» и восклицательный знак (vbInformation)
Иначе «Таких отметок не бывает» и переход к первому вопросу «Какую отметку ты получил?».

@Vlad999 · 13.12.2015, 12:19

Visual Basic

Sub vvv()
Dim n%
On Error Resume Next
Do
Err.Clear
  n = InputBox("Какую отметку ты получил?")
   If Err.Number <> 0 Or n > 5 Then
     MsgBox ("Таких отметок не бывает")
   Else
     Exit Do
   End If
Loop
Select Case n
  Case 1, 2
   MsgBox "Кошмар", vbCritical
  Case 3
   MsgBox "Неважно"
  Case 4
   MsgBox "Неплохо"
  Case 5
   MsgBox "Почти гений", vbInformation
End Select
End Sub

@~~Апострофф~~ · 13.12.2015, 13:12

Vlad999, на 0, -1 и т.д. нет реакции

Вариант:

Visual Basic

Sub vvvv()
1
Select Case Val(InputBox("Какую отметку ты получил?"))
  Case 1, 2
   MsgBox "Кошмар", vbCritical
  Case 3
   MsgBox "Неважно"
  Case 4
   MsgBox "Неплохо"
  Case 5
   MsgBox "Почти гений", vbInformation
  Case Else
    MsgBox "Таких отметок не бывает": GoTo 1
End Select
End Sub

Вывести текст в зависимости от оценки

Решение

Решение

@Янки19 21 / 1 / 0 Регистрация: 09.11.2013 Сообщений: 68
		1
	Вывести текст в зависимости от оценки 12.12.2015, 16:21. Показов 1148. Ответов 2 Метки нет (Все метки) Создайте макрос в VBA, при котором: При нажатии кнопки компьютер спрашивает: «Какую отметку ты получил?» и реагирует на неё следующим восклицаниями: Если 1,2 – выдается текст с предупреждением (vbCritical) «Кошмар» Если 3 – «Неважно» Если 4 – «Неплохо» Если 5 – «Почти гений» и восклицательный знак (vbInformation) Иначе «Таких отметок не бывает» и переход к первому вопросу «Какую отметку ты получил?». 1

Опции темы