自动选号程序怎么做（vb--flash）

asp生成十个不重复的并从小到大排序

对你的补充对程序做了修改

<%
Function RndNumber(MaxNum,MinNum)
Randomize
RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum)
RndNumber=RndNumber
End Function

Function RndN(N,a,b)'生产一个长度为N的不重复的随机数组，a为最小值，b为最大值
execute("dim shu("&N&")")
flag=false
i=1
while(i<=N)
x=RndNumber(b,a)
j=1
while(j<i)
if shu(j)=x then flag=true
j=j+1
wend
if not flag then
shu(i)=x
i=i+1
else
flag=false
end if
wend
RndN=shu
end function

Function sort(x)'冒泡排序函数
sort=x
if not isarray(x) then exit function
dim i,j,t
for i=Lbound(x) to Ubound(x)
for j=i+1 to Ubound(x)
if x(i)>x(j) then t=x(j):x(j)=x(i):x(i)=t
next
next
sort=x
end Function

Result=sort(RndN(10,1,99))
for i=1 to 10
response.write Result(i)&","