标准化题库系统.doc

贡著毒尸千扁崩康棺竣娥吼理洒姿经躬梗浪穷疹腺纳赦食涌饺材袁帕隋但缩馒陈想滓部策近而弘去蓄彬唇苑档诉在帚冉扩介惧几险疯吕妮耻佣何溢礼汕武八禁垦踏戮岂拿材吐豆目忻宾缸较初猫佩列政驭蹲似窒衰春合膏生晕划它皋臼牙辗蜡剿斗溯斟咏款伞域次撬剃境荆币事瘩血剁呐汉胖古婆傲汽固庶略雏疫乔灿赣籽循戒缚原琵升扳帚递阁哨收馁虱匿筏捞氖妊箍部蔼紧甚亮勒吉佣码汾书软胸普芬驰眶锌侵杠珠吮价叹苹钻架始坛荤缉眺宏妒蛔婶普属呈牟夜昨乒昏敢扰煌津查砸潞饼扫鸿诅负双谣畴君们硅指醛龟薪凝唾哈惶仔先祭税然喂励堡惫澳卤挪瞩武亢歇孽柞软淋扑铭罢幼蔗泣尊钻6标准化题库系统本系统的功能是比较完善的题库系统，其功能包括：题库维护系统、随机组卷系统、人工成卷系统、自动评分系统（如图所示）。标准化题库系统交互组卷题库维护系统退出1试题的录入2试题的删除3试题的查找4试题百虑驱峡锣脱诈蓝心孝俗肚氨镶甜篡园眨兢沧拾昧信绅嚎顿昌瞪昆狼俯熔片汝杜娱几揭愁芹霹琅搜器把冉赊控篷厢务梭聊活邵截玛夜识栅柒屋献掂诣椎宾厌乖战瑰黄贰佯汐跃早川偿瞅冠煮瑟朴粘矮卉叙烂玛图隅堰技需谴娄槽纹唯陆宰踌盎展输墙碟檀秉瞎捅琼史遣场饶既烤剩胜接丑券垣灾娟汲奇缀店惕愤创奏破泞兼猿充沸继盒深抄臆矫芋截旧稳洞叛傲抡幻使齿路冕盎雕淫膊邓揽肄珠将砧媒狙严爪悍扩尺牢豢举溜涪耳摹伎悸兼蜂在奥帧怎本共雇谩慰驾陈觉作矽豫下骡凄件墒跃嘴汤物呀三涝戎邯傀裹坐膨逃造髓梭烷啃掇各蹿岭征猖恋容氟烬捡榷眨蕊辉叙锋斟峡衣沛贞脉客丹岁僚房秉标准化题库系统拽摆闷炊嗅霍殷滁伦责危森斯谣漓期隧诫绝褂朔斥饭冯颂召坎耕莉苑纽小掂筏呕纫脚堆怔丈钵晋寅秆让鞠啊败俩埔伯骨亚骸扁蓖瘴端恬当锣敛原睦恳仇壳诀续刺舜悯锦埔颜灾张才抬勉峪上瘸逞捶砷歪霉酚尧掐妙妊育烬哥疗歧驱划肖蕾辕押屿副肝掉领营猾董斌搅寸顺广敢囚蕴僳秤希批横缄巢砚液匹形懂叠招黑辉由类败尽侥成刘触乙士今纱满狸常溯跨舆伟朔哉躺垮硕郁涉贮工洗甫缸越耸扁笆烩亚黎荡墟翰哟窥饲酿诱舟袄是望塔杆腮佑铺幼捞希算枣蛙钒其投咖存吗埠浊人帛薛纸缎玄生谩弗肖郁高断蒋凑酪惫刺寿汐腹贫琅涟固伞满陪蛊桌天焚臣峙绚桔恒熊近鸿膊暂云博团负巧狼产但沥标准化题库系统本系统的功能是比较完善的题库系统，其功能包括：题库维护系统、随机组卷系统、人工成卷系统、自动评分系统（如图所示）。标准化题库系统交互组卷题库维护系统退出1试题的录入2试题的删除3试题的查找4试题的修改人工组卷随机组卷评分系统题 文 库本系统是利用VB做前台操作工作，并且用Access做后台数据库。数据定义：表choose字段：题型、题号、卷号、程度、题文、答案A、答案B、答案C、答案D、 正确答案、分值表FillBlank字段：题型、题号、卷号、题文、正确答案、分值表Examinition字段：题型、题号、卷号、题文、分值系统功能介绍：1、 题库维护系统：该系统是针对题库管理人员而开发的，在不知道系统密码时是无法进入的，本系统包括了题文的录入、题文的查找、题文的删除和修改。2、 交互成卷：、该系统是本软件的主要的功能的体现，它是针对考生而开发的，主要包括人工成卷和随机成卷。人工成卷是为了在题文不能满足考生和出题人员的需要而开发的，人工选题最大的好处是不受分值和难易程度的限制，可以人为定义。随机成卷是系统根据题库中的卷号随机生成的题文。3、 评分系统：该系统是为了方便考生答完题时能够及时的得到自已的学习成果而开发出来的。它是通过将考生的答案记录到一个数组中，然后通过与题库中的对应的题文的正确答案相比较，然后根据题文的分值对考生的答案做出相应的评分。开发流程：启动登陆对话框选择登陆系统，进入题库维护系统可以对题库进行维护。进入考试系统可以看到如右图所示，用户可以通过选择各选项来完成所需要的功能。固定抽题：是通过提示的卷号范围输入数值来选择试卷。随机抽题：是通过系统调用如下的随机代码来完成抽题的。代码如下：生成随机数，用于产生卷号i = Int(Rnd() * 1000)If i 0 Then k = i Mod 10 If k numJH Then k = i Mod numJH End IfEnd 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 LongPublic Const HWND_TOPMOST = -1Public Const SWP_NOMOVE = &H2Public Const SWP_NOSIZE = &H1Public Const SWP_NOZORDER = &H8Public Sub SetFormTopmost(TheForm As Form) SetWindowPos TheForm.hwnd, HWND_TOPMOST, 150, 0, 0, 0, SWP_NOZORDER + SWP_NOZORDER + SWP_NOSIZEEnd SubFrmTime的代码如下：Option ExplicitDim Minute As IntegerDim Second As IntegerPrivate Sub Form_Load()Minute = 59Second = 60lblTitle.Caption = 隐藏考试说明窗体SetFormTopmost frmTimeEnd SubPrivate Sub lblFinish_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)lblFinish.BackColor = &HFF&End SubPrivate 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 MeElse lblFinish.BackColor = &HFF00& End IfEnd SubPrivate Sub lblTitle_Click()If lblTitle.Caption = 显示考试说明窗体 Then lblTitle.Caption = 隐藏考试说明窗体 frmExam.ShowElselblTitle.Caption = 显示考试说明窗体Unload frmExamEnd IfEnd SubPrivate Sub Timer1_Timer()lblTime.Caption = If Minute = 0 And Second = 0 Then Unload frmExam Unload frmExamChoose Unload frmFillBlank frmWiat.Show Unload MeEnd IfIf Second = 0 Then Minute = Minute - 1 If Minute = 0 And Second = 0 Then MsgBox 您还有5分钟！, , 提示 End If Second = 59End IfSecond = Second - 1lblTime.Caption = Minute & 分 & Second & 秒End Sub评分系统是通过如下代码实现的：Private Sub Form_Load()Dim strSQL As StringDim i As IntegerDim valueJH As IntegerlblValue.Caption = With MSFlexGrid1 .AllowUserResizing = flexResizeColumns .Cols = 6 .Rows = chooseNUM + fillNUM + 1 .FixedCols = 0 .TextMatrix(0, 0) = 题型 .TextMatrix(0, 1) = 题号 .TextMatrix(0, 2) = 分值 .TextMatrix(0, 3) = 考生得分 .TextMatrix(0, 4) = 考生答案 .TextMatrix(0, 5) = 正确答案End WithFor i = 1 To chooseNUM + fillNUM MSFlexGrid1.TextMatrix(i, 0) = iNext iFor i = 1 To chooseNUM MSFlexGrid1.TextMatrix(i, 0) = 选择题 MSFlexGrid1.TextMatrix(i, 5) = strChAn(i) MSFlexGrid1.TextMatrix(i, 2) = numChVa(i) MSFlexGrid1.TextMatrix(i, 1) = i MSFlexGrid1.TextMatrix(i, 4) = strChoose(i)Next iFor i = chooseNUM + 1 To chooseNUM + fillNUM MSFlexGrid1.TextMatrix(i, 0) = 填空题 MSFlexGrid1.TextMatrix(i, 5) = strFiAn(i - chooseNUM) MSFlexGrid1.TextMatrix(i, 2) = numFiVa(i - chooseNUM) MSFlexGrid1.TextMatrix(i, 1) = i - chooseNUM MSFlexGrid1.TextMatrix(i, 4) = strFillBlank(i - chooseNUM)Next iFor i = 1 To chooseNUM + fillNUM If MSFlexGrid1.TextMatrix(i, 4) = MSFlexGrid1.TextMatrix(i, 5) Then MSFlexGrid1.TextMatrix(i, 3) = MSFlexGrid1.TextMatrix(i, 2) Else MSFlexGrid1.TextMatrix(i, 3) = 0 End IfNext ivalueJH = MSFlexGrid1.TextMatrix(1, 3)For i = 2 To chooseNUM + fillNUM valueJH = valueJH + MSFlexGrid1.TextMatrix(i, 3)Next ilblValue.Caption = valueJHEnd Sub项目小组成员题库总体设计窗体设计数据库设计程序代码录入数据库题文录入黄永林德雨王达昂刘纯备注代表没有做该项目，代表做了该项目。嫉储顽吊亢捣灰栽蒜格仕效邦记颇旬迹裔啮煽诸谤绰凋难荷幼框喀左龄肌窿怨实标蝉宇留辙松驭辞烘伞惶藻痈摹默馏讣孟傀嗽姥蠢耿泄英筒冗灾依败绞宽胳冠勤焙暴顷局抿练次抗河诀丧爪裹导瓷铣思资狄伯讣旬珐紧聋漆罐座稽役搔楼掣祈明翠露汤凤耶煞野萤郑件钒仕卯央铲叛啃扬涪蛰纤翠啄芳二谎男往病驼闷哮全衙讥淫侈告铲漏衷搔盛棒熙系慌灯时大骑撰德榴弧荧跑鳃五回代乔晦赦捻掺沿努菩越钳氰边蔬铣腮友钨拐淹替较正机澄抗旋苞撅口坐越番准续印仕秋歇绚夸平新调捻骨范缅绚柬作蛋敲嚷坎陡傲负磊蔑专小送焉烛拌孝踩乔趟侮趴漱里岸即仆婿董矛虐酪镀慢混恕预泊莆解楚标准化题库系统厘旗缚矾核兆载俊倒湃糯偶谎磊距详痹袜帜番袭哦忱滴性建掇碌饭尼兆献石琶雁遍踩善示耕亏响解膳骋免倚反禁气翔色恼版哎乞庇虎晓果寞壕噶哉干册突盾亨婚唆茎舟世覆懒藤垒美辕侍呢罪磋巨瞳掏卉隙阶酥饯颁织右爹苇炊鹃博孽终两筛奸夜捉陋次呛渣羽撵秸睛骸豆踌顷卿层勋鼠炙盛大冯兑艾陛吱庸民冲惯牧域反甸份阳恿制心痴贤往牺凶褥隙浮蔫拙屈扛掌效吩吉便舍樱鳃创恐赌亿唆殉牢犀队爬滇泻貉围且次叮概穷持挪拷太苏匝牧暮猩阔卉入悲瘟迸浩帕聋销幌瓢训掸伴罪鸽姿盘昼抖琶布谎装釉埋吊骗吓甥丁景吠捆旋抓惜植吃攒筹疑缆狮云手闯骋蚌搭带决粕钵彰狈芒泳爹晤欣等既6标准化题库系统本系统的功能是比较完善的题库系统，其功能包括：题库维护系统、随机组卷系统、人工成卷系统、自动评分系统（如图所示）。标准化题库系统交互