2015-07-21
213
В следующем примере приведён фрагмент кода, который определяет результаты тестирования студентов по стобальной системе. При нажатии кнопки cmdResult код программы считывает сумму балов из поля txtSum и помещает результат в надпись lblGrade.
Private Sub cmdResult_Click()
Dim nSum as Integer
Nsum = txtSum
Select Case Nsum
Case 100 ‘используется значение
LblGrade = “Великолепно”
Case 90, 91, 92, 93, 94, 95, 96, 97, 98, 99 ‘используется список значений
LblGrade = “Отлично”
Case 60 To 89 ‘используется диапазон значений
LblGrade = “Хорошо”
Case 30 To 59 ‘используется диапазон значений
LblGrade = “Удовлетворительно”
Case Is < 30 ‘используется оператор сравнения
LblGrade = “Неудовлетворительно”
‘используется, если Nsum не равен ни одному из значений оператора Case
Case Else
LblGrade = “Ошибка! Сумма баллов не может быть более 100”
End Select
End Sub
