求代码：将一个任意整数拆成随机的三个数
例如n=7时，能拆成1,4,2或0,0,7或2,4,1等
关键要有随机性
------解决方案--------------------------------------------------------
- VB code
FUNCTION Rand3PARAMETERS NumIF EMPTY(m.Num) m.Num=0ENDIF LOCAL Num0,Num1,Num2,Num3*产生第一个数m.Num1=INT((m.Num + 1) * RAND(-1))m.Num0=m.Num - m.Num1*产生第二个数m.Num2=INT((m.Num0 + 1) * RAND(-1))*得到第二个数m.Num3=m.Num0 - m.Num2?m.Num,m.Num1,m.Num2,m.Num3,ENDFUNC