这么产生一个4位数字的随机数（作为密码），但用户说重复率很高，请帮看下

这样产生一个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

------解决方案--------------------
不觉得，修改后重复率才高呢。