LOTUSSCRIPT 言語

例:If...Then...ElseIf ステートメント
Dim quantity As Integer, pctDiscount As Single
Dim unitPrice As Currency, total As Currency
unitPrice@ = 3.69
quantity% = 50

' Define discount based on quantity purchased.
If quantity% > 99 Then
  pctDiscount!= .20
ElseIf quantity% > 49 Then
  pctDiscount!= .10
Else
  pctDiscount!= 0
End If
total = (quantity% * unitPrice@) * (1 - pctDiscount!)
Print   "Unit price:$"; unitPrice@, _
 "Quantity:"; quantity%, _
 "Discount%:"; pctDiscount!, _
 "Total:$"; total@

関連項目