利用WORD题库随机组卷方法

合集下载

Word试卷编制实用技巧

Word试卷编制实用技巧在平时的教学过程中，老师们常常自己编制一些试卷对学生进行阶段性检查测验，然而试卷的编制过程有时却十分费神费力，笔者经过实践，总结出一些编制试卷的实用技巧，感觉非常轻松，下面我们就一起来看看这些技巧吧！一、巧用"查找与替换"在编制语文试卷时，免不了要与汉语拼音打交到，汉语拼音字母中一般没有声调的到可以用英文字母代替一下，有声调怎么办？先用一个固定的符号代替一下，比如把所用到的"ā"用"a1"来代替、"é"用"e2"来代替，直到一份试卷录入完成，使用"编辑"菜单下的"查找与替换"命令，先在查找内容中键入"a1"，再在替换为中键入"ā"，再单击"全部替换"按钮，便完成了。

另外在编制数学试卷时，常常遇到乘号或除号，同样使用这种方法。

为了便于记忆，可先把"×"记作"*"、"÷"除号记作"/"，最后来个一次性全部替换即可。

二、巧用鼠标双击在编制试卷录入完成后，为了把卷面设计得美观些，常把各项的题目要求设成同一种的格式，各项的题目内容设置成另外的同一种格式。

一般先设定某一处的格式，其它多处由于格式相同，其设置常用格式刷来完成。

单击格式刷，它只能刷一次。

如果要多次连续使用同一格式，则应在选定某处的格式后在格式刷上双击，此时按钮将一直处于按下状态，当你不再需要时，可用鼠标单击或按"ESC"键便可放弃。

同样，单击某一绘图工具后可绘制相应的图形，但只能使用一次。

如果想多次连续使用同一绘图工具，可在相应的绘图工具按钮上双击，此时按钮将一直处于按下状态，当你不需要此工具时，可鼠标单击或按"ESC"键。

试题库自动组卷系统的算法设计与实现

区域中进行。
５在确定的区用折半算法开域内）始搜索，若Ｑ＝Ｉ则令Ｍ二［Ｎ一Ｋ／］Ｋ＋Ｍ，（），２｝Ｋ若Ｑ二０则Ｍ二［／］，Ｋ２Ｍ
｝，据Ｋ询态表Ａｉ的个Ｋ根查状链；．行中第Ｋ元素，标位若志
为“＂１，
１扫描试题库，）将各类型题数量送试题库数量矩阵Ｍ，ＯＪ，）其中工工，ｎＪ１，，ｏ二，－，，＝，＊，２２，ｍ
２初化链和取矩０；ＯＸＩ）态表选题阵，Ａ；－（Ｊ其）始状－，－，，，
中Ｉ１，－，，，，ｏ二，０，Ｊ２０２ｎ＝１ｍ３根据ＸＩ）（，中的元素产生随机数Ｋ与Ｍ矩阵中相应）Ｊ，
号， “ ” 一两符以了和“ ” 字结尾，便系卷时正以统组抽题能确识
别每道试题和对立的答案。试题和答案以文本文件的方式顺
序存放。
３３试题难度系数确定
图１系统结构示意图
一套试卷是否合理，要由主试题的难易程度结构来体现，故准确确定试题的难度是优化试卷的核心。本系统将各种题型的难度值分为五级，其难度系数分别为。５容易的题）１．（，．０（较容易的，．（题）１中等难度的题）２０较难的题）２５难５，．（，．（题）。这里的难度系数０５２５．一．只是用以表示试题难易程度的标示符，位于每道题的末端。每题难度系数的确定由专家组共同商讨和根据有关资料确定，力求难度系数的确定尽量
中图分类号Ｇ３：４４文献标识码：：Ａ
（一般均将试题分成：基础知识、概念理解、简单应用、综合应用、发展应用五大类）。如我们用该系统做数学分析试题库自动组卷系统时，就将试题按章分成：基础知识（填空、选择）概，念理解（选择、判断）简单应用（，计算、证明）综合应用（，计算、

巧用Word的宏制作试卷

快速输入填空题的空格线我看到很多老师在输入填空题的空格线时，都采用先关闭输入法，后按住“Shift”+“_”的方法画空格线。

用这种方法，是以半角字符画线，而且在录入过程中需要不断地切换输入法，很不方便。

如果我们利用Word 2000中提供的“宏”功能，指定键盘上的一个组合键对应一段空格线，就可以在以后的输入填空题的空格线中轻松地使用快捷键来画线了。

单击“工具→宏→录制新宏”，打开“录制宏”对话框，输入宏名，如“空格线”，并在“将宏指定到”栏中单击“键盘”，打开“自定义键盘”对话框。

这时在键盘上按下用来代替该宏操作的快捷键，如“Ctrl”+“F12”；在“将修改保存在”对话框中，选择“试卷”。

如图1所示。

依次单击[指定]、[关闭]按钮，光标变为空心箭头加磁带形式，进入录制状态。

这时按住“Shift”+“_” 画一段空格线。

然后，单击“录制宏”工具栏中的“停止录制”按钮，就完成了宏录制。

注意：在录制状态，所有操作都将被录制到宏操作里，所以不要进行和画空格线无关的操作。

这次录制宏，看起来挺麻烦，但能够做到一劳永逸，有了它，以后就可以轻松方便了。

在以后输入填空题的空格线时，只需用“Ctrl”+“F12”就可以轻松输入空格线。

如果觉得空格线长度不够，可以连续按“Ctrl”+“F12”。

快速输入判断题的虚线和括号在判断题的最后，一般都要输入一个填写答案的括号，这个括号的位置往往设在题目最后一行的最右边。

一般老师们习惯用虚线来连接题目和括号。

在此，也可以录制一个“宏”指定到键盘上，使判断题后的虚线和括号也能快捷输入。

打开“录制宏”对话框，输入宏名，如“虚线括号”，并将宏指定到键盘的组合键如“Ctrl”+“F11”。

进入录制状态后，进行如下操作：在水平标尺的右端（希望判断题题末右括号出现的位置）单击，标尺上会出现一个制表位“┗”，双击该制表位，打开“制表位”对话框。

在“对齐方式”中，选择“右对齐”；在“前导符”栏中，选择虚线来连接题目和括号（如图2所示）。

在Word中从Access数据库随机抽取试题制作试卷的方法

在Word中从Access数据库随机抽取试题制作试卷的方法在Word中，从Access数据库的对应表中，随机抽取试题并制作成一定版面的试卷，我作了一些尝试，试卷要求：生成大题及对应的分值，题目随机抽取，单选、多选答案也要随机变化（其中含有“以上”字样开头的，必须是第三个或者第四个答案），并根据抽取的题目情况，生成对应的参考答案文件（文件是文本文件）。

一、数据库其中blankQt、judgeQt、multiQt、singleQt结构如上，分别装的是填空题、判断题、多选题、单选题内容。

数据可以自己根据需要填写。

