2011-08-13 VBScript の関数、Sgn everyday VBScript MsgBox Sgn(10) ' 1 MsgBox Sgn(0) ' 0 MsgBox Sgn(-10) ' -1