展开 vb随机生成1到100不重复随机数