二、VBA窗体利用Word自身所带的VBA，制作窗体如下：三、VBA代码1.模块中代码Sub startMacro()optForm.ShowEnd SubSub readTable(ByVal sBT As String, ByVal sST As String, ByVal iST As Integer, ByVal iMT As Integer, ByVal iJT As Integer, ByVal iBT As Integer)Dim tm(3000) As String, bx(3000, 4) As String, da(3000) As String, i As Integer, j As Integer, cnSq As String, tmCnt As IntegerDim subNo() As Integer, xHs() As IntegerDim tmpTm As String, tmpBx As String, tmpDa As String, tABCD As String, tmpZM As String, outDa As String, qtTitle As String, da1 As StringDim conn As ADODB.ConnectionSet conn = New ADODB.ConnectionDim cnSr As StringcnSr = "driver={microsoft access driver (*.mdb, *.accdb)};dbq=" & ThisDocument.Path & "\nopapertest.mdb"conn.Open cnSrDim refDaFile As StringrefDaFile = ThisDocument.Path & "\" & sST & "(参考答案).txt"Open refDaFile For Output As #1Print #1, sBTPrint #1, sST & "(参考答案)" & vbCrLfsetDocTitle sBT, sST '设置标题（一二级）Dim sRs As ADODB.Recordset '对单选题进行处理Set sRs = New ADODB.RecordsetcnSq = "select 题目,备选A,备选B,备选C,备选D,答案from singleQt"sRs.Open cnSq, conni = 0Do While Not sRs.EOFi = i + 1tm(i) = sRs(0)For j = 1 To 4bx(i, j) = sRs(j)Nextda(i) = bx(i, sRs(5) * 1)sRs.MoveNextLooptmCnt = iReDim subNo(iST), xHs(4)Dim ySBx(4) As StringrandArray subNo, iST, tmCntqtTitle = "一、单项选择题（每小题3分，有" & iST & "个小题，共" & 3 * iST & "分)" Selection.TypeText qtTitle & vbCrLfPrint #1, qtTitlePrint #1, "1-5: ";For i = 1 To iST'Selection.TypeText xHs(1) & xHs(2) & xHs(3) & xHs(4) & vbCrLftmpTm = tm(subNo(i))tmpDa = da(subNo(i))Selection.TypeText i & "、" & tmpTm & vbCrLfySBx(1) = bx(subNo(i), 1)ySBx(2) = bx(subNo(i), 2)ySBx(3) = bx(subNo(i), 3)ySBx(4) = bx(subNo(i), 4)If InStr(ySBx(4), "以上") > 0 And InStr(ySBx(3), "以上") > 0 ThenrandArray xHs, 2, 2xHs(3) = 3: xHs(4) = 4ElseIf InStr(ySBx(4), "以上") > 0 ThenrandArray xHs, 3, 3xHs(4) = 4ElserandArray xHs, 4, 4End IfFor j = 1 To 4tmpBx = ySBx(xHs(j))If j = 1 Then da1 = tmpBxtABCD = Chr(64 + j)Select Case Len(da1)Case Is <= 8If j Mod 4 <> 0 ThenoutDa = tmpBx & vbTabElseoutDa = tmpBx & vbCrLfEnd IfCase Is <= 16If j Mod 2 <> 0 ThenoutDa = tmpBx & vbTabElseoutDa = tmpBx & vbCrLfEnd IfCase ElseoutDa = tmpBx & vbCrLfEnd SelectSelection.TypeText tABCD & "." & outDaIf tmpBx = tmpDa Then tmpZM = tABCDNextPrint #1, tmpZM;If i = iST Or i Mod 20 = 0 ThenIf i = iST ThenPrint #1, ""'Print #1, (i \ 5) * 5 + 1 & "-" & iST & ": ";ElsePrint #1, ""Print #1, (i \ 5) * 5 + 1 & "-" & ((i \ 5) + 1) * 5 & ": ";End IfElseIf i Mod 5 = 0 And i < iST - 5 ThenPrint #1, vbTab & (i \ 5) * 5 + 1 & "-" & ((i \ 5) + 1) * 5 & ": ";End IfEnd IfNextsRs.CloseSet sRs = NothingDim mRs As ADODB.Recordset '对多选题进行处理Set mRs = New ADODB.RecordsetcnSq = "select 题目,备选A,备选B,备选C,备选D,答案from multiQt"mRs.Open cnSq, conni = 0Do While Not mRs.EOFi = i + 1tm(i) = mRs(0)da(i) = ""For j = 1 To 4bx(i, j) = mRs(j)If Mid(mRs(5), j, 1) = "1" Thenda(i) = da(i) & "[[" & bx(i, j) & "]]"End IfNextmRs.MoveNextLooptmCnt = iReDim subNo(iMT), xHs(4)randArray subNo, iMT, tmCntqtTitle = "二、多项选择题（每小题4分，有" & iMT & "个小题，共" & 4 * iMT & "分)" Selection.TypeText qtTitle & vbCrLfPrint #1, vbCrLf & qtTitleFor i = 1 To iMTrandArray xHs, 4, 4'Selection.TypeText xHs(1) & xHs(2) & xHs(3) & xHs(4) & vbCrLftmpTm = tm(subNo(i))tmpDa = da(subNo(i))Selection.TypeText i & "、" & tmpTm & vbCrLftmpZM = ""For j = 1 To 4tmpBx = bx(subNo(i), xHs(j))If j = 1 Then da1 = tmpBxtABCD = Chr(64 + j)If InStr(tmpDa, "[[" & tmpBx & "]]") > 0 ThentmpZM = tmpZM & tABCDEnd IfSelect Case Len(da1)Case Is <= 8If j Mod 4 <> 0 ThenoutDa = tmpBx & vbTabElseoutDa = tmpBx & vbCrLfEnd IfCase Is <= 16If j Mod 2 <> 0 ThenoutDa = tmpBx & vbTabElseoutDa = tmpBx & vbCrLfEnd IfCase ElseoutDa = tmpBx & vbCrLfEnd SelectSelection.TypeText tABCD & "." & outDaNext'Selection.TypeText tmpZM & ": " & tmpDa & vbCrLfPrint #1, i & "." & tmpZM & vbTab;If i = iMT Or i Mod 10 = 0 Then Print #1, ""NextmRs.CloseSet mRs = NothingDim jRs As ADODB.Recordset '对判断题进行处理Set jRs = New ADODB.RecordsetcnSq = "select 题目,答案from judgeQt"jRs.Open cnSq, conni = 0Do While Not jRs.EOFi = i + 1tm(i) = jRs(0)da(i) = jRs(1)jRs.MoveNextLooptmCnt = iReDim subNo(iJT)Dim k As IntegerrandArray subNo, iJT, tmCntqtTitle = "三、判断题（每小题2分，有" & iJT & "个小题，共" & 2 * iJT & "分)"Selection.TypeText qtTitle & vbCrLfPrint #1, vbCrLf & qtTitlePrint #1, "1-5: ";For i = 1 To iJTtmpTm = tm(subNo(i))tmpDa = da(subNo(i))Selection.TypeText i & "、" & tmpTm & vbCrLftmpZM = ""If UCase(tmpDa) = "TRUE" Or UCase(tmpDa) = "ON" Or UCase(tmpDa) = "YES" Or tmpDa = "1"ThentmpZM = "A"ElsetmpZM = "B"End IfPrint #1, tmpZM;If i = iJT Or i Mod 20 = 0 ThenIf i = iJT ThenPrint #1, ""'Print #1, (i \ 5) * 5 + 1 & "-" & iJT & ": ";ElsePrint #1, ""Print #1, (i \ 5) * 5 + 1 & "-" & ((i \ 5) + 1) * 5 & ": ";End IfElseIf i Mod 5 = 0 ThenPrint #1, vbTab & (i \ 5) * 5 + 1 & "-" & ((i \ 5) + 1) * 5 & ": ";End IfEnd IfNextjRs.CloseSet jRs = NothingDim bRs As ADODB.Recordset '对填空题进行处理cnSq = "select 题目,答案from blankQt"Set bRs = New ADODB.RecordsetbRs.Open cnSq, conni = 0Do While Not bRs.EOFi = i + 1tm(i) = bRs(0)da(i) = bRs(1)bRs.MoveNextLooptmCnt = iReDim subNo(iBT)randArray subNo, iBT, tmCntqtTitle = "四、填空题（每小题3分，有" & iBT & "个小题，共" & 3 * iBT & "分)"Selection.TypeText qtTitle & vbCrLfPrint #1, vbCrLf & vbCrLf & qtTitleFor i = 1 To iBTtmpTm = tm(subNo(i))tmpDa = da(subNo(i))Selection.TypeText i & "、" & tmpTm & vbCrLfPrint #1, i & "、" & tmpDaNextbRs.CloseSet bRs = Nothingconn.CloseSet conn = NothingClose #1setTabPosition '为整篇文档设置Tab位置End SubPrivate Sub setDocTitle(ByVal bT As String, ByVal sT As String) '设置文档标题与小标题，分别为一级标题和二级标题ActiveWindow.ActivePane.View.Type = wdOutlineViewSelection.Range.Paragraphs.Style = ActiveDocument.Styles(wdStyleHeading1)Selection.TypeText Text:=bTSelection.HomeKey Unit:=wdLine, Extend:=wdExtendSelection.ParagraphFormat.Alignment = wdAlignParagraphCenterSelection.EndKey Unit:=wdLineSelection.TypeParagraphSelection.Range.Paragraphs.Style = ActiveDocument.Styles(wdStyleHeading2)Selection.TypeText Text:=sTSelection.HomeKey Unit:=wdLine, Extend:=wdExtendSelection.ParagraphFormat.Alignment = wdAlignParagraphCenterSelection.EndKey Unit:=wdLineSelection.TypeParagraphSelection.Range.Style = ActiveDocument.Styles(wdStyleNormal)If ActiveWindow.View.SplitSpecial = wdPaneNone ThenActiveWindow.ActivePane.View.Type = wdPrintViewElseActiveWindow.View.Type = wdPrintViewEnd IfEnd SubPublic Sub clearThisDoc(ByVal b As Boolean)'' clearThisDoc Macro' 清除此文档的所有内容'Selection.WholeStorySelection.Delete Unit:=wdCharacter, Count:=1End SubPublic Sub writeToEachXML(ByVal b As Boolean)Dim connStr As String, conn As ADODB.ConnectionconnStr = "driver={microsoft access driver (*.mdb, *.accdb)};dbq=" & ThisDocument.Path & "\nopapertest.mdb"Set conn = New ADODB.Connectionconn.Open connStrDim xmlFirst As StringxmlFirst = "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "utf-8" & Chr(34) & "?>"Dim xmlSrcBegin As String, xmlSrcEnd As StringxmlSrcBegin = "<resources>"xmlSrcEnd = "</resources>"Dim xmlArrBegin(5) As StringDim xmlArrEnd As StringxmlArrEnd = "</string-array>"'以下是单项选择题Dim xmlFileName As StringxmlFileName = ThisDocument.Path & "\S\arrays.xml"Open xmlFileName For Output As #2Print #2, xmlFirstPrint #2, xmlSrcBeginDim sql As Stringsql = "select 题目,备选A,备选B,备选C,备选D,答案from singleQt"Dim rs2 As ADODB.RecordsetSet rs2 = New ADODB.Recordsetrs2.Open sql, connxmlArrBegin(0) = "singletms"xmlArrBegin(1) = "singlebxas"xmlArrBegin(2) = "singlebxbs"xmlArrBegin(3) = "singlebxcs"xmlArrBegin(4) = "singlebxds"xmlArrBegin(5) = "singledas"Dim i As Integer, tmpC As StringFor i = 0 To 5rs2.MoveFirstPrint #2, arraySign(xmlArrBegin(i))While Not rs2.EOFtmpC = rs2(i)tmpC = Replace(tmpC, "&", "&")tmpC = Replace(tmpC, "<", "<")tmpC = Replace(tmpC, "@", "＠")tmpC = Replace(tmpC, "?", "？")Print #2, "<item>" & tmpC & "</item>";rs2.MoveNextWendPrint #2, xmlArrEndNextrs2.CloseSet rs2 = NothingPrint #2, xmlSrcEndClose #2'以下多项选择题xmlFileName = ThisDocument.Path & "\M\arrays.xml"Open xmlFileName For Output As #2Print #2, xmlFirstPrint #2, xmlSrcBeginsql = "select 题目,备选A,备选B,备选C,备选D,答案from multiQt" Set rs2 = New ADODB.Recordsetrs2.Open sql, connxmlArrBegin(0) = "multitms"xmlArrBegin(1) = "multibxas"xmlArrBegin(2) = "multibxbs"xmlArrBegin(3) = "multibxcs"xmlArrBegin(4) = "multibxds"xmlArrBegin(5) = "multidas"For i = 0 To 5rs2.MoveFirstPrint #2, arraySign(xmlArrBegin(i))While Not rs2.EOFtmpC = rs2(i)tmpC = Replace(tmpC, "&", "&")tmpC = Replace(tmpC, "<", "<")tmpC = Replace(tmpC, "@", "＠")tmpC = Replace(tmpC, "?", "？")Print #2, "<item>" & tmpC & "</item>";rs2.MoveNextWendPrint #2, xmlArrEndNextrs2.CloseSet rs2 = NothingPrint #2, xmlSrcEndClose #2'以下判断题xmlFileName = ThisDocument.Path & "\J\arrays.xml" Open xmlFileName For Output As #2Print #2, xmlFirstPrint #2, xmlSrcBeginsql = "select 题目,答案from judgeQt"Set rs2 = New ADODB.Recordsetrs2.Open sql, connxmlArrBegin(0) = "judgetms"xmlArrBegin(1) = "judgedas"For i = 0 To 1rs2.MoveFirstPrint #2, arraySign(xmlArrBegin(i))While Not rs2.EOFtmpC = rs2(i)If i = 1 ThentmpC = IIf(UCase(tmpC) = "TRUE", "1", "2") End IftmpC = Replace(tmpC, "&", "&")tmpC = Replace(tmpC, "<", "<")tmpC = Replace(tmpC, "@", "＠")tmpC = Replace(tmpC, "?", "？")Print #2, "<item>" & tmpC & "</item>";rs2.MoveNextWendPrint #2, xmlArrEndNextrs2.CloseSet rs2 = NothingPrint #2, xmlSrcEndClose #2'以下填空题xmlFileName = ThisDocument.Path & "\B\arrays.xml" Open xmlFileName For Output As #2Print #2, xmlFirstPrint #2, xmlSrcBeginsql = "select 题目,答案from blankQt"Set rs2 = New ADODB.Recordsetrs2.Open sql, connxmlArrBegin(0) = "blanktms"xmlArrBegin(1) = "blankdas"For i = 0 To 1rs2.MoveFirstPrint #2, arraySign(xmlArrBegin(i))While Not rs2.EOFtmpC = rs2(i)tmpC = Replace(tmpC, "&", "&")tmpC = Replace(tmpC, "<", "<")tmpC = Replace(tmpC, "@", "＠")tmpC = Replace(tmpC, "?", "？")Print #2, "<item>" & tmpC & "</item>";rs2.MoveNextWendPrint #2, xmlArrEndNextrs2.CloseSet rs2 = NothingPrint #2, xmlSrcEndClose #2conn.CloseSet conn = NothingEnd SubPrivate Function arraySign(ByVal arrName As String) As StringarraySign = "<string-array name=" & Chr(34) & arrName & Chr(34) & ">"End FunctionPrivate Sub randArray(ByRef a() As Integer, ByVal xB As Integer, ByVal maxRnd As Integer) Dim tmp As Integer, flag As Boolean, i As Integer, j As Integer ', s As StringRandomize TimerFor i = 1 To xBflag = Truetmp = Int(Rnd * maxRnd + 1)For j = 1 To i - 1If a(j) = tmp Thenflag = FalseExit ForEnd IfNextIf flag = True Thena(i) = tmp's = s & a(i) & ", "Elsei = i - 1End IfNext'MsgBox sEnd SubPrivate Sub setTabPosition()Selection.WholeStorySelection.ParagraphFormat.TabStops.ClearAllActiveDocument.DefaultTabStop = CentimetersToPoints(0.74)Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(3.52) _ , Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpacesSelection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(7.04) _ , Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpacesSelection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(10.56 _ ), Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpacesSelection.HomeKey Unit:=wdStoryEnd Sub2.窗体对应代码Const GkSNums As Integer = 41Const GkMNums As Integer = 9Const GkJNums As Integer = 26Const GkBNums As Integer = 17Private Sub cmdClrDoc_Click()clearThisDoc TrueEnd SubPrivate Sub cmdOutToXML_Click()'生成对应的四个XML文件writeToEachXML TrueEnd SubPrivate Sub UserForm_Initialize()chkGk_ClickEnd SubPrivate Sub chkGk_Click()If chkGk.Value = True ThenMe.frmFreeSet.Enabled = False ElseMe.frmFreeSet.Enabled = True End IfEnd SubPrivate Sub chkS_Click()If chkS.Value = True ThentxtS.Enabled = TrueElsetxtS.Enabled = FalseEnd IfEnd SubPrivate Sub chkM_Click()If chkM.Value = True ThentxtM.Enabled = TrueElsetxtM.Enabled = FalseEnd IfEnd SubPrivate Sub chkJ_Click()If chkJ.Value = True ThentxtJ.Enabled = TrueElsetxtJ.Enabled = FalseEnd IfEnd SubPrivate Sub chkB_Click()If chkB.Value = True ThentxtB.Enabled = TrueElsetxtB.Enabled = FalseEnd IfEnd SubPrivate Sub cmdGetQuestions_Click()Dim mainTitle As String, subTitle As StringmainTitle = Trim(Me.txtBigTitle.Text)subTitle = Trim(Me.txtSubTitle.Text)Dim intST As Integer, intMT As Integer, intJT As Integer, intBT As IntegerIf chkGk.Value = True ThenintST = GkSNumsintMT = GkMNumsintJT = GkJNumsintBT = GkBNumsElseIf chkS.Value = True ThenintST = Val(Me.txtS.Text)If intST < 5 Or intST > 100 Then intST = 40ElseintST = 0End IfIf chkM.Value = True ThenintMT = Val(Me.txtM.Text)If intMT < 5 Or intMT > 100 Then intMT = 30ElseintMT = 0End IfIf chkJ.Value = True ThenintJT = Val(Me.txtJ.Text)If intJT < 5 Or intJT > 100 Then intJT = 40ElseintJT = 0End IfIf chkB.Value = True ThenintBT = Val(Me.txtB.Text)If intBT < 5 Or intBT > 100 Then intBT = 30ElseintBT = 0End IfEnd If'MsgBox mainTitle & vbCrLf & subTitle & vbCrLf & intST & vbCrLf & intMT & vbCrLf & intJT & vbCrLf & intBTreadTable mainTitle, subTitle, intST, intMT, intJT, intBTEnd SubPrivate Sub cmdEnd_Click()EndEnd Sub以上代码，由于时间关系，没有作一一注释，请谅。

