Построение алгоритма и его реализация в среде Visual Basic для следующей задачи: Ученик выполнил работу. В зависимости от количества ошибок в работеученика необходимо выставить соответствующую отметку за работу. При выставлении отметки учитель пользуется следующими значениями – при отсутствии ошибок оценка 5, при одной ошибке - 4, при 2 ошибках – 3, при 3 и более ошибках – 2.
Ну, если я правильно понял суть задания, то: osh - кол-во ошибок, oc - осценка. Соль программы в том, что учитель вбивает количество ошибок, и ему выдается оценка, которую надо поставить. Что-бы программа работала, создашеь кнопку на форме, жмешь по ней два раза в VB, появится окно для ввода кода программы, туда пишешь вот эту команду: Ocenka() Потом после этой команды находишь строчку End Sub, она будет перед End Class, и копируешь вот этот код: Sub Ocenka() Dim osh, oc As Byte osh = InputBox("Введите количество ошибок") If osh = 0 Then oc = 5 ElseIf osh = 1 Then oc = 4 ElseIf osh = 2 Then oc = 3 ElseIf osh >= 3 Then oc = 2 End If MsgBox("Оценка ученика - " & oc) End Sub Ну впринципе все) Скрин програмки прилагается)
