Unum=Request("Unum")
Lnum=Request("Lnum")
If Isnumeric(Unum) and Isnumeric(Lnum) Then
Upperbound=Unum
Lowerbound=Lnum
Else
Upperbound=100'设定初始值上界
Lowerbound=1'设定初始值下界
End If
Dim MyArray()'设定动态数组,如果事先知道数组大小可直接设定大小值
ReDim Myarray(Upperbound)'定义动态数组的大小
For i=Lowerbound To Upperbound'将Lowerbound与Upperbound之间的数顺序写入数组中
Myarray(i)=i
Next
For i=Upperbound To Lowerbound step -1'随机取数
Randomize'初始化
Tmp=Int((i - Lowerbound + 1) * Rnd + Lowerbound)'动态地改变随机数的大小
Nnum=Myarray(Tmp)'取得当前已经获取的值
Myarray(Tmp)=Myarray(i)'将数组的最后一个值填入已取的位置,使前i个值永不重复
Response.Write(Nnum&"<br>")'输出结果
Next
以上算法的时间得杂度及空间得杂度是多少?
[返回] 中文XML论坛 - 专业的XML技术讨论区 →
计算机理论与工程 → 『 算法理论与分析 』 → 产生随机不重复数的算法复杂度
(订阅本版)
2007/2/13 10:29:00
新浪微博
产生随机不重复数的算法复杂度
