生成不重复的随机数

<script language=vbscript>
Randomize
dim ti(10)
dim K "作为有无重复的依据。

for i=0 to 9
K=0
sum=Int((0 - 11 + 1) * Rnd + 11)
if i>0 then
for j=0 to i-1
if ti(j)=sum then
document.write("重复")
i=i-1 "将i值减1，这样到下面就会自动增加1，恢复原值
K=9
exit for "跳出循环，重新赋值，再来比较。
end if
next
end if
if K=0 then
ti(i)=sum
end if
next




for i=0 to 9
document.write ti(i)&"<br>"
next
</script>