题库智能组卷系统组卷功能说明

“题库智能组卷系统“组卷功能说明教师用户可以利用系统提供的智能出卷、标准化出卷、搜索出卷、知识点题数出卷、知识点题分出卷共五种方式进展出卷。

为了使生成的试卷更适合用户的要求，系统还提供了手工调整试卷功能。

试卷生成后如果没有到达教师期望的目的，还可以在“试卷修改〞页面中，进展手工试卷调整，包括试题添加、删除、更换，试题顺序调整，题型顺序调整和试题题分修改等多种手工修改试卷方式。

1.智能出卷智能出卷的根本思路是在用户提出的较为模糊和较少要求的情况下，高度智能化地生成满意的试卷。

智能出卷分四个步骤，下面将具体介绍其操作。

第1步设置试卷参数鼠标点击“智能出卷〞按钮，进入到智能出卷，如图1-1所示。

【说明】：“试卷名称〞是试卷的标题，默认为“未命名智能试卷〞，可以重新命名，也可以在试卷生成后再修改名称，但是试卷名称不得为空。

“试卷总分〞默认为100分，可以修改，总分可以限制在10～300分。

“出卷份数〞表示系统支持同时生成多份试卷。

“难易比例〞，试题库中每道题都有难度系数指标，难度系数即试题的失分率，分为易(0－25)、中(30－55)、难(60－100)三个等级。

