LOTUSSCRIPT 言語

例:Sgn 関数
Dim x As Integer, y As Integer
x% = Sgn(-45)
Print x%                       ' Prints -1
y% = Sgn(12)
Print y%                       ' Prints 1
Print Sgn(x% + y%)             ' Prints 0

関連項目