LOTUSSCRIPT 言語

例:GoSub ステートメント
' In response to user input, LotusScript transfers control
' to one of three labels, constructing an appropriate
' message, and continues execution at the statement
' following the GoSub statement.

Sub GetName
Dim yourName As String, Message As String
yourName$ = InputBox$("What is your name?")
If yourName$ = "" Then ' The user enters nothing.
GoSub EmptyString
' Do a case-insensitive comparison.
ElseIf LCase(yourName$) = "john doe" Then
GoSub JohnDoe
Else
Message$ = "Thanks, " & yourName$ _
& ", for letting us know who you are."
End If
' The Return statements return control to the next line.
MessageBox Message$
Exit Sub

EmptyString:
yourName$ = "John Doe"
Message$ = "Okay!As far as we're concerned, " _
& "your name is " & yourName$ & _
", and you're on the run!"
Return

JohnDoe:
Message$ = "We're on your trail, " & yourName$ _
& ".We know you are wanted dead or alive!"
Return
End Sub
GetName ' Call the GetName sub.

関連項目