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

VB.NET code

    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
[解决办法]
不觉得，修改后重复率才高呢。