在word中从access数库随机抽取试题制作试卷的方法在word中从access数据库随机抽取试题制作试卷的方法.docx

在Word中从Access数据库随机抽取试题制作试卷的方法在Word中，从Access数据库的对应表中，随机抽取试题并制作成一定版面的试卷，我作了一些尝试，试卷要求：生成大题及对应的分值，题目随机抽取，单选、多选答案也要随机变化（其中含有“以上”字样开头的，必须是第三个或者第四个答案），并根据抽取的题目情况，生成对应的参考答案文件（文件是文本文件）。一、数据库其中blankQt、judgeQt、multiQt、singleQt结构如上，分别装的是填空题、判断题、多选题、单选题内容。数据可以自己根据需要填写。二、VBA窗体利用Word自身所带的VBA，制作窗体如下：三、VBA代码1.模块中代码Sub startMacro()optForm.ShowEnd SubSub readTable(ByValsBT As String, ByValsST As String, ByValiST As Integer, ByValiMT As Integer, ByValiJT As Integer, ByValiBT 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 Integer Dim subNo() As Integer, xHs() As Integer Dim tmpTm As String, tmpBx As String, tmpDa As String, tABCD As String, tmpZM As String, outDa As String, qtTitle As String, da1 As String Dim conn As ADODB.Connection Set conn = New ADODB.Connection Dim cnSr As StringcnSr = driver={microsoft access driver (*.mdb, *.accdb)};dbq= ThisDocument.Path \nopapertest.mdbconn.OpencnSr Dim refDaFile As StringrefDaFile = ThisDocument.Path \ sST (参考答案).txt Open refDaFile For Output As #1 Print #1, sBT Print #1, sST (参考答案) vbCrLfsetDocTitlesBT, sST 设置标题（一二级） Dim sRs As ADODB.Recordset 对单选题进行处理 Set sRs = New ADODB.RecordsetcnSq = select 题目,备选A,备选B,备选C,备选D,答案 from singleQtsRs.OpencnSq, conni = 0 Do 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.MoveNext LooptmCnt = iReDimsubNo(iST), xHs(4) Dim ySBx(4) As StringrandArraysubNo, iST, tmCntqtTitle = 一、单项选择题（每小题3分，有 iST 个小题，共 3 * iST 分)Selection.TypeTextqtTitle vbCrLf Print #1, qtTitle Print #1, 1-5: ; For i = 1 ToiST Selection.TypeTextxHs(1) xHs(2) xHs(3) xHs(4) vbCrLftmpTm = tm(subNo(i))tmpDa = da(subNo(i))Selection.TypeTexti 、 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 ThenrandA