vb随机数的代码编写