Function 多位随机数(位数) Dim 字符串="" For 位数 字符串 = 字符串 & UTF8.StrGetAt(全字符, shanhai.RndEx(1,10)) Next 多位随机数 = 字符串 End Function
