主页

如何用VB实现考试系统里的随机抽取考试试题，没有重复

killrockman 2007-12-04 05:24:59

如何用VB实现考试系统里的随机抽取考试试题，没有重复？！

...全文

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

root_mind 2008-01-06

这个跟vb没关系吧
从数据中读题的时候就随机不就可以了？
用sql 就像一楼的

回复赞

cike_1111 2007-12-31

Print List1.ListCount 这句是我用来显示 list项目数的可以删除

// 打乱顺序后按照这个顺序(题号也就是数据库中的编号)逐个读到程序中这样就可以避免重复了!

^_^

回复赞

cike_1111 2007-12-31

每个不同类型的题目应该是不在一个表单中才对

如:
表单1
数据库中:
字段1 字段2 字段3 字段4 字段5 ....
题号题目选择1 选择2 选择3 ....
.....

表单2
字段1 字段2 字段3 字段4 字段5 ....
题号题目选择1 选择2 选择3 ....
......

程序部分:
1个list
思路:
1.选择类型后. if 属于类型1 则:list获取表单1的所有题号到list里>>
if 属于类型2 则:list获取表单1的所有题号到list里>>
2.打乱list内提号的顺序
3.循环list 重0-最后项目把题目读取到程序

下面是一个打乱 list 顺序的小例题提供参考:
材料:
2*list
1*command
步骤:>>>放入2个list 和 1个command 到窗体中
>>> 贴代码看效果



Private Sub Command1_Click()

Randomize

List2.Clear

For i = 0 To List1.ListCount - 1

  b = Int(Rnd * (List1.ListCount))

  List2.AddItem List1.List(b)

  List1.RemoveItem b

  List1.Refresh

Next i

For i = 0 To List2.ListCount - 1

List1.AddItem List2.List(i)

Next i

Print List1.ListCount

End Sub



Private Sub Form_Load()

For i = 0 To 99

List1.AddItem i

Next i

List2.Visible = False

Command1.Caption = "打乱顺序"

End Sub

回复赞

chuting1 2007-12-31

可以放一个标识字段,用于检查是否已被抽取

回复赞

KiteGirl 2007-12-31

我对这个问题专门研究过，请参考我Blog里的“跳蚤算法”。

回复赞

killrockman 2007-12-30

楼上的给的只是简单的 SQL语句查找。。。
我需要的是如何先判断考生的类型，然后再根据考生的类型检索对应的题库，生成临时试卷的过程？！

回复赞

lianzy 2007-12-30



Dim i As Integer '变量

Dim intTmp As Integer '临时变量

Dim subject_id() As Integer '题目编号

Dim subject_name() As Integer '题目标题

Dim intCount As Integer '题目数量

Dim intNum As Integer '要出的题目数量

intNum = 20 '初始化出20道题

Set rs = getRS("select subject_ID,subject_name from subject where 条件")

intCount = rs.recordcount

ReDim subject_id(intCount) As Integer

ReDim subject_name(intCount) As Integer

For i = 0 To intCount - 1

    subject_id(i) = rs("subject_id")

    subject_name(i) = rs("subject_name")

    rs.movenext

Next

rs.Close

If intCount < intNum Then

    MsgBox "题目不够！"

End If

'至此，符合条件的题目已经放到数组中了





'出20道不重复的题

For i = 1 To intNum

    Randomize Timer

    intTmp = Int(Rnd() * intCount)

    Debug.Print (subject_id(intTmp) & ":" & subject_name(intTmp))



    '每出一道题后，把数组题题后一道题换掉已出题目，数组大小减1，再出后面的题才不会重重

    intCount = intCount - 1

    subject_id(intTmp) = subject_id(intCount)

    subject_name(intTmp) = subject_name(intCount)

    ReDim Preserve subject_id(intCount) As Integer

    ReDim Preserve subject_name(intCount) As Integer

Next