试卷默认的易中难比例为5：3：2，此比例可根据教师的教学要求自行调整。

图1-1第2步选择试题围如图1-2所示：首先选择教材，然后在“选择考试围〞栏中选择考试的围，“全部容〞中显示了本教材中所有试题围，用鼠标点击“＋〞图标，可以翻开下面的章节的具体容，在用鼠标点击“+〞图标可以继续点开下面的容。

然后用鼠标点击要选择容前的图标，被选择的容前的选择框变为。

选择围确定后，点击下一步，进入下一步的设置。

图1-2第3步确定题型题分如图1-3，页面中显示了每个题型中拥有的试题数量。

在“出卷总分设置〞框中添加各题型分数，使“目前输入的试题总分〞与“试卷要求总分〞一样后，点击下方的“完成〞按钮，开场出卷。

【注】：不同学科看到的题型列表和题型对应的总题数会不同；即使同一学科，选择不同的选题围和试卷参数，也可能会有不同的题型和总试题数。

基于试题库自动组卷系统

基于试题库的自动组卷系统摘要：本文首先分析了自动组卷系统在具体的教学活动过程中的实际需求，然后以高中英语的教学为背景，设计与实现了一个实际的自动组卷系统，对其中的数据库结构设计以及各个主要模块的实现进行了详细的介绍。

本系统可以从试题库中自动的查找和组织出一些不同类型、不同难度、不同章节范围内的试题来组成一份合理的试卷。

它采用的是利用试卷自动生成算法记录试题的一组特征值，根据用户提供的试卷题目类型、章节分布、难易程度等条件，借助于系统中的一系列数据文件，使具体课程的相关数据动态地抽象成逻辑数据，用以解决通用问题，线性的规划出一份约束满足的、合理的试卷。

