function createrandomid(p1,p2,p3)
'p1:numtype1 p2:类型 p3:maxtype1
'/////////////返回试题编号集合
'/////////////eg: p1=numtype1,p2=1
dim i,j,maxtype
i=p1
if i=0 then
createrandomid=""
else
j=0
maxtype=p3
dim tarray(20)
sql="select * from 试题 where 类型="&p2&" and 难度系数 in ("&diffindex&") and 知识点 in ("&kpoint&")"
rs.open sql,conn,1,1
'//////////实现不重复出题的关键代码
while(i>0)
randomize
a=int(maxtype*rnd)
doublequ=0
rs.movefirst
rs.move a
for each qu in tarray
if qu阅读全文>
发表于 @ 2006年06月19日 14:59:00|评论(loading...)|编辑