安卓按键精灵-随机字母函数

/*-------------随机字母---------------*/
Function 随机字母()
    Dim zm="abcdefghijklmnopqrstuvwxyz"
    Dim sj,D,S
    Randomize
    For 4
        sj = Int(52 * rnd() + 1)
        D = UTF8.Mid(ZM, SJ, 1)
        S = S & D
    Next
    随机字母=S
End Function