目录第一章引言 (3)第二章系统分析 (3)2.1 试题库分析 (3)2.2 组卷分析 (4)2.3 系统简介 (5)第三章数据库设计 (6)3.1 系统数据库 (6)3.2 临时数据库 (7)第四章系统总体结构设计 (8)第五章模块设计及实现 (9)5.1 用户登录模块 (9)5.2 系统维护模块 (10)5.2.1新建数据库 (10)5.2.2修改密码 (11)5.2.3添加用户 (11)5.3题库管理模块 (11)5.4自动组卷模块 (13)5.4.1功能 (14)5.4.2设计思路 (14)5.4.3 组卷策略分析 (14)5.4.4 代码实现 (16)5.4.5 试卷编辑 (22)第一章引言考试是教师检查学生学习情况的必要手段，但出卷却是一种繁重的智力和体力劳动，传统的标准化试卷命题，需要由教学专家组成一个命题班子，根据许多优秀教师多年的教学经验，从贯彻教学大纲要求，到试卷意图的组织，经过反复的推敲，才能完成一份标准化的试卷。

这样的命题方式不仅工作任务繁重而且试卷的标准化程度、难易程度、题量大小等各方面难以控制，难以形成有效的试题库，给试题和试卷的管理带来很多问题和困难。

鉴于这种情况，利用计算机进行试卷的自动生成并逐步积累形成有效的试题库，对试题和试卷的管理将变得高效而便捷，对提高工作效率，使试卷管理逐步走向正规化自动化将起到十分重要的作用。

实用小技能用Word和Excel自制一个题库自判断答题系统

实用小技能用Word和Excel自制一个题库自判断答题系统如果你需要做题库，并且喜欢电子答题的方法，这篇文章或许会对你有所帮助。

反正李老师班级的平均成绩高出其他班级的14分，这就是它的好处，希望这篇文章对我今后的学生有所帮助吧！注意：这篇文章涉及到Word特殊字符、通配符、Excel设置等常见问题。

如果文章存在不足或错误的地方，还请海涵~运行结果如下图所示，正确答案第一列，模拟做题的时候学生将它藏着，然后在E列进行答题，D列是在线判断系统，反复训练从而提升学生的考试分数。

哈哈~哎，确实佩服L老师啊。

使用Word调整格式假设现在存在10道《数据结构》考试题目。

1.栈和队列的共同特点是( A )。

A.只允许在端点处插入和删除元素B.都是先进后6C.都是先进先出D.没有共同点2.用链接方式存储的队列，在进行插入运算时( D ).A. 仅修改头指针B. 头、尾指针都要修改C. 仅修改尾指针D.头、尾指针可能都要修改3.以下数据结构中哪一个是非线性结构？( D )A. 队列 B. 栈 C. 线性表 D. 二叉树4.设有一个二维数组A[m][n]，假设A[0][0]存放位置在644(10)，A[2][2]存放位置在676(10)，每个元素占一个空间，问A[3][3](10)存放在什么位置？脚注(10)表示用10进制表示。

（ C ）A．688 B．678 C．692 D．6965.树最适合用来表示( C )。

A.有序数据元素B.无序数据元素C.元素之间具有分支层次关系的数据 D.元素之间无联系的数据6.二叉树的第k层的结点数最多为( D ).A．2k-1 B.2K+1 C.2K-1D. 2k-17.若有18个元素的有序表存放在一维数组A[19]中，第一个元素放A[1]中，现进行二分查找，则查找A［3］的比较序列的下标依次为( D )A. 1，2，3 B. 9，5，2，3C. 9，5，3 D. 9，4，2，38.对n个记录的文件进行快速排序，所需要的辅助存储空间大致为（ C ）A. O（1） B. O（n） C. O（1og2n） D. O（n2）9.对于线性表（7，34，55，25，64，46，20，10）进行散列存储时，若选用H（K）=K %9作为散列函数，则散列地址为1的元素有（ D ）个，A．1 B．2 C．3 D．410.设有6个结点的无向图，该图至少应有( A )条边才能确保是一个连通图。

在Word中建设题库和生成试卷方式的研究

三、安装与调用只要将相关程序以宏的形式导入到Ｗｏｒｄ环境中（在Ｗｏｒｄ２０００、Ｗｏｒｄ２００２、Ｗｏｒｄ２００３中均可使用），就可以宏的方式调用该程序，完成试卷及答案的自动生成工作。总之，该成果可使每一位教师都能参与到试题库的建设与维护中来，对试题的类型几乎没有限制，特别适合以测试技能为主的职业院校试题库的建设与管理。（作者单位：黑龙江农垦林业职业技术学院）
３．所需表格和图形的处理。由于抽取试题是以对象为单位，因此，试题或答案中所需表格，要使用Ｅｘｃｅｌ表格（可直接在Ｗｏｒｄ中插入Ｅｘｃｅｌ表格），如果所需图形是由多个元素组成，则必须将各元素组合成一个对象（此项工作可以在Ｗｏｒｄ中完成，也可以在其他图形编辑软件中完成）。
关键词：建设题库；生成试卷；宏
黑龙江徐俊延王小树王梦飞李旭颖关晓伟
随着计算机技术在教育领域的广泛应用，试题库建设和试卷生成方式的研究一直受到人们的重视，国内外已开发的试题库管理软件，一般只适合于标准化考试和客观性试题，题库需要专人管理，其建设与更新的工作难度较大。针对职业教育教学改革的实际需要，为了方便对技能考核所需各种题型的编制和管理，充分利用Ｗｏｒｄ强大的文字、表格、图形处理、排版、打印和Ｗｏｒｄ宏中ＶｉｓｕａｌＢａｓｉｃ的二次开发功能，让教师熟悉在Ｗｏｒｄ中编写试卷的基本操作能力和多年来已经积累的Ｗｏｒｄ试题，让每一位教师都参与到试题库建设中来，笔者于２００３年初申报了在Ｗｏｒｄ环境中进行试题库建设和试卷生成方式的研究课题。现已建立起了全院所有学科的理论和技能测试题库，实现了题库建设的群众化，试卷编制的集中化，由教务处集中利用题库生成试卷，在两周的时间内，一个人操作，就完成了近二百门课程的出题任务，大大提高了编制试卷的效率、标准和保密性。现将该成果的主要技术项目介绍如下：

word制作标准考试试卷，超级实用

word制作标准考试试卷，超级实用
如果你是一位教师或与考试出题有关的人士，请认认真真地看完这篇文章，本文将一步一步带你制作试卷。

1、设置纸张
点击页面布局，对纸张进行基础设置
2、制作密封线
在左边页边距处手绘竖排文本框，点击插入→文本框→竖排文本框，然后设置文本框字体为宋体四号，输入学校、班级、姓名、学号等信息，密封线用键盘上的“-”来完成。

最后选中文本框边线，点右键选择设置文本框格式，将线条颜色选择为无。

3、试卷标题一般是三号宋体加粗，然后插入表格来制作各题的得分
4、插入页码
双击页脚，在页脚位置输入「第{page}页共{numpages}页」，居中，按住组合键「Alt+F9」切换域代码，页码就制作出来了。

word字体可以无限放大，你知道吗？。

用word2003编排考试试卷

用word2003编排考试试卷编排一张完美的试卷用Word2003就可以轻而易举地完成了。

下面向您介绍编排一份试卷模板的过程和步骤。

一、设置试卷版面经过认真的测试和仔细分析，笔者察觉到试卷用纸并非标准的8开大小，因此需要进行自定义设置。

为方便起见，先将相关单位变成毫米。

选择工具“菜单”中的“选项”子菜单，打开“选项”对话框，选择“常规”标签。

从“度量单位”后面的下拉菜单中选择毫米，并确定“使用字符单位”前的对号取消，单击确定按钮即可。

然后，从“文件”菜单中选择“页面设置”命令，打开“页面设置”对话框。

