說明
Sub Main() Dim Result As Short Result = SGN(-0.1) Debug "SGN(-0.1) = ", Result, CR Result = SGN(0) Debug "SGN(0) = ", Result, CR Result = SGN(0.1) Debug "SGN(0.1) = ", Result, CREnd Sub