vb产生随机数经常用
Int(rnd()*99+10)
但是实际用了之后会发现每次执行的时候参数随机数的顺序就一样。这就需要每次执行之前加个Randomize
最终实现的效果
因为这个是产生9位数随机数，为了后期可能会产生其他位数的随机数，重新改造了下
