Создание циклов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д