回复 11楼 foxfans
thank you
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