Реферат: Основы Visual Basic 50

Позволяет обрабатывать несколько вариантов выбора.

Select Case переменная или выражение

Case оператор проверки условия

действие 1

.

.

.

Case . . . . . .

действие n-1

End Select

Пример:

Select Case Ball

Case Is < 13 позволяет проверить значение переменной

Grade = 2

Case Is < 18

Grade = 3

Case Is < 22

Grade = 4

Case Else

Grade = 5

End Select

Пример 1. If ThenElse

Private Sub Form_QueryUnload(Cansel As Integer, UnloadMode As Integer)

X % = MgBox(“Вы уверены?”, VbYesNo)

If X % = VbNo Then

Cancel = True

Else

Cancel = False

End IF