作者在 2006-09-25 06:06:00 发布以下内容
***
***产生随机数字 (C)Copyright 2006-2006 Tiger5392
***
PARAMETERS nNum
PRIVATE nNum,cText,nCnt,nRand
nNum=IIF(TYPE("nNum")=CHR(78) AND INT(nNum)=nNum AND nNum>0,nNum,6)
cText=[]
FOR nCnt=1 TO nNum
nRand=RAND()
cText=cText+CHR(48+nRand*10)
ENDFOR
RETURN cText