1.纸张类型切换到“纸张类型”选项，从“纸张规格”下拉列表框的最底部找到“自定义”项，根据前面测量到的尺寸，将纸张的宽、高分别设置为390mm、270mm，同时请将“纸张方向”由原来的“纵向”更改为“横向”。

2.分栏由于试卷都是左右分栏，因此先分栏。

选择“格式”菜单中的“分栏”子菜单，打开分栏对话框。

选择预设中的“两栏”，将栏间距设为20mm或其它的需要值。

不选择“分隔线”，否则试卷中间竖着一根长线。

3.页边距继续打开“页面设置”对话框，切换到“页边距”选项页，将上、下、左、右页面边距分别设置为20mm、20mm、40mm、20mm，这是因为左边需要增加一个密封线栏，因此左边的页面边距应该设置得大一些。

二、制作试卷左侧的试卷头完成版面设置后，接下来的重点就应该是制作试卷左侧的试卷头，也就是包括了考生信息和密封线的那部分，这一步应该说是编排试卷的关键所在，也是一份标准试卷必不可少的部分1.激活“绘图”工具栏由于制作试卷头的操作基本上都是依靠“绘图”工具栏中的相关按钮来完成的，因此我们首先从“视图→工具栏”中勾选“绘图”工具栏进行激活，工具栏上各个按钮的功能可以将鼠标指向其上即可查看。

2.制作考生信息区由于考生信息区是一个长条形的区域，因此我们从“绘图”工具栏中选择“竖排文本框”按钮，按住鼠标左键在页面上拖动出一个矩形框，这个矩形框的大小可以定为230mm左右或你需要的大小，以后还可以重新调整。

Word中自动出卷

Word中自动出卷１总体设计方案（1）建立试题库及设计含固定卷首的空白试卷。

WORD文档要从ACCESS数据库形式的试题库中调用试题，是Microsoft Office应用程序之间的信息交换。

根据需要可设计一个便于执行各种操作，包括具有增、删及调用功能的ACCESS数据库（本例库名为pxp.mdb），库中含填空题、选择题、判断题、问答题及综合题等各类题型的表（如填空题对应于表pxptkt）。

试卷往往可以有固定的卷首格式，故预先设计含固定卷首（图1）的一空白试卷供程序调用。

（2）创建应用程序界面。

自动出卷所涉及的试题提取、编写题头、试卷排版、试卷分析、保存试卷及打印输出等任务都在同一界面窗口中得以完成。

（3）该应用程序嵌入于Microsoft Office某一应用程序中。

这一应用程序可以在《化学工程考试系统》中担当被调用的模块，为了不影响Microsoft Office正常操作，也可作为Microsoft Office某一应用程序的一部分（该应用程序嵌入在WORD中）嵌入其中，使Microsoft Office的应用功能得到扩展。

3 具体方案的实现可在ACCESS应用程序中建立试题库。

一表一题型，一题一记录，每一记录中含题目、答案、难度系数等项目（难度系数便于试卷分析用）。

以下主要就嵌入式应用程序的某些关键之处作重点阐述，由于篇幅所限，许多细节此处不多赘述。

3.1 嵌入方案的实现在Office的各应用程序中，用VBA可以创建许许多多的自定义小程序。

这些小程序往往通过创建一个工具栏中工具按钮或创建菜单项来运行，即采用嵌入的方式使Office各应用程序的应用功能得到扩展。

比如在Office应用程序Word中创建一个工具按钮，当用户单击所创建的工具按钮时，Click（）事件触发，并执行特定的代码以响应事件。

因此，创建工具按钮来运行VBA程序不失为一种扩展Office各应用程序应用功能的嵌入式方法。

3.1.1 创建一个工具按钮打开Visual Basic编辑器，添加一个新的类模块，其名称默认为类1。

利用word编辑学科试卷技巧

利用Word编辑学科试卷技巧沈阳师范大学蒋宁试卷的结构•试卷的格式–折页文件，分两栏，每栏标为一页–正反面印刷–有装订线•试卷的内容–与具体的学科相关主要内容试卷格式的编辑技巧试卷内容的编辑技巧12–页面布局–密封线的制作–页码的设置–得分表的制作–页面布局–页面布局–页面布局–页面布局•页面布局要点：内侧页边距较大纸张为横向对称页边距纸张大小为B4分两栏–页面布局–密封线的制作–页码的设置–得分表的制作–密封线的制作具体操作步骤•密封线的制作要点页眉奇偶页不同竖排文本框（无线条颜色）文字方向奇偶页不同–页面设置–密封线的制作–页码的设置–得分表的制作–页码的设置◆注意：试卷的文档分两栏，每一栏称为试卷的一页试卷左栏的页码=本页文档的页码*2-1试卷右栏的页码=本页文档的页码*2试卷的总页数=文档总页数*2◆域代码：由域名等组成的字符串◆域结果：域代码所代表的信息，根据文档的变动而自动更新文档中的变量域–页码的设置Word 中插入域的方法：Ctrl+F9–页码的设置具体操作步骤•页码的设置要点：插入域使用组合键Ctrl+F9域代码使用域名page和numpages 通过“更新域”查看域结果–页面设置–密封线的制作–页码的设置–得分表的制作–得分表的制作•得分表的制作要点：卷首得分表：插入两行多列表格题首得分表：插入两行两列表格（如果需要文字紧密型可先插入文本框之后再插入表格）•如何将固定格式设置的试卷重复利用呢？•保存为Word模板主要内容试卷格式的编辑技巧试卷内容的编辑技巧12–语文试卷的编辑技巧–数学试卷的编辑技巧–英语试卷的编辑技巧–其他学科试卷的编辑技巧•语文试卷的编辑技巧拼音：有汉字拼音•语文试卷的编辑技巧拼音：无汉字p n y n( )īī•语文试卷的编辑技巧拼音：使用拼音指南（有汉字）插入特殊符号（无汉字）•语文试卷的编辑技巧作文格：插入两行二十列表格，上面一行合并单元格，之后多次复制粘贴此表格具体操作步骤–语文试卷的编辑技巧–数学试卷的编辑技巧–英语试卷的编辑技巧–其他学科试卷的编辑技巧•数学试卷的编辑技巧数学符号：•数学试卷的编辑技巧数学公式：具体操作步骤•数学试卷的编辑技巧数学符号：插入特殊符号数学公式：插入公式–语文试卷的编辑技巧–数学试卷的编辑技巧–英语试卷的编辑技巧–其他学科试卷的编辑技巧•英语试卷的编辑技巧插入音标–语文试卷的编辑技巧–数学试卷的编辑技巧–英语试卷的编辑技巧–其他学科试卷的编辑技巧•其他学科试卷的编辑技巧轻松工具箱：将试卷制作的困难一网打尽小结试卷格式的编辑技巧试卷内容的编辑技巧12谢谢!。

EXCELWORD轻松自制随机出卷系统

EXCEL WORD 轻松自制随机出卷系统先把收集到的大量考题集中保存到题库中，再随机从中抽取指定数量的题目制作考卷，这种随机抽题出卷的方式相信大多教师朋友都知道吧。

不过你有没有想过可以自己设计一个随机出卷系统呢？这其实很容易实现，我们只要用Excel2010函数配合Word2010的邮件合并就可以轻轻松松地按自己的要求定制出卷系统。

设计好后你只要输入足够的题目，按两下鼠标就可以随机自动生成试卷了，是可以直接打印出来使用的试卷哦。

一、用Excel2010实现随机抽题在Excel中实现随机抽题的原理其实很简单。

