Вопрос по информатике:
Написать программу , для выставления оценок
всего баллов до 25- оценка 2
от 25 до 35 оценка 3 иначе 2
баллов от 36 до 46 оценка 4 иначе 3
баллов больше 47 оценка 5
Бейсик
- 17.06.2017 03:44
- Информатика
- remove_red_eye 19766
- thumb_up 44
Ответы и объяснения 1
Sub balls()
Dim ball As Integer, score As Integer
score = Val(InputBox("Введите полученную сумму баллов"))
Select Case score
Case 25 To 35: ball = 3
Case 36 To 46: ball = 4
Case Is > 47: ball = 5
Case Else: ball = 2
End Select
MsgBox ball
End Sub
- 18.06.2017 05:09
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.