随机出题系统遇到问题 - 编程论坛

#2

guo52382013-05-20 22:41

补充下，一共五个按钮以及八个label，五个按钮分别是开始考试，退出系统，上一题，下一题，交卷！
label分别是倒计时窗口，题目窗口，以及答案窗口（有的题目有6个选项）

#3

guo52382013-05-20 22:46

希望高手能够提示下，如何随机出题，点击下一题时，题目能够随机变下一题！

#4

guo52382013-05-24 22:10

我想到一个比较笨的方法，希望高人指点，我说下思路，就是在数据库设置几个项目，（自动编号），题目，答案，A,B,C,D,您的答案，是否为已出题

设置一个label为不可见，将label.caption设置为一个随机变量，根据随机变量显示自动编号的题目，回答题目后，将答案记录在数据库字段您的答案中，并将此题设置为已出题目！这样就可以避免重复出题，而且字段中您的答案和答案也可以进行比较！

方法可能比较笨，但是确实是实现了想要的效果，如果谁能有更好，更简便的方法，麻烦告诉一下思路！！

#5

bczgvip2013-05-25 01:40

程序代码：

Option Explicit
Private coll As Collection

Private Sub Form_Load()
    Set coll = New Collection
    Dim i As Long
    For i = 1 To 12
        coll.Add "题目" & i
    Next

Randomize
    Do While coll.Count > 0
        i = 1 + Rnd * (coll.Count - 1)
        'Debug.Print coll(i)
        List1.AddItem coll(i)
        coll.Remove i
    Loop
End Sub

自己调试下就知道思路了。

#6

lowxiong2013-05-25 17:00

如果全部是选择题的话，这套系统还是很好完成的。首先要设计好数据库，我想应该由以下几个表组成
1、考生表：内含字段为（考生id、姓名、身份证号...，还可有其他基本信息，其中考生id唯一，考生信息由主管输入）
2、题库表：内含字段为（题库id、题目、选择A、选择B、选择C、选择D、答案，其中题库id唯一，题库可随时编辑扩充）
3、考试表：内含字段为（考试id、考生id、开考时间、结束时间...，还可有考机号、监考老师等信息，考生通过输入自己的身份证号启动考试并生成试题表内容）
4、试题表：内含字段为（试题id、考试id、题库id、答案、对错，通过考试id可以找到考生信息，通过题库id可以找到对应考题，题库id是通过随机抽出的，比如一次抽20题）