主题：高效随机抽取少量和大量记录的方法

专门测试了一下，不存在这个问题：

Dim cnt(9) As Integer
For i As Integer = 1 To 100000
    Dim n As Integer = rand.Next(0,100000) \ 10000
    cnt(n) = cnt(n) + 1
Next
For i As Integer = 0 To 9
    output.show(i & ":" & cnt(i))
Next

你这样巨量下，测试当然会趋于平稳，但是几百几千的随机，很容易发现问题。