Создание циклов - VB

Узнай цену своей работы

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

помогите создать программу

Решение задачи: «Создание циклов»

textual
Листинг программы 
Sub main()
Dim a As Byte
a = InputBox("Введите результат")
Select Case a
Case Is <= 12: a = 2
Case 13 To 15: a = 3
Case 16 To 20: a = 4
Case Else: a = 5
End Select
MsgBox "Оценка: " & a
End Sub

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

Оцени полезность:

6   голосов , оценка 3.667 из 5