产生随机字母

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+IIF(nRand<=0.5,CHR(65+nRand*52),CHR(97+(nRand-0.5)*52))
ENDFOR
RETURN cText

发表评论

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

网站地图xml地图