name.c

数值计算方法网络课件系统是浙江大学过程装备与控制工程专业2001级本科生毕业设计成果。本系统采用ASP＋ACCESS架构

怎样一次生成10个不同的随机数
<%
dim n(10)
for i=1 to 10
Randomize
n(i)=Int(50* Rnd+1)
  for q=1 to i
    if n(i)=n(q-1) then
    n(i)=n(q)+1
    end if
  next
response.write n(i)&"<br>"
next
%>

总觉得这种方法很麻烦，但是找不到更好的方法了：(

那么我就利用此法写了一个通用的子函数。 

<%
function showrnd(x,y)
if y<x then
 exit function
end if
redim n(x)
dim i,q
dim isok
for i=1 to 10
Randomize
n(i)=round((y-1)* Rnd)+1
isok=false
do while not isok
  for q=1 to i
    if n(i)=n(q-1) then
     n(i)=Int((y-1)* Rnd)+1
  isok=false
     exit for
 end if
  isok=true
  next
loop
response.write n(i)&"<br>"
next
end function

'产生在1到50内的10个随机数
call showrnd(10,50)
%>