vb rnd()函数括号里写1有什么作用吗