使用按鍵精靈生成隨機大小寫字母的源碼,同理可生成數字。

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