可以先让第一个数随机产生，然后判断后面随机产生的数与前一个不同，如果不同就输出...
你可以使用随机数函数，
循环使用“print Int(Rnd*10)+1"语句，就可以产生若干个1-10之间的随机数
就是你说的啊..
dim a(10),x,y
randomize
x=0
while x<10
a(x)=rnd*9+1
for y=0 to x
if a(y)=a(x) then
a(x)=0
exit for
end if
next
if a(x)<>0 then x=x+1
wend
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024