产生随机数字

by admin on 2020年2月2日

***
***产生随机数字 (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

***
***随机生成字母数字组合 (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()
  DO CASE
  CASE nRand<=10/62
    cText1=CHR(48+nRand*62)
  CASE nRand<=36/62
    cText1=CHR(65+nRand*62-10)
  OTHERWISE
    cText1=CHR(97+nRand*62-36)
  ENDCASE
  cText=cText+cText1
ENDFOR
RETURN cText

发表评论

电子邮件地址不会被公开。 必填项已用*标注

网站地图xml地图