本人已经上班，单位总组织考试，本人想编写一套模拟考试系统，用户注册，倒计时等其他模块基本完成，就是到数据库随机选题这里弄不懂了，是否用rnd函数还是需要其他，请高人指点！！！！

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

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

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

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

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

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

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

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