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

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