这样产生一个4位数字的随机数（作为密码），但用户说重复率很高，请帮看下
Randomize()
For I = 0 To 3
Str = Str & CStr(Int(Rnd() * 10))
Next

我这样产生一个4位数字的随机数（作为密码），但是用户说重复率很高
有没有必要改成这样：
For I = 0 To 3
Randomize()
Str = Str & CStr(Int(Rnd() * 10))
Next


[解决办法]
重复率很高是指什么？
尽量避免第二次运行 Randomize()
尤其是这种循环里运行 Randomize() 容易导致得出的数字都是一样的结果。
[解决办法]
想偷懒的话，直接利用guid：

    Private Function GeneratePasswd() As String
        Dim guidHashCode As String = Math.Abs(Guid.NewGuid().GetHashCode())
        Dim passwd = guidHashCode.Substring(0, 4)
        If passwd < 3 Then
            passwd = guidHashCode.PadLeft(4, "0"c)
        End If
        Return passwd
    End Function