前两天看到有人要编个考试系统,当时只是简单回了下用随机函数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 isum temp=int(rnd*(iend-istart+1)+istart) if i=0 then a...
[ 查看全文 ]