Word中建设题库与生成试卷方式的研究本项研究于2005年初调试完毕，一直使用到现在，达到了预期的目标，实现了题库建设的群众化，试卷编制的集中化，由教务处集中利用题库生成试卷，在两周的时间内，一个人操作，就完成了近百门课程的出题任务，大大提高了编制试卷的效率、标准和保密性。
现将该成果的主要技术项目介绍如下。
操作窗体：生成的试卷：（一）建设题库1.建设试题库的基本步骤①文件存放。
教务处按照系、教研室（有的系可省略）、年级+专业、课程+班级+任课教师的文件夹顺序进行分类存放试题。
②试题分类和文件名称。
同一种类型题必须放在同一个Word文件中（有几种类型题就需要几个WORD文件，文件名：课程名的拼音简称+顺序号，如fjgy1、fjgy2、fjgy3等。
2.试题库中试题和答案的基本格式要求①出题说明。
每个类型试题Word文件的第一段为该类型题的出题说明（该类型题的总分、单位分值和答题时的要求）。
②试题编号。
从第二段开始为试题和答案，每个试题要有编号，如果试题分值不等，应在编号后再加上分值(填空题，则是题中空的数量)。
编号不能用自动编号，必须靠左边，前面不得加空格，不得缩进，不能出现差错。
③题内编号。
题内有自己的内容编号时，编号必须用括号括起来，不得与试题编号相混。
选择题的供选答案编号用字母：A. B. C. D.，或⑴⑵⑶⑷或①②③④。
④答案。
在每道试题的后面是该试题的答案，在答案的前面必须使用标记符号（“/”）供程序识别。
如果不想填答案的时候，也必须加上“/”，防止与下一题相混。
⑤字号、行距和空行。
所有试题均为5号字，填空题行间距为1.5，其它行间距均为1，解释名词、简答题等要在试题后插入答题所需的空行。
⑥间隔符。
在试题编号、分值、答案标记符号、试题正文和答案正文之间要有空格间隔。
⑦表格。
必须在文本框中使用表格或使用Excel表格（可直接在Word中插入Excel表格）。
文本框版式：必须为嵌入式。
⑧图形。
如果所需图形是由多个元素组成，则必须将各元素组合成一个对象（此项工作可以在Word中完成，也可以在其它图形编辑软件中完成）。
图形版式：必须为嵌入式。
⑨数学公式。
需使用公式编辑器。
⑩试题内容和题量。
题库中不能有重复内容的题。
软件采用机械分段（保证知识的覆盖面）和段内随机抽题的方式选取试题，只能保证同一编号的题不会在同一个试卷中出现，但不能判断不同题之间内容是否相同。
题量要够数，每个类型题中的小题数量也要够数，如出三套题的量，则每个题型都要有三套题的量，可略多，但绝不能少。
3.不同类型试题举例：一、单项选择（每题2分，共10题，合计20分）（第一段为题的说明部分）1 执行价值单方向转移的货币职能是（）。
A.价值尺度B. 流通手段C. 支付手段D. 贮藏手段/ Ｃ2 已知轴线正交的圆柱和圆锥具有公切球，正确的投影是（）。
/ C3 将物体删除用下列哪个命令。
（）A B C D/ A二、判断题：（每小题1分，共10小题，合计10分）1 与均能使物体放大，二者在本质上没有区别。
（）/ ×三、填空题（每空1分，共20个空，合计20分）（要设置成1.5倍的行距）1 5 货币的职能包括：、、、和。
/ 价值尺度，流通手段，贮藏手段，支付手段，世界货币。
2 3 表示：( ) 表示：( ) 表示：( )/ 消隐着色平面着色光滑着色3 1=+++-∞→nnnnnn223514lim.（用公式编辑器编写的公式）/ ∞四、简答题（包括名词解释、简答、计算、填图等类型题）1 试作一直线HG平行与直线AB，且与直线CD、EF相交。
（图形的版式，需设置成嵌入格式）利用/ 答：首先点击编辑工具栏中偏移复制命令，在命令栏中输入要偏移的距离，一般以毫米为单位，击回车键或空格键，选择物体，然后选择要往哪边偏移，就在原来物体的上或下（左或右）点击一下。
即可完成偏移复制。
3 用Excel设计的表/4 在文本框中设计的表/5 简述控制和调节发酵pH的方法。
（答案或题中的编号用括号括起来了）/ （1）根据菌种特性和培养基性质，选择适当的培养基成分和配比，有些成分可在中间补料时补充调控。
（2）加入适当的缓冲剂，以控制培养基的pH的变化。
以碳酸钙使用最普遍，主要是中和各种酸类产物，防止pH急剧下降。
（3）在发酵过程中出现pH过高或过低的情况时，可以直接加入酸或碱类物质加以调节，使之迅速恢复正常，也可用多加糖、油等来降低pH，或加入氨水、尿素等提高pH。
（二）生成试卷1.建立试卷模板和答案模板，统一试卷格式。
按照学校统一的试卷格式要求，在Word中建立试卷模板，并以“试卷”为名保存该文件，采用同样的方式，建立答案模板，并以“答案”为名保存该文件。
2.启动试卷生成系统。
①打开试题模板、答案模板和生成该试卷所涉及的各类型题的Word文件（试题库文件）。
②选择工具->宏菜单，打开宏对话框，选择“试卷生成系统”，然后单击运行按钮，即可启动试卷生成系统（要将宏的安全性降为“允许运行宏”）。
（见操作窗体图）3.随机抽取试题，生成考试用的试卷和答案的Word文件。
在抽题时，程序先根据已知该题型的总分和单位分值计算出抽取的试题数，再由程序根据统计出的试题量，计算出平均N道题抽取一道试题，然后，从前到后每N道题为一段，从每一段中随机抽取一道试题。
这样设计，即考虑到了抽题的随机性，也考虑到了所抽试题在各章节分布上的均恒性，因此，在教师编写试题时，要按章节的先后顺序依次排列试题，重点章节的题量要大一些，抽取试题的比例就大一些。
具体操作步骤：①根据窗体的要求和该类型题库文件第一段文字的出题说明，填上题库文件名、该类型题在试卷中的编号、该类型题的总分和该类型题的单位分值，再选择随机出题方式和题型，如果没有所需要的题型，可选择其它，运行程序时，直接将该类型题库文件第一段文字的出题说明复制粘贴到所生成的试卷上。
②各选项选择完之后,单击开始出题按钮，即可完成一种类型题的出题工作，所抽取的试题将按顺序自动编号并粘贴到试卷模板上，同时对应的答案也将按顺序自动编号并粘贴到答案模板上。
③重复以上操作,即可生成试卷（见前面生成的试卷图）和答案的完整Word 文件。
4.按照一定规律抽取试题，生成练习用的试卷和答案的Word文件。
如需要将试题库中的试题组合成练习用的试卷，则可选此项操作，把所有试题分别组合成几套不同的试卷，供学生练习时使用。
5.试卷内容和格式的调整及打印。
生成Word试卷后，可根据需要方便的更换不合适的试题或附加必要的说明，并可进行必要的格式调整，然后保存文件和打印输出。
（三）安装与调用。
只要将UserForm1和NewMacros1.bas两个文件导入到Word的Microsoft Visual Basic-Normal的工程中（Word2003以上版本中均可使用），就可以宏的方式调用该程序，完成试卷及答案的自动生成工作。
NewMacros1.bas(代码)Sub 试卷生成系统()UserForm1.Show (0)End SubUserForm1.frm(代码)Public wjm As StringPublic ts As IntegerPublic bt As StringPrivate Sub CommandButton1_Click()wjm = TextBox1.Textname1 = wjm + ".doc"Documents(name1).Activatebt = ActiveDocument.Paragraphs(1).Range Selection.HomeKey Unit:=wdStorySelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormatting With Selection.Find.Text = " ".Replacement.Text = " "End WithSelection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormatting With Selection.Find.Text = "／".Replacement.Text = "/"End WithSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = " ".Replacement.Text = " "End WithSelection.Find.Execute Replace:=wdReplaceAllSelection.HomeKey Unit:=wdStoryDocuments(name1).Savets = Val(TextBox2.Text) / Val(TextBox3.Text)wjm = TextBox1.TextIf OptionButton3.Value = True Thenbt = TextBox4.Text & "、" & OptionButton3.Caption & "(每小题" & TextBox3.Text & "分，" & "共" & TextBox2.Text & "分）"End IfIf OptionButton4.Value = True Thenbt = TextBox4.Text & "、" & OptionButton4.Caption & "(每小题" & TextBox3.Text & "分，" & "共" & TextBox2.Text & "分，对的打“√”，错的打“×”）"End IfIf OptionButton5.Value = True Thenbt = TextBox4.Text & "、" & OptionButton5.Caption & "(每小题" & TextBox3.Text & "分，" & "共" & TextBox2.Text & "分）"End IfIf OptionButton6.Value = True Thenbt = TextBox4.Text & "、" & OptionButton6.Caption & "(每空" & TextBox3.Text & "分，" & "共" & TextBox2.Text & "分）"End IfIf OptionButton7.Value = True Thenbt = TextBox4.Text & "、" & OptionButton7.Caption & "(每小题" & TextBox3.Text & "分，" & "共" & TextBox2.Text & "分）"End IfIf OptionButton8.Value = True Thenbt = TextBox4.Text & "、" & OptionButton8.Caption & "(每小题" & TextBox3.Text & "分，" & "共" & TextBox2.Text & "分）"End IfIf OptionButton9.Value = True Thenbt = TextBox4.Text & "、" & OptionButton9.Caption & "(每小题" & TextBox3.Text & "分，" & "共" & TextBox2.Text & "分）"End If'If OptionButton10.Value = True Then'bt = TextBox4.Text & "、" & OptionButton10.Caption & "(每小题" & TextBox3.Text & "分，" & "共" & TextBox2.Text & "分）"'End IfIf OptionButton11.Value = True Thenbt = TextBox4.Text & "、" & OptionButton11.Caption & "(每小题" & TextBox3.Text & "分，" & "共" & TextBox2.Text & "分）"End IfIf OptionButton12.Value = True Thenbt = TextBox4.Text & "、" & OptionButton12.Caption & "(每小题" & TextBox3.Text & "分，" & "共" & TextBox2.Text & "分）"End IfIf OptionButton13.Value = True Thenbt = TextBox4.Text & "、" & OptionButton13.Caption & "(每小题" & TextBox3.Text & "分，" & "共" & TextBox2.Text & "分）"End If'If OptionButton14.Value = True Then'bt = TextBox4.Text & "、" & OptionButton12.Caption & "(每小题" & TextBox3.Text & "分，" & "共" & TextBox2.Text & "分）"'End IfIf OptionButton15.Value = True Thenbt = TextBox4.Text & "、" & OptionButton15.Caption & "(每小题" & TextBox3.Text & "分，" & "共" & TextBox2.Text & "分）"End If'If OptionButton16.Value = True Then'bt = TextBox4.Text & "、" & OptionButton16.Caption & "(每小题" & TextBox3.Text & "分，" & "共" & TextBox2.Text & "分）"'End IfIf OptionButton12.Value = True Thenbt = TextBox4.Text & "、" & OptionButton12.Caption & "(每小题" & TextBox3.Text & "分，" & "共" & TextBox2.Text & "分）"End IfIf OptionButton1.Value = True ThenIf OptionButton3.Value = True Or OptionButton4.Value = True Or OptionButton15 Or OptionButton16 Thend2ElseIf OptionButton5.Value = True Or OptionButton11.Value Or OptionButton13 Or OptionButton14 = True Thend11Elsed1End IfEnd IfElseIf OptionButton3.Value = True Or OptionButton4.Value = True Or OptionButton15 Or OptionButton16 Thend6ElseIf OptionButton5.Value = True Or OptionButton11.Value = True Or OptionButton13 Or OptionButton14 = True Thend12Elsed5End IfEnd IfEnd IfEnd SubPrivate Sub CommandButton2_Click()Selection.InsertBreak Type:=wdSectionBreakNextPageIf ActiveWindow.View.SplitSpecial <> wdPaneNone ThenActiveWindow.Panes(2).CloseEnd IfIf ActiveWindow.ActivePane.View.Type <> wdPrintView ThenActiveWindow.ActivePane.View.Type = wdPrintViewEnd IfWith Selection.PageSetup.TextColumns.SetCount NumColumns:=1.EvenlySpaced = False.LineBetween = FalseEnd WithSelection.PageSetup.TextColumns.Add Width:=CentimetersToPoints(15.56), _Spacing:=CentimetersToPoints(0.37), EvenlySpaced:=FalseSelection.PageSetup.TextColumns.Add Width:=CentimetersToPoints(15.63), _Spacing:=CentimetersToPoints(0.74), EvenlySpaced:=FalseSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphEnd SubPrivate Sub CommandButton3_Click()Selection.InsertBreak Type:=wdSectionBreakNextPageIf ActiveWindow.View.SplitSpecial <> wdPaneNone ThenActiveWindow.Panes(2).CloseEnd IfIf ActiveWindow.ActivePane.View.Type <> wdPrintView ThenActiveWindow.ActivePane.View.Type = wdPrintViewEnd IfWith Selection.PageSetup.TextColumns.SetCount NumColumns:=1.EvenlySpaced = False.LineBetween = FalseEnd WithSelection.PageSetup.TextColumns.Add Width:=CentimetersToPoints(15.56), _ Spacing:=CentimetersToPoints(0.74), EvenlySpaced:=FalseSelection.PageSetup.TextColumns.Add Width:=CentimetersToPoints(3.78), _ Spacing:=CentimetersToPoints(0.37), EvenlySpaced:=FalseEnd SubPrivate Sub OptionButton1_Click()TextBox5.Visible = FalseLabel10.Visible = FalseEnd SubPrivate Sub OptionButton2_Click()If OptionButton2.Value = True ThenTextBox5.Visible = TrueLabel10.Visible = TrueEnd IfEnd SubPrivate Sub OptionButton3_Click()End SubPrivate Sub OptionButton5_Click()End SubPrivate Sub TextBox1_Change()Label11.Visible = FalseIf TextBox1.Text <> "" Then CommandButton1.Enabled = True Else CommandButton1.Enabled = FalseEnd SubSub d6()RandomizeDim a(100) As IntegerDim l As IntegerDim ll As IntegerDim y1 As IntegerDim xxx As Stringname1 = wjm + ".doc"name2 = "试题" + ".doc"name3 = "答案" + ".doc"l = 0Dim sum As Integersum = 0x1 = 0y1 = 0Documents(name1).Activatell = ActiveDocument.Paragraphs.Count ActiveDocument.Paragraphs(1).Range.Select n = tsnn = nFor i = ll To 2 Step -1 ActiveDocument.Paragraphs(i).Range.Select Set x1 = Selection.Words(1)For j = 1 To iIf Val(x1) = j Theny1 = jGoTo y2:End IfNextNexty2: v1 = Val(TextBox5.Text)v2 = Int(y1 / ts)If v1 > v2 ThenMsgBox ("起始题号超限")Exit SubEnd Ifa(1) = v1For i = 2 To nn'If v1 > y1 Then'v1 = a(i) + v2 - nn'For j = 1 To i'If a(j) = v1 Then v1 = v1 + 1: Exit For 'Next'End Ifa(i) = v1 + v2v1 = v1 + v2Next iDocuments(name2).ActivateSelection.EndKey Unit:=wdStorySelection.TypeParagraphd3Documents(name2).ActivateSet range2 = ActiveDocument.Contentrange2.Collapse direction:=wdCollapseEndrange2.Text = bt & Chr(13) & Chr(13)Documents(name3).ActivateSet range3 = ActiveDocument.Contentrange3.Collapse direction:=wdCollapseEndrange3.Text = bt & Chr(13)Selection.EndKey Unit:=wdStoryDocuments(name1).Activatej = 1i = 2Do While i < llActiveDocument.Paragraphs(i).Range.SelectSet aa = Selection.Words(1)If Val(aa) >= a(j) Thenss = 1f2: Selection.CopyDocuments(name2).ActivateSet range2 = ActiveDocument.Contentrange2.Collapse direction:=wdCollapseEndrange2.PasteIf ss = 1 ThenActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count - 1).Range.Words(1) = j & "." ss = 0End Ifi = i + 1If i > ll Then Exit DoDocuments(name1).ActivateActiveDocument.Paragraphs(i).Range.SelectSet cc = Selection.Words.FirstIf Left(Selection.Words.First, 1) <> "/" And cc <> a(j) + 1 ThenGoTo f2:Elsexxx = xxx & Str(j) & "." & Selection.Words(2).TextIf Right(xxx, 1) = Chr(13) Thenxxx = Left(xxx, Len(xxx) - 1)End Iff6: Documents(name1).Activatei = i + 1If i > ll Then Exit DoActiveDocument.Paragraphs(i).Range.Select Set cc = Selection.Words.FirstFor xz = -1 To 5If Val(cc) = a(j) + xz Then GoTo xzz: NextSelection.CopyDocuments(name3).ActivateSet range3 = ActiveDocument.Contentrange3.Collapse direction:=wdCollapseEnd range3.PasteGoTo f6:End Ifxzz: j = j + 1If j > nn ThenExit DoEnd IfElsei = i + 1End If'If j <= nn And i >= ll Then i = 2LoopDocuments(name3).ActivateSet range3 = ActiveDocument.Contentrange3.Collapse direction:=wdCollapseEnd range3.Text = xxx & Chr(13)Selection.HomeKey Unit:=wdStory Documents(name1).SaveEnd SubSub d5()Randomize'Dim a(100) As IntegerDim l As IntegerDim ll As IntegerDim y1 As IntegerDim sum As Integername1 = wjm + ".doc"name2 = "试题" + ".doc"name3 = "答案" + ".doc"l = 0sum = 0x1 = 0y1 = 0sumn = 0Documents(name1).Activatell = ActiveDocument.Paragraphs.Count ActiveDocument.Paragraphs(1).Range.Select n = Val(TextBox2.Text)nm = Val(TextBox3.Text)nn = nFor i = ll To 2 Step -1 ActiveDocument.Paragraphs(i).Range.Select Set x1 = Selection.Words(1)For j = 1 To iIf Val(x1) = j Theny1 = jx5 = iGoTo y2:End IfNextNexty2: For i = 2 To x5ActiveDocument.Paragraphs(i).Range.Select Set bb = Selection.Words(2)sumn = sumn + Val(bb) * nmNextv1 = Val(TextBox5.Text)v2 = Int(sumn / n)If v1 > v2 ThenMsgBox (起始题号超限)Exit SubEnd Ifa(1) = v1l = 1For i = 2 To y1'If v1 > y1 Then'v1 = 1'If a(1) = v1 Then v1 = v1 + 1'End Ifa(i) = v1 + v2l = l + 1v1 = v1 + v2'If nn > i Then v2 = Int((y1 - v1) / (nn - i))If v1 > y1 Then Exit ForNextDocuments(name2).ActivateSelection.EndKey Unit:=wdStorySelection.TypeParagraphd3Documents(name2).ActivateSet range2 = ActiveDocument.Contentrange2.Collapse direction:=wdCollapseEndrange2.Text = bt & Chr(13) & Chr(13)Documents(name3).ActivateSet range3 = ActiveDocument.Contentrange3.Collapse direction:=wdCollapseEndrange3.Text = bt & Chr(13)Selection.EndKey Unit:=wdStoryDocuments(name1).Activatej = 1i = 2Do While i < llActiveDocument.Paragraphs(i).Range.SelectSet aa = Selection.Words(1)If Val(aa) >= a(j) Thenss = 1Set bb = Selection.Words(2)sum = sum + Val(bb) * nmf2: Selection.CopyDocuments(name2).ActivateSet range2 = ActiveDocument.Contentrange2.Collapse direction:=wdCollapseEndrange2.PasteIf ss = 1 ThenActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count - 1).Range.Words(2) = "." ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count - 1).Range.Words(1) = j ss = 0End Ifi = i + 1If i > ll Then Exit DoDocuments(name1).ActivateActiveDocument.Paragraphs(i).Range.SelectSet cc = Selection.Words.FirstIf Left(Selection.Words.First, 1) <> "/" And cc <> a(j) + 1 ThenGoTo f2:ElseSelection.CopyDocuments(name3).ActivateSet range3 = ActiveDocument.Contentrange3.Collapse direction:=wdCollapseEndrange3.PasteActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count - 1).Range.Words(1) = j & "." f6: Documents(name1).Activatei = i + 1If i > ll Then Exit DoActiveDocument.Paragraphs(i).Range.SelectSet cc = Selection.Words.FirstFor xz = -1 To 5If Val(cc) = a(j) + xz Then GoTo xzz:NextSelection.CopyDocuments(name3).ActivateSet range3 = ActiveDocument.Contentrange3.Collapse direction:=wdCollapseEndrange3.PasteGoTo f6:End Ifxzz: j = j + 1If j > l ThenExit DoEnd IfElsei = i + 1End IfLoopksz = nn / (sum / nm)Label11.Visible = TrueLabel11.Caption = "填空题每个空的分值: " + Str(ksz)Selection.HomeKey Unit:=wdStoryDocuments(name1).SaveEnd SubSub d1()Randomize'Dim a(100) As IntegerDim l As IntegerDim ll As IntegerDim y1 As IntegerDim sum As Integername1 = wjm + ".doc"name2 = "试题" + ".doc"name3 = "答案" + ".doc"l = 0sum = 0x1 = 0y1 = 0sumn = 0Documents(name1).Activatell = ActiveDocument.Paragraphs.Count ActiveDocument.Paragraphs(1).Range.Select n = Val(TextBox2.Text)nm = Val(TextBox3.Text)nn = nFor i = ll To 2 Step -1 ActiveDocument.Paragraphs(i).Range.Select Set x1 = Selection.Words(1)For j = 1 To iIf Val(x1) = j Theny1 = jGoTo sss:End IfNextNextsss: For i = 2 To llActiveDocument.Paragraphs(i).Range.Select Set x1 = Selection.Words(1)Set bb = Selection.Words(2)sumn = sumn + Val(bb) * nmIf x1 = y1 Then Exit ForNextDocuments(name2).ActivateSelection.EndKey Unit:=wdStorySelection.TypeParagraphd3Documents(name2).ActivateSet range2 = ActiveDocument.Contentrange2.Collapse direction:=wdCollapseEnd range2.Text = bt & Chr(13) & Chr(13)Documents(name3).ActivateSet range3 = ActiveDocument.Contentrange3.Collapse direction:=wdCollapseEnd range3.Text = bt & Chr(13)Selection.EndKey Unit:=wdStoryDocuments(name1).Activate'For i = ll To 2 Step -1'ActiveDocument.Paragraphs(i).Range.Select 'Set x1 = Selection.Words(1)'For j = 1 To i'If Val(x1) = j Then'y1 = jv2 = Int(sumn / nn)v1 = 1'GoTo y2:'End If'Next'Nexty2: For i = 1 To y1a(i) = Int(Rnd * v2) + v1v1 = v1 + v2k = 2Do While k < llActiveDocument.Paragraphs(k).Range.Select Set aa = Selection.Words(1)If Val(aa) = a(i) ThenSet bb = Selection.Words(2)sum = sum + Val(bb) * nml = l + 1GoTo f3:End Ifk = k + 1Loopf3: If sum >= nn Then GoTo f5:If v1 >= y1 Then GoTo ff:Next iff: v2 = y1v1 = 1For zz = i To y1f1: a(zz) = Int(Rnd * v2) + v1For j = 1 To zz - 1If a(j) = a(zz) Then GoTo f1:Next jk = 2Do While k < llActiveDocument.Paragraphs(k).Range.SelectSet aa = Selection.Words(1)If Val(aa) = a(zz) ThenSet bb = Selection.Words(2)sum = sum + Val(bb) * nml = l + 1GoTo fff:End Ifk = k + 1Loopfff: If sum >= nn Then GoTo f5:Nextf5: For i = 1 To l - 1For j = i + 1 To lIf a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t Next jNext ij = 1i = 2Do While i < llActiveDocument.Paragraphs(i).Range.SelectSet aa = Selection.Words(1)If Val(aa) >= a(j) Thenss = 1f2: Selection.CopyDocuments(name2).ActivateSet range2 = ActiveDocument.Contentrange2.Collapse direction:=wdCollapseEndrange2.PasteIf ss = 1 ThenActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count - 1).Range.Words(2) = "." ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count - 1).Range.Words(1) = jss = 0End Ifi = i + 1If i > ll Then Exit DoDocuments(name1).ActivateActiveDocument.Paragraphs(i).Range.SelectSet cc = Selection.Words.FirstIf Left(Selection.Words.First, 1) <> "/" And cc <> a(j) + 1 ThenGoTo f2:ElseSelection.CopyDocuments(name3).ActivateSet range3 = ActiveDocument.Contentrange3.Collapse direction:=wdCollapseEndrange3.PasteActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count - 1).Range.Words(1) = j & "." f6: Documents(name1).Activatei = i + 1If i > ll Then Exit DoActiveDocument.Paragraphs(i).Range.SelectSet cc = Selection.Words.FirstFor xz = -1 To 5If Val(cc) = a(j) + xz Then GoTo xzz:NextSelection.CopyDocuments(name3).ActivateSet range3 = ActiveDocument.Contentrange3.Collapse direction:=wdCollapseEndrange3.PasteGoTo f6:End Ifxzz: j = j + 1If j > l ThenExit DoEnd IfElsei = i + 1End IfLoopIf sum > nn Thenksz = (sum - nn) / nmLabel11.Visible = TrueLabel11.Caption = "填空题的空数超过: " + Str(ksz)End IfSelection.HomeKey Unit:=wdStoryDocuments(name1).SaveEnd SubSub d3()'Selection.EndKey Unit:=wdStoryActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _ 2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _wdAutoFitContentSelection.TypeText Text:="得分"Selection.MoveRight Unit:=wdCharacter, Count:=1Selection.TypeText Text:=" "'Selection.TypeText Text:="批卷人"Selection.Tables(1).Rows.WrapAroundText = TrueSelection.MoveRight Unit:=wdCharacter, Count:=5Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=35, RulerStyle:= _wdAdjustNoneSelection.Tables(1).Columns(1).SetWidth ColumnWidth:=35, RulerStyle:= _wdAdjustNone' Selection.TypeParagraphEnd SubSub d2()RandomizeDim a(100) As IntegerDim l As IntegerDim ll As IntegerDim y1 As IntegerDim xxx As Stringname1 = wjm + ".doc"name2 = "试题" + ".doc"name3 = "答案" + ".doc"l = 0Dim sum As Integersum = 0x1 = 0y1 = 0Documents(name2).ActivateSelection.EndKey Unit:=wdStorySelection.TypeParagraphd3Documents(name1).Activatell = ActiveDocument.Paragraphs.Count ActiveDocument.Paragraphs(1).Range.Select n = tsnn = nDocuments(name2).ActivateSet range2 = ActiveDocument.Contentrange2.Collapse direction:=wdCollapseEnd range2.Text = bt & Chr(13) & Chr(13)Documents(name3).ActivateSet range3 = ActiveDocument.Contentrange3.Collapse direction:=wdCollapseEnd range3.Text = bt & Chr(13)Selection.EndKey Unit:=wdStory Documents(name1).ActivateFor i = ll To 2 Step -1 ActiveDocument.Paragraphs(i).Range.Select Set x1 = Selection.Words(1)For j = 1 To iIf Val(x1) = j Theny1 = jv2 = Int(y1 / ts)v1 = 1GoTo y2:End IfNextNexty2: For i = 1 To nnf1: a(i) = Int(Rnd * v2) + v1'For j = 1 To i - 1'If a(j) = a(i) Then GoTo f1:'Next jv1 = v1 + v2Next if5: For i = 1 To nn - 1For j = i + 1 To nnIf a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = tNext jNext ij = 1i = 2Do While i < llActiveDocument.Paragraphs(i).Range.SelectSet aa = Selection.Words(1)If Val(aa) >= a(j) Thenss = 1f2: Selection.CopyDocuments(name2).ActivateSet range2 = ActiveDocument.Contentrange2.Collapse direction:=wdCollapseEndrange2.PasteIf ss = 1 ThenActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count - 1).Range.Words(1) = j & "." ss = 0End Ifi = i + 1If i > ll Then Exit DoDocuments(name1).ActivateActiveDocument.Paragraphs(i).Range.SelectSet cc = Selection.Words.FirstIf Left(Selection.Words.First, 1) <> "/" And cc <> a(j) + 1 ThenGoTo f2:Elsexxx = xxx & Str(j) & "." & Selection.Words(2).TextIf Right(xxx, 1) = Chr(13) Thenxxx = Left(xxx, Len(xxx) - 1)End Iff6: Documents(name1).Activatei = i + 1If i > ll Then Exit DoActiveDocument.Paragraphs(i).Range.Select Set cc = Selection.Words.FirstFor xz = -1 To 5If Val(cc) = a(j) + xz Then GoTo xzz: NextSelection.CopyDocuments(name3).ActivateSet range3 = ActiveDocument.Contentrange3.Collapse direction:=wdCollapseEnd range3.PasteGoTo f6:End Ifxzz: j = j + 1If j > nn ThenExit DoEnd IfElsei = i + 1End IfLoopDocuments(name3).ActivateSet range3 = ActiveDocument.Contentrange3.Collapse direction:=wdCollapseEnd range3.Text = xxx & Chr(13)Selection.HomeKey Unit:=wdStory Documents(name1).SaveEnd SubSub d11()RandomizeDim a(100) As IntegerDim l As IntegerDim ll As IntegerDim y1 As IntegerDim xxx As Stringname1 = wjm + ".doc"name2 = "试题" + ".doc"name3 = "答案" + ".doc"l = 0Dim sum As Integersum = 0x1 = 0y1 = 0Documents(name2).ActivateSelection.EndKey Unit:=wdStorySelection.TypeParagraphd3Documents(name1).Activatell = ActiveDocument.Paragraphs.Count ActiveDocument.Paragraphs(1).Range.Select n = tsnn = nDocuments(name2).ActivateSet range2 = ActiveDocument.Contentrange2.Collapse direction:=wdCollapseEnd range2.Text = bt & Chr(13) & Chr(13)Documents(name3).ActivateSet range3 = ActiveDocument.Contentrange3.Collapse direction:=wdCollapseEnd range3.Text = bt & Chr(13)Selection.EndKey Unit:=wdStory Documents(name1).ActivateFor i = ll To 2 Step -1 ActiveDocument.Paragraphs(i).Range.Select Set x1 = Selection.Words(1)For j = 1 To iIf Val(x1) = j Theny1 = jv2 = Int(y1 / ts)v1 = 1GoTo y2:End IfNextNexty2: For i = 1 To nnf1: a(i) = Int(Rnd * v2) + v1'For j = 1 To i - 1'If a(j) = a(i) Then GoTo f1:'Next jv1 = v1 + v2Next if5: For i = 1 To nn - 1For j = i + 1 To nnIf a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = tNext jNext ij = 1i = 2Do While i < llActiveDocument.Paragraphs(i).Range.SelectSet aa = Selection.Words(1)If Val(aa) >= a(j) Thenss = 1f2: Selection.CopyDocuments(name2).ActivateSet range2 = ActiveDocument.Contentrange2.Collapse direction:=wdCollapseEndrange2.PasteIf ss = 1 ThenActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count - 1).Range.Words(1) = j & "." ss = 0End Ifi = i + 1If i > ll Then Exit DoDocuments(name1).ActivateActiveDocument.Paragraphs(i).Range.SelectSet cc = Selection.Words.FirstIf Left(Selection.Words.First, 1) <> "/" And cc <> a(j) + 1 ThenGoTo f2:ElseSelection.CopyDocuments(name3).ActivateSet range3 = ActiveDocument.Contentrange3.Collapse direction:=wdCollapseEndrange3.PasteActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count - 1).Range.Words(1) = j & "."f6: Documents(name1).Activatei = i + 1If i > ll Then Exit DoActiveDocument.Paragraphs(i).Range.SelectSet cc = Selection.Words.FirstFor xz = -1 To 5。
![教育部关于建设高等教育自学考试全国统考课程题库的意见-教考试[2000]3号](https://img.taocdn.com/s1/m/39083718b42acfc789eb172ded630b1c59ee9bb9.png)