回复 11楼 foxfans
thank you
2022-10-25 20:51
2022-10-25 21:24
2022-10-29 15:42
程序代码:
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
2022-10-29 15:48