回复 6楼 easyppt
之前的代码只是大写字母和数字,现在上传有小写字母的。。。
程序代码:
PARAMETERS tnlength
Rand(-1)
lctext = ''
i = 0
Do While i < tnlength
kb = 48 + Rand() * 80
If kb <= 57 And kb >= 48 Or kb <= 122 And kb >= 97 Or kb <= 90 And kb >= 65
i = i + 1
lctext = lctext + Chr(kb)
Endif
Enddo
RETURN lctext