随机字符
```language
//次函数封装由苏婷脚本学院编写
//随机字符串，长度可选
Function RndZifu(b)
Dim 小写="abcdefghijklmnopqrstuvwxyz"
Dim 大写="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim 数字="1234567890"
Dim s,k
k = 大写 & 小写&数字
For b
s=s&StrGetAt(k,Int(len(k) * Rnd() + 1))
Next
RndZifu=s
End Function
```