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

Question

尝试使用0-9和az/AZ创建一个随机字符串,长度为x的字符,似乎无法找到一个好例子,任何想法？

Answer 1

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

请注意,内置随机数生成器不具有cryprograph安全性,因此不应使用此类函数生成密码.

Answer 2

我忘记了所有的 VB6（感谢上帝），但在伪代码中它非常简单：

    all_chars = 所有有效字符的数组
    种子随机数生成器
    对于 i = 1 到 x 做
        random_index = 获取 1 和 all_chars 长度之间的随机数
        '我记得如何在 VB6 中连接和注释:-)
        字符串 = 字符串 & all_chars[随机索引]
    结束于

    完毕！

因此，只需了解如何创建数组并用字符填充它、如何获取数组的长度以及如何获取所述数组的第一个索引和最后一个索引之间的随机数即可。

好吧，当然还有循环。