前兩天看到有人要編個考試系統，當時只是簡單回了下用隨機函數RND
實際一般需要從資料庫中隨機擷取N題目。
以下程式碼都基於VBS;
通常的編寫類似這樣的
'產生不重複隨機數 function rndarray(istart,iend,sum) dim arrayid(),i,j,blnre,temp,iloop,eloop redim arrayid(sum-1) i=0 iloop=0 eloop=0 blnre=false randomize do while i<sum temp=int(rnd*(iend-istart+1)+istart) if i=0 then arrayid(0)=temp i=i+1 iloop=iloop+1 else for j=0 至 i-1 if arrayid(j)=temp then blnre=true iloop=iloop+1 exit for'這句話很重要，防止多餘的循環 else iloop=iloop+1 end if next if blnre=false then arrayid(i)=temp i=i+1 else blnre=false end if end if eloop=eloop+iloop iloop=0 loop rndarray=join(arrayid)&循環次數:&eloop end function response.write rndarray(1,10,5)&<br>'呼叫過程 |
PS。其中的iloop、eloop是為了計算循環次數而已。
以上，大多數人的都是用這種方法寫的，產生一個隨機數，然後再和以前產生的做比較，判斷是否可用；
但這不是一種AI的，或者說有效率的方法，為什麼不用兩個陣列呢？
陣列1，存放需要的字串，或數字等，陣列2存放產生的隨機數；當每次隨機產生中間變數temp的一個下標x，賦給陣列2，然後從陣列1中，去掉下標為x的數字，賦給中間變數temp；這樣每產生一個隨機數，就從陣列1中拿掉這個數，下次再產生一個數就不會重複了，這種產生隨機數的方法原理實際上是從數組1中提取。
方法二
function rndstr(istart,iend,isum) dim i,j,vntarray() redim vntarray(iend-istart) j=istart for i=0 to iend-istart vntarray(i)=j j=j+1 next dim vntarray2(),temp,x,y redim vntarray2(isum-1) y=iend-istart+1 x=0 temp=vntarray do while x<isum dim a randomize vntarray2(x)=temp(int(rnd*y)) a= &vntarray2(x)& temp=split(trim(replace(chr(32)&join(temp)&chr(32),a, ))) x=x+1 y=y-1 loop rndstr=join(vntarray2) end function response.write rndstr(1,5,2) |
這樣，是不是比較簡單呢
展開一下，假如要產生隨機字串，包含字母數字時，只需為陣列1賦值時，用函數chr(num);
假設，需要做一個手機中獎的頁面程式。
首先把值賦給數組1，可以130....～139....循環賦值，當然實際使用時從資料庫中把已有的賦值，然後再隨機提取賦給數組2；
最後，再修飾一下
| temp＝replace(join(array2),chr(32),) |
phone＝left(temp,6)&***&right(temp,2)
得到類似137648***58的結果,呵呵
寫那麼多，累死了~~