例: Sgn function

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