Vb6如何制作0-9的随机字符串和x字符的a-z

尝试创建一个随机字符串，使用0-9和a-z/A-Z长度为x个字符，似乎找不到很好的例子，有什么主意吗？

最佳答案

Function RandomString(cb As Integer) As String

    Randomize
    Dim rgch As String
    rgch = "abcdefghijklmnopqrstuvwxyz"
    rgch = rgch & UCase(rgch) & "0123456789"

    Dim i As Long
    For i = 1 To cb
        RandomString = RandomString & Mid$(rgch, Int(Rnd() * Len(rgch) + 1), 1)
    Next

End Function

请注意，内置随机数生成器在密码学上并不安全，因此不应使用此类函数来生成密码。