vb产生随机数的函数