DOC《标准化题库系统》

标准化题库系统 本系统的功能是比较完善的题库系统,其功能包括:题库维护系统、随机组卷系统、人工成卷系统、自动评分系统(如图所示).

本系统是利用VB做前台操作工作,并且用Access做后台数据库. 数据定义: 表choose 字段: 题型、题号、卷号、程度、题文、答案A、答案B、答案C、答案D、 正确答案、分值 表FillBlank 字段: 题型、题号、卷号、题文、正确答案、分值 表Examinition 字段: 题型、题号、卷号、题文、分值 系统功能介绍: 题库维护系统: 该系统是针对题库管理人员而开发的,在不知道系统密码时是无法进入的,本系统包括了题文的录入、题文的查找、题文的删除和修改. 交互成卷:、 该系统是本软件的主要的功能的体现,它是针对考生而开发的,主要包括人工成卷和随机成卷. 人工成卷是为了在题文不能满足考生和出题人员的需要而开发的,人工选题最大的好处是不受分值和难易程度的限制,可以人为定义. 随机成卷是系统根据题库中的卷号随机生成的题文. 评分系统: 该系统是为了方便考生答完题时能够及时的得到自已的学习成果而开发出来的.它是通过将考生的答案记录到一个数组中,然后通过与题库中的对应的题文的正确答案相比较,然后根据题文的分值对考生的答案做出相应的评分. 开发流程: 启动登陆对话框选择登陆系统, 进入题库维护系统可以对题库进行维护. 进入考试系统可以看到如右图所示, 用户可以通过选择各选项来完成所 需要的功能. 固定抽题:是通过提示的卷号范围输入 数值来选择试卷. 随机抽题:是通过系统调用如下的随机 代码来完成抽题的.代码如下: '生成随机数,用于产生卷号 i = Int(Rnd() * 1000) If i

0 Then k = i Mod

10 If k > numJH Then k = i Mod numJH End If End If 重复抽题和恢复现场在未做题(第一次做题时)是不可用的,当抽完题后在评完分后如果想对试题再次的进行了解,可以选重复抽题.如果对评分结果有怀疑时,可以选恢复现场来查看成绩. 程度设置:是对生成的试卷的设置.(如上图) 使用人工试卷:是当所有试卷都无法满足用户有要求时就可以使用了(即自定义试卷). 在本系统中有一个在考生做题直到交卷的过程中一直可见的时间控件(如下图). 该窗体主要是用了一个WindowsAPI函数SetFormTopmost 具体如下(模块级): Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Public Const HWND_TOPMOST = -1 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOSIZE = &H1 Public Const SWP_NOZORDER = &H8 Public Sub SetFormTopmost(TheForm As Form) SetWindowPos TheForm.hwnd, HWND_TOPMOST, 150, 0, 0, 0, SWP_NOZORDER + SWP_NOZORDER + SWP_NOSIZE End Sub FrmTime的代码如下: Option Explicit Dim Minute As Integer Dim Second As Integer Private Sub Form_Load() Minute =

59 Second =

60 lblTitle.Caption = "隐藏考试说明窗体" SetFormTopmost frmTime End Sub Private Sub lblFinish_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) lblFinish.BackColor = &HFF& End Sub Private Sub lblFinish_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If MsgBox("时间还没到,真的要交卷吗?", vbYesNo + vbInformation, "提示") = vbYes Then Unload frmExamChoose Unload frmFillBlank Unload frmExam frmWiat.Show Unload Me Else lblFinish.BackColor = &HFF00& End If End Sub Private Sub lblTitle_Click() If lblTitle.Caption = "显示考试说明窗体" Then lblTitle.Caption = "隐藏考试说明窗体" frmExam.Show Else lblTitle.Caption = "显示考试说明窗体" Unload frmExam End If End Sub Private Sub Timer1_Timer() lblTime.Caption = "" If Minute =