为什么加了Rndmize()函数，产生的随机数还是不变化？
还是加的方法不对？
 Dim d As Integer, i As Short
        For i = 1 To 50
            Randomize()
            d = Int(Rnd() * 100)
            b_write.Write(d)
        Next

把Randomize()移到循环体外面