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

関連項目