1、DIY 题库管理系统电脑编程技巧与维护 2012 年 6 月 马浩洲摘要：为了改善课程的考试内容和考核方式，基于课程和 VB 编程语言的特点，构建了试题库管理系统，该系统具有较好的实用性和发展性。关键词：DIY ；VB；试题库；教考分离1 引言提高教学水平和教学质量的一个可行的重要手段就是教考分离。部分乡村学校的规模并不大，学生数量少，经费紧张，还在使用文本试题库。文本试题库具有考核内容受限、试卷数量受限、难于管理和修改等不足，因此很难做到真正的教考分离。针对上述问题，在已有文本题库的基础上，低成本的DIY（Do It Yourself）开发题库管理系统，进行试题的管理、组卷和维护很有必要。而
2、 VB 编程语言在各学校已经普及使用，因此选择 VB 和 ACCESS 开发本校试题管理系统是可行的，同时可以减少购买试题库软件的开支。2 实现根据学校考试现状，本系统实现的功能主要有：试题的添加、修改和删除，试卷的自动与手工生成和试卷的打印、上机测试等功能。系统采用 Access2003 作为数据库管理系统（DBMS） ，为了管理上的方便，本系统只建立 1 个数据库，命名为 TEST.mdb。2.1 试题维护子模块该模块主要实现的功能是试题的添加、修改与删除。为了方便使用，将试题的添加、修改和删除集中于一个窗体内。管理员根据需要，只要选择题型后，就可以实现相关试题的添加、修改和删除。选择题库
3、编辑界面如图 1，主要代码如下：图 1 图 2Private Const zhj = “Select 试题一.* From 试题一 Where (试题一.章节 = “Private Sub cmdAdd_Click()Data1.Recordset.AddNewtxtFields(0).SetFocusEnd SubPrivate Sub cmdDelete_Click() 添加按钮代码If Data1.Recordset.RecordCount 0 Then Data1.Recordset.DeleteIf Data1.Recordset.AbsolutePosition “所有章节“ Th
4、enData1.RecordSource = zhj & Combo1.Text & “ )“ElseData1.RecordSource = “试题一“End IfData1.RefreshData1.Recordset.MoveLastData1.Recordset.MoveFirstExit Suberr1:MsgBox “本章节无题，请另选！“End SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer) Data1 控件代码MsgBox “数据错误事件捕捉到错误：“ & Error$(DataErr)Re
5、sponse = 0 忽略错误End SubPrivate Sub Data1_Reposition() Data1 控件代码Screen.MousePointer = vbDefaultOn Error Resume NextData1.Caption = “记录：“ & (Data1.Recordset.AbsolutePosition + 1) & “/共“ & Data1.Recordset.RecordCount & “条记录“End SubPrivate Sub Form_resize() 窗体代码If Data1.Recordset.RecordCount 0 ThenData1
6、.Recordset.MoveLastData1.Recordset.MoveFirstEnd IfEnd Sub填空题库编辑界面如图 2，代码和选择题库编辑界面类似，主要不同点：Private Const zhj = “Select 填空题.* From 填空题 Where (填空题.章节 = “Private Sub Combo1_Click() 章节选择组合框按钮代码On Error GoTo err1If Combo1.Text “全部章节“ ThenData1.RecordSource = zhj & Combo1.Text & “ )“ElseData1.RecordSource
7、= “试题一“End IfElseIf Combo1.Text “全部章节“ ThenData1.RecordSource = zhj1 & Combo1.Text & “ )“ElseData1.RecordSource = “填空题“End IfEnd IfData1.RefreshData1.Recordset.MoveLastData1.Recordset.MoveFirstExit Suberr1:MsgBox “本章无试题 !“End SubPrivate Sub Command1_Click() 选定试题按钮代码If Option1(0).Value = True ThenTex
8、t2.Text = Text2.Text & thao & “.“ & Text1.Text & Chr(13) & Chr(10)thao = thao + 1Elsetshu = InputBox(“请输入要选择的试题数：“)For i = 0 To 30wz(i) = 0NextDoredo:i = Int(Data1.Recordset.RecordCount * Rnd) + 1)For j = 1 To wz(0)If i = wz(j) Then n = 1: GoTo redoNextIf Data1.Recordset.AbsolutePosition + 1 i ThenD
9、oData1.Recordset.MovePreviousLoop Until Data1.Recordset.AbsolutePosition + 1 = iElseGoTo redoEnd IfText2.Text = Text2.Text & thao & “.“ & Text1.Text & Chr(13) & Chr(10)thao = thao + 1tshu = tshu - 1wz(0) = wz(0) + 1wz(wz(0) = Data1.Recordset.AbsolutePosition + 1Loop Until tshu = 0End IfEnd SubPrivat
10、e Sub Command2_Click() 保存试题按钮代码CommonDialog1.CancelError = TrueCommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = “All Files (*.*)|*.*|Text Files“ & _“(*.txt)|*.txt|Batch Files (*.bat)|*.bat“CommonDialog1.FilterIndex = 2CommonDialog1.ShowSaveOpen CommonDialog1.FileName For Output As #1Pr
11、int #1, Text2.TextClose #1End SubPrivate Sub Data1_Reposition()Screen.MousePointer = vbDefaultOn Error Resume NextData1.Caption = “记录：“ & (Data1.Recordset.AbsolutePosition + 1) & “/共“ & Data1.Recordset.RecordCount & “条记录“End Sub2.3 选择题自测窗体，可以用手动选题或随机选题两种方式选择试题；试题可以分章列出。选择试题后，用户可用选项按钮选择四个答案之一。系统会自己判断
12、答题正确与否，并给出相应的提示，每题可选两次，系统自己统计答题的正确率。选择题自测窗体如图 4，主要代码如下：Private Sub Option1_Click(Index As Integer)Dim c As StringIf cs txtFields(1).Text And cs = 1 ThenMsgBox “哎，不对！再试一次吧！“cs = cs + 1ElseMsgBox “还是不对！请选下一题吧！“selected = Falsecs = cs + 1total = total + 1Text1.Text = isright & “/“ & totalEnd IfOption1(
13、Index).Value = FalseIf Not selected ThenFor i = 0 To 3Option1(i).Enabled = FalseOption1(i).Value = FalseNextEnd IfEnd If 图 5End Sub填空题自测窗体与选择题自测窗体类似，选择试题后用户自己应先分析题义做出答案。如果感觉太困难，可按“帮助”按钮显示系统给出的提示再做。按“答案”按钮，可以连续显示该题的几个空的答案。填空题自测窗体如图 5。3 结语本系统具有一定的可维护性，管理员可以随时将任课教师提供的新题型及时添加到试题库，并对试题库进行修改，进而不断健全试题库，具有较好的发展性。本系统还有许多功能有待完善，如数据库的导入功能、自动评阅功能等。此外，还可进一步设计本系统的在线考试功能，从而形成信息时代下独立的完整的课程考试。