我们先对所属单元在考试范围内的题目都用RAND产生一个随机数，再按随机数对题目排名次。

这样前N名的题目自然是随机的。

然后再用VLOOKUP按名次值把前1-N名的题目顺次提取出来，不就等于是随机抽取N题了吗？而我们每刷新一次随机数都会随机变化，也就可以得到不同的随机试卷题目。

1.建立题库打开Excel2010,新建“出卷”、“填空题”两个工作表。

在“填空题”工作表的A1单元格输入0，在B1:H1输入随机数、“一、填空题”、“一、填空题（答案）”、所属单元等标题。

在B2单元格输入公式IF(AND(E2>出卷!B$7,E2<出卷!D$7),RAND(),"")，公式中的B$7、D$7是“出卷”工作表中显示出题范围的单元格。

在A2RANK(B2,B:B) COUNTIF(B$2:B2,B2)-1，RANK用于根据随机数返回该题的名次，后面加上COUNTIF(B$2:B2,B2)则是确保万一随机数相同时也会递增排名，从而使名次数值连续不中断。

选中A2:B2单元格，拖动其填充柄向下复制填充到5000行，具体行数请按实际会保存的最大题数考虑。

最后在C:E列逐一输入题目、答案、所在单元即可，在此我们就先随便输入几道题用作实验吧。

右击“填空题”工作表的标签选择“移动或复制”，选中“建立副本”确定进行复制。

EXCEL WORD 轻松自制随机出卷系统

设计好后你只要输入足够的题目，按两下鼠标就可以随机自动生成试卷了，是可以直接打印出来使用的试卷哦。

一、用Excel2010实现随机抽题在Excel中实现随机抽题的原理其实很简单。

我们先对所属单元在考试范围内的题目都用RAND产生一个随机数，再按随机数对题目排名次。

这样前N名的题目自然是随机的。

1.建立题库打开Excel2010,新建“出卷”、“填空题”两个工作表。

在“填空题”工作表的A1单元格输入0，在B1:H1输入随机数、“一、填空题”、“一、填空题（答案）”、所属单元等标题。

在B2单元格输入公式IF(AND(E2>出卷!B$7,E2<出卷!D$7),RAND(),"")，公式中的B$7、D$7是“出卷”工作表中显示出题范围的单元格。

选中A2:B2单元格，拖动其填充柄向下复制填充到5000行，具体行数请按实际会保存的最大题数考虑。

最后在C:E列逐一输入题目、答案、所在单元即可，在此我们就先随便输入几道题用作实验吧。

右击“填空题”工作表的标签选择“移动或复制”，选中“建立副本”确定进行复制。

题库管理自动组卷系统-题库管理与自动组卷系统使用管理守则

精心整理题库管理与自动组卷系统使用手册东北农业大学工程学院简介：题库管理与自动组卷系统包括两个方面：题库管理和自动组卷。

适用于大学各种基础课以及高中课程。

试题库一旦建立，就可以自动组卷，并自动生成Word文档。

该软件系统的优点：（1）支持Word（2）组●✍专业✍课程✍章节✍题型✍难度✍✍专业✍课程可以手动建立关联。

相同的增加该系统的应用范围和灵活性的同时也增加使用该系统的复杂性，需要用户自己输入某些基础信息。

但是，使用该软件的用户基本上为高校教师，相对计算机水平比较高和接受能力相对普通人也强。

我们大胆的增加了软件的灵活性。

如果您是第一次使用该系统请按建立试题库：第一步、将所在学院、专业输入通过学院设置和专业设置增加到数据库中第二步、将课程名称、课程代号和该课程所包含的章节及名称增加到数据库。

第三步、将学院、专业、课程三者关联起来。

第四步、添加试题自动组卷根据用户对试卷的要求自动从试题库中选择试题并输入到Word文档中并自动排版。

本系统有别于其他的组卷程序还增加了试题更换功能。

组卷之后老师可以根据实际情况对自动选择出来的试题做小范围的调整。

提高组卷的成功率。

并且，使试一、安装程序第一步：[双击]setup.exe第二步：如果机器上已经安装了.net框架和.net语言包则直接进入第九步。

第三步：[单击] <是>按钮第四步：选择 <同意> [单击] <安装>第五步：.net Framework 框架安装完成后，接下来安装.net语言包。

第六步：[单击] <是>按钮。

第七步：[单击] <接受> 按钮。

第八步：[单击]< 确定> 按钮。

]<下一步>按钮第十步：根据提示选择<只有我>或<第十一步：[单击]<下一步>按钮第十二步：[单击]<关闭>按钮。

]<确定>按钮。

哪个专业、哪门课程。

用WORD制作电子试卷

用WORD制作电子试卷现在的学校一般都有微机教室，但考试大多数还是在纸上进行，没有充分利用现代科学技术为教学和办公服务。

其实，在没有专业的考试系统的情况下，利用WORD的“窗体域”功能在局域网中也可以实现无纸化的考试，教师只需制作好电子试卷。

下面说明电子试卷的制作方法。

一、卷面设计根据需要设计好试卷版面，如试卷头、密封线、问题区、答题区、评分区等框架结构，并输入试题内容。

注意将问题区、答题区和评分区分离，以免相互影响。

二、电子试卷的制作1、选择题选择题的难点在于选项的对齐处理，不要用插入空格的方法，应使用表格对齐选项，如，某选择题的四个选项可以制成如下表格：利用WORD的“窗体域”实现“A、B、C、D”的自动选择。

在选择题后的括号内插入窗体域。

对于单项选择题，可以将答题区设置为“下拉型窗体域”；对于多项选择题，则可设置为“文字型窗体域”。

下面以单项选择题为例来说明制作方法。

①单击“视图”→“工具栏”，打开窗体工具栏；②将插入点移到判断题的括号内，然后在窗体工具栏中单击“下拉窗体域”按钮，接着单击“窗体域选项”按钮；③单击“下拉项”框，在其中输入选择题的题号A，然后单击“添加”，用同样的方法依次添加B、C、D。

2、制作判断题利用“窗体域”实现“√”或“×”自动选择。

①单击“视图”→“工具栏”，打开窗体工具栏；②将插入点移到判断题的括号内，然后在窗体工具栏中单击“下拉窗体域”按钮，接着单击“窗体域选项”按钮；③单击“下拉项”框，右击所用中文输入法状态条的软键盘，选择“数学符号”项，选择“√”，则“√”出现在“下拉型窗体域选项”窗口的“下拉项”框中，单击“添加”按钮即可。

用同样的方法把“×”添加到下拉项中。

④关闭软键盘。

提示：创建一个窗体域后，如果其他位置需要相同的窗体域，可以将他复制过去，不必重新创建。

例如，选择题中有15个小题，为第一个题创建好窗体域后，其余的复制过去即可。

3、简答题答：设置问答题的答题区比较简单，留出足够的空间即可。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

如何利用现成的WORD题库
随机挑选题目组卷
第一部分关于选择题的处理
例如下面十道选择题，如何让每题四个选项乱序，十道题也乱序呢？
1.墨分五彩指焦、浓、重、淡、（）。

A.清
B.浊
C.浅
D.灰
2.笔墨纸砚是〔〕不可缺少的工具。

A.中国画
B.油画
C.水彩画
D.水粉画
3.中国画按技法可分为工笔画和〔〕。

A.静物画
B.风景画
C.人物画
D.写意画
4.中国画分为人物、山水、( )三科，这不是简单的题材分工，而是体现一种传统的人文思维。

A.花鸟
B.鱼虫
C.动物
D.静物
5.赵佶的书法被称为( )，他的代表作是《芙蓉锦鸡图》。

A.赵体
B.瘦金体
C.宋体
D.欧体
6.黄筌的代表作品是( )
A.写生珍禽图
B.泼墨仙人图
C.芙蓉锦鸡图
D.双喜图
7.被称为“黄家富贵”的画家是( )。

A.黄胄
B.黄筌
C.徐熙
D.黄庭坚
8.被称为“徐熙野逸”的画家是( )
A.徐熙
B.黄筌
C.文同
D.朱耷
9.中国花鸟画《双喜图》是〔〕的代表作品。

A.赵佶
B.崔白
C.文同
D.朱耷
10.《墨竹图》的作者是( )代的( )。

A.宋崔白
B.清朱耷
C.宋文同
D.当代齐白石
一、将每一道选择题整理成题干一段，四个选项分别为四段的形式，如下：
1.墨分五彩指焦、浓、重、淡、（）。

A.清
B.浊
C.浅
D.灰
2.笔墨纸砚是〔〕不可缺少的工具。

A.中国画
B.油画
C.水彩画
D.水粉画
3.中国画按技法可分为工笔画和〔〕。

A.静物画
B.风景画
C.人物画
D.写意画
4.中国画分为人物、山水、( )三科，这不是简单的题材分工，而是体现一种传统的人文思维。

A.花鸟
B.鱼虫
C.动物
D.静物
5.赵佶的书法被称为( )，他的代表作是《芙蓉锦鸡图》。

A.赵体
B.瘦金体
C.宋体
D.欧体
6.黄筌的代表作品是( )
A.写生珍禽图
B.泼墨仙人图
C.芙蓉锦鸡图
D.双喜图
7.被称为“黄家富贵”的画家是( )。

A.黄胄
B.黄筌
C.徐熙
D.黄庭坚
8.被称为“徐熙野逸”的画家是( )
A.徐熙
B.黄筌
C.文同
D.朱耷
9.中国花鸟画《双喜图》是〔〕的代表作品。

A.赵佶
B.崔白
C.文同
D.朱耷
10.《墨竹图》的作者是( )代的( )。

A.宋崔白
B.清朱耷
C.宋文同
D.当代齐白石
整理过程中可充分利用WORD的替换功能，查找 B 替换为 ^pB，查找 C 替换为 ^pC，查找 D 替换为 ^pD，即可将四个选项分为四段。

如果题干中有ABCD等大写字母或如英语试卷中出现ABCD大写字母的，可将四个大写字母处理为“&A“等形式后再用查找替换功能处理。

二、选中所有选择题，单击插入表格文本转换成表格列数为5，转换如下
三、EXCEL新建一电子簿，复制第二步中表格内所有内容，粘贴到电子簿的sheet1中
四、在这个电子表格中按ALT + F11 组合键调出VBA窗口，插入模块，在模块1代码窗中粘贴如下代码
Sub test()
Dim r%, i%
Dim arr, brr
Randomize
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range("b1:g" & r)
For i = 1 To UBound(arr)
For k = 5 To 2 Step -1
If Len(arr(i, k)) <> 0 Then
Exit For
End If
Next
For j = 1 To k - 1
n = j + Int(Rnd() * (k - j)) + 1
temp = arr(i, j)
arr(i, j) = arr(i, n)
arr(i, n) = temp
Next
dn = ""
For j = 1 To k
xm = Left(arr(i, j), 1)
If InStr(arr(i, 6), xm) <> 0 Then
dn = dn & Chr(j + 64)
End If
arr(i, j) = Chr(j + 64) & Mid(arr(i, j), 2)
Next
arr(i, 6) = dn
Next
.Range("j1").Resize(UBound(arr), UBound(arr, 2)) = arr
End With
End Sub
五、单击运行，运行代码后，关闭VBA窗口，回到电子表格界面，复制sheet1为sheet2，在P1单元格输入公式=100*RAND()，向下填充P列到适当行为止，全选，单击排序按P 列升序或降序排列都可以，选中BCDE四列隐藏，选中A JKLM五列内容，复制,打开WORD 右击选粘贴（粘贴时选择只保留文本）到WORD中，如下
10.《墨竹图》的作者是( )代的( )。

A.宋文同 B.当代齐白石
C.清朱耷
D.宋崔白
9.中国花鸟画《双喜图》是〔〕的代表作品。

A.崔白 B.朱耷 C.赵佶 D.文同
8.被称为“徐熙野逸”的画家是( ) A.朱耷 B.徐熙 C.黄筌 D.文同2.笔墨纸砚是〔〕不可缺少的工具。

A.油画 B.水彩画 C.水粉画 D.中国画
5.赵佶的书法被称为( )，他的代表作是《芙蓉锦鸡图》。

A.瘦金体
B.欧体
C.赵体
D.宋体
4.中国画分为人物、山水、( )三科，这不是简单的题材分工，而是体现一种传统的人文思维。

A.静物 B.花鸟 C.鱼虫 D.动物
7.被称为“黄家富贵”的画家是( )。

A.黄筌 B.徐熙 C.黄庭坚 D.黄胄
6.黄筌的代表作品是( ) A.双喜图B.写生珍禽图 C.泼墨仙人图
D.芙蓉锦鸡图
1.墨分五彩指焦、浓、重、淡、（）。

A.灰B.浅 C.清 D.浊
3.中国画按技法可分为工笔画和〔〕。

A.写意画B.人物画 C.静物画 D.风景画
六、利用WORD的替换功能，查找 A 替换为 ^pA，将题干与四个选项分成两段，如下
10.《墨竹图》的作者是( )代的( )。

A.宋文同
B.当代齐白石
C.清朱耷
D.宋崔白
9.中国花鸟画《双喜图》是〔〕的代表作品。

A.崔白
B.朱耷
C.赵佶
D.文同
8.被称为“徐熙野逸”的画家是( )
A.朱耷
B.徐熙
C.黄筌
D.文同
2.笔墨纸砚是〔〕不可缺少的工具。

A.油画
B.水彩画
C.水粉画
D.中国画
5.赵佶的书法被称为( )，他的代表作是《芙蓉锦鸡图》。

A.瘦金体
B.欧体
C.赵体
D.宋体
4.中国画分为人物、山水、( )三科，这不是简单的题材分工，而是体现一种传统的人文思维。

A.静物
B.花鸟
C.鱼虫
D.动物
7.被称为“黄家富贵”的画家是( )。

A.黄筌
B.徐熙
C.黄庭坚
D.黄胄
6.黄筌的代表作品是( )
A.双喜图
B.写生珍禽图
C.泼墨仙人图
D.芙蓉锦鸡图
1.墨分五彩指焦、浓、重、淡、（）。

A.灰
B.浅
C.清
D.浊
3.中国画按技法可分为工笔画和〔〕。

A.写意画
B.人物画
C.静物画
D.风景画
七、将题号重新整理即可。

第二部分关于填空题或判断题的处理
一、将每一道填空题或判断题整理成每题一段
二、全选，复制到电子表格中，在B1单元格输入公式=100*RAND()，向下填充B列到适当行为止，全选整个电子表格，单击排序按BP列升序或降序排列都可以，选中A列内容，复制粘贴（粘贴时选择只保留文本）到一新的空白WORD中。

三、将题号重新整理即可。

从上面第一部分与第二部分随便选连续的若干题即可组出一份试卷。

该方法对不含图形的题库处理很方便。