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