用vb怎样生成10个不重复的(1到10)随机数

如题所述

dim a(1 to 10)
for i=1 to 10
a(i)=rnd*10+1
next i
温馨提示:答案为网友推荐,仅供参考