计算机随机抽题算法

‘用

session

来 记录标准答案

‘输出试题及答案

%>

width=

、

<%=rs(

题目内 容

对

错

<%

next

%>

这种算法应该是真正意义上的 随机抽取试题，

但是遗憾的是如果在题库中题量不多的情况下，

很容易会

在数据库中读取重复的试题，

如果再使用一个变量来储 存已经读取过的试题

id

来解决试题重复的问题，

算法就过于繁琐，是很不可取的。

算法二补充：

第二种算法的思路很简单，就是不断生成

1

～题库中的试题 总数之间的随机数，然后到数据库中读取这

条记录，

直到满足考 试的试题量为止。

当时我认为这种算法应该是真正意义上的随机抽取试题，

但是遗

憾的是如果在题库中题量不多的情况下，

很容 易会在数据库中读取重复的试题，

虽然也可以再使用一个

变量或 数组来储存已经读取过的试题

id

来解决试题重复的问题，算法 就过于繁琐。为此，我片面地认

为不可取的。其实用一个变量或数组来储存已经读取过的 试题

id

，在算法上并不繁琐。

<%

写一个生成随机记录的函数

Function rndtest(m_count,r_count)

’

’参 数

m_count

为试题总数，

r_c ount

为要读出的试题数

dim x,st,i

i=0

do while i>=r_count

randomize

x=fix(rnd*m_count)+1

’

’产生

1~m_count

的随机数

if not instr(st,x)>0 then

st=st&x&

’

’用

,

分割

i=i+1

end if

if i>=m_count then exit do

’

’如果

m_count

小于

r_count< /p>

将出现死循环，于是判断并跳出循环

loop

rndtest=st

end function

set rs=Object(

sql=

判断题

order by id asc

sql,conn,1,1

mycound =rndtest(count, pd)

’取得题库中的试题总数

testcound=split(mycound,

’

for i=0 to UBound(testcound)

teposition=matrix(i)

‘把记录指针移指向第

testcound (i)

条记录

session(

正确答案

‘用< /p>

session

来记录标准答案

‘输出试题及答案

%>

、

<% =rs(

题目内容

对

错

<%

next

%>

算法三

由 于第二种算法容易造成试题重复，

为了避免系统产生重复的随机数，

我试着将题库中试题总数均分为

kp

个范围，让每个范围个 产生一个随机数，这样就有效地避免了随机数重复。

<% set rs=Object(

sql=

判断题

order by id asc

sql,conn,1,1

mycound=count

’取得试题总数

for i=1 to pd

randomize

temp=fix((fix(count/pd)+1)*rnd+1)