Option Base 1
Sub Main
‘ Работа условного оператора в диалоге с пользователем.
X=MsgBox
(«Hello! Click OK or Cancel», _
vbAbortRetryIgnore ) ‘Переменной Х присваивается значение,
которое пользователь выбрал в ящике.
If
X=vbRetry Then
MsgBox
«You clicked Retry»
End If
If
X=vbIgnore Then
MsgBox
«You clicked Ignore»
End If
If
X=vbAbort Then
MsgBox
«You clicked Abort» ‘В ящике появится результат сравнения.
End If
End Sub