[原]根据概虑随机显示数字

dim apos()dim jxcs:jxcs=0for i=1 to 20 document.write getdata(6,"3/5")next function getdata(num,gl)dim cs,cs2,tempglexecute "tempgl="&glif tempgl=0 then getdata=random(num) exit functionend ifif instr(gl,".") then gl=xs2fs(cdbl(gl))cs=cint(split(gl,"/")(1))cs2=cint(split(gl,"/")(0))-1jxcs=jxcs+1if jxcs>cs then jxcs=1if jxcs=1 then scArray cs2,csend ifif inArray(apos,jxcs) then getdata=numelse getdata=random(num)end ifend functionfunction scArray(num1,num2)dim ii,jj,n1Redim apos(num1)for ii=0 to num1 apos(ii)=-1nextfor ii=0 to num1 do while true randomize n1=int(rnd*num2)+1 for jj=0 to num1 if apos(jj)=n1 then exit for next if jj=num1+1 then apos(found_1(apos))=n1 exit do end if loopnextend functionfunction found_1(arr)found_1=-1dim iiifor iii=0 to ubound(arr) if arr(iii)=-1 then found_1=iii exit function end ifnextend functionfunction inArray(arr,num1)dim iiinArray=falsefor ii=0 to ubound(arr) if arr(ii)=num1 then inArray=true exit function end ifnextend functionfunction Random(inum) dim n do while true randomize n=int(rnd()*10) if n<>inum then Random=n exit do end if loop end functionfunction xs2fs(num1)dim len1,gys,snumsnum=split(cstr(num1),".")(1)len1=10^len(snum)fm=len1fz=num1*len1gys=getGYS(fm,fz)fm=fm/gysfz=fz/gysxs2fs=fz&"/"&fmend functionfunction getGYS(num1,num2)dim temp,iigetGYS=1if num2>num1 then temp=num2 num2=num1 num1=tempend iffor ii=num2 to 2 step -1 if num1 mod ii=0 and num2 mod ii=0 then getGYS=ii exit function end ifnextend function