VB6.0ä¸Sgn(n)æ¯æåº nåéç
æ£è´å·ã
Sgn å½æ°ï¼è¿åä¸ä¸ª Variant (Integer)ï¼æåºåæ°çæ£è´å·ã
è¯æ³ï¼Sgn(number)
number>0ï¼Sgnè¿å1ï¼
number=0ï¼Sgnè¿å0ï¼
number<0ï¼Sgnè¿å-1ï¼
示ä¾ï¼ä½¿ç¨ Sgn å½æ°æ¥å¤æææ°çæ£è´å·ã
Dim MyVar1, MyVar2, MyVar3, MySign
MyVar1 = 12: MyVar2 = -2.4: MyVar3 = 0
MySign = Sgn(MyVar1) ' è¿å 1ã
MySign = Sgn(MyVar2) ' è¿å -1ã
MySign = Sgn(MyVar3) ' è¿å 0ã