小小小问题！！！！！如何抽题？？？？？(40分)

W

wxmwin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #1

高手们好！
在下又遇到麻烦了！我做的是paradox的数据库，设计一个自动抽题的数据库，我的想法
是用过滤选出符合条件的题目，然后再随机的抽取题目（题目的数目由自己设定），
过滤在下已搞出，现在就是随机抽题还没有头绪。请各位指点一二。多谢了。

 

T

terry_lzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #2

用随机函数function Random [ ( Range: Integer) ];
不过这只是个伪随机函数，如果开始的Range相同，那么返回值会相同，我以前的作法是
取一个系统的信息数字，例如当前的时间转换为数字作为参数，然后以记录数对这个数字
取模，按得到的数字移动指针，指到的记录就是随机的记录了。

 

F

fan_7

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #3

var
aa : array[1..n] of integer; //题目列表
m : integer; //越大越随机
for i := 1 to 10 do
begin
k := random+1;
for j := 1 to n do
begin
//交换aa[j]和aa[k]
end;
end;

 

心

心心

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #4

fan_7是哪写来的？？要么你就不要写var,写了下面就面相联系，，呵老兄写错了吗？？

var
aa : array[1..n] of integer; //题目列表
m : integer; //越大越随机
for i := 1 to 10 do
begin
k := random+1;
for j := 1 to n do
begin
//交换aa[j]和aa[k]
end;
end;
m根本就没用，hehe，更正一下嘛，

 

F

fan_7

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-16

• #5

to 心心:
不好意思，第一个for 循环中 10 应为 m!!

 

Y

ytwin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-20

• #6

多谢大家，小弟现在就回去调试

 

心

心心

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-20

• #7

题外话
to ytwin

这个可以用了在使用中最好再加入判断避免重复效果会更好一些

 

W

wxmwin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-24

• #8

各位高手：
在下有一个不情之请。请写一点详细的源代码给我好吗，在下只是一个新手，
需要大家的关心：）

 

小

小天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-24

• #9

随机给每个题一个编号，再把这个随机编号的大小也作为选题范围条件即可

 

W

wxmwin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-25

• #10

我考虑把bookmark定位到一个随机的题目上，然后再进行操作。但我用gotobookmark却做不出。
请教一下怎么把bookmark定位到一个随机的题目上。多谢！

 

W

wxmwin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-31

• #11

多人接受答案了。