LOTUSSCRIPT 言語

例:If...GoTo ステートメント
ユーザーに住宅の頭金を提示するように求めます。購入費用は、別の場所で $235,000 に設定されています。ユーザーが購入費用の 10% 以上の頭金を提示するかどうかによって、応答は異なります。

Sub ProcessMortgage(cost As Single)
  Dim downpmt As Single, msg As String
  msg$ = "Cost:" + Format(cost!, "Currency") _
        & ".Enter a down payment:"
  downpmt!= CSng(InputBox(msg$))
  If downpmt!< .1 * cost!GoTo NotEnough
  msg$ = Format(downpmt!, "Currency") & " will do fine!"
  MessageBox msg$
  ' Continue processing the application
  ' ...
  ' ...
  Exit Sub

  NotEnough:
  msg$ = "Sorry, " & Format(downpmt!, "Currency") _
      & " is not enough!"
  MessageBox msg$
End Sub

Dim cost As Single
cost!= 235000
ProcessMortgage(cost!)' Call the ProcessMortgage sub.

関連項目