Реферат: Курс лекций по V B 5.0

Пример:

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 Then Else

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

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

If X % = VbNo Then

Cancel = True

Else

Cancel = False

End IF

End Sub

Пример 2 .

If optColor1.Value Then

Color$ = «Красный»

Else If optColor2.Value Then

Color$ = «Зеленый»

Else If optColor3.Value Then

Color$ = «Синий»

Else

Color$ = «Белый»