Построение алгоритма и его реализация в среде Visual Basic для следующей задачи: Ученик выполнил работу. В зависимости от количества ошибок в работе

+ 0 -

правильн

26 апр. 2014 г., 10:52:19 (10 лет назад)

Ну, если я правильно понял суть задания, то:

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

Ну впринципе все) Скрин програмки прилагается)

+ 0 -

Dima7676

26 апр. 2014 г., 11:48:47 (10 лет назад)

osh-кол ош oc-оценка

создаэш кнопку на форм жмеш 2 раза. в VB пиши Ocenka()

затем в стр EndSyd пиши код которий тебе придложил nikecontra 1