展开 vb生成不重复的随机数