使用按键精灵生成随机大小写字母的源码，同理可生成数字。

TracePrint 随机字符串(3)
Randomize //初始化随机数生成器
Function 随机字符串(位数)
Dim i,位置,字符串,字母
字母="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
字符串=""
For i=0 To 位数 - 1
位置 = Int((Len(字母) * Rnd()) + 1)
字符串 = 字符串 & Mid(字母,位置,1)
Next
随机字符串 = 字符串
End Function