【正文】 estDot = Then strMsg = 知識(shí)點(diǎn) CheckValid = False MsgBox strMsg + 不能為空！, vbInformation, 提示 Exit Function End If If = Then strMsg = 知識(shí)層次 CheckValid = False MsgBox strMsg + 不能為空！, vbInformation, 提示 Exit Function End If If txtTestScore = Then strMsg = 分值 CheckValid = False MsgBox strMsg + 不能為空！, vbInformation, 提示 Exit Function End If If txtTest = Then strMsg = 內(nèi)容 CheckValid = False MsgBox strMsg + 不能為空！, vbInformation, 提示 Exit Function End If If txtTestAnswer = Then strMsg = 答案 CheckValid = False MsgBox strMsg + 不能為空！, vbInformation, 提示 Exit Function End IfEnd FunctionPrivate Sub SetNull() 39。清空顯示試題信息 txtLessonName = txtLessonGraph = = = txtTestDot = = txtTestScore = txtTest = txtTestAnswer = End SubPrivate Sub FillInfo(rs As ) 39。填充試題信息 With rs If .BOF Then SetNull Exit Sub End If txtLessonName = .Fields(1) txtLessonGraph = .Fields(2) = .Fields(3) = .Fields(4) txtTestDot = .Fields(5) = .Fields(6) txtTestScore = .Fields(7) txtTest = .Fields(8) txtTestAnswer = .Fields(9) End WithEnd Sub 自動(dòng)組卷代碼Dim As Dim rsQ As Dim rsq1 As Dim rst As Dim strSQlq As StringDim strSQLt As StringDim intTh As IntegerDim intI As IntegerDim intJ As IntegerDim intSjs As IntegerPrivate Sub cmdAction_Click(Index As Integer)Select Case Index Case 0: ZjBegin Case 1: ZjFinish Case 2: ZjRestore Case 3: ZjExitEnd SelectEnd SubPrivate Sub Form_Load()With Me .Top = + 100 .Left = End With(1) = 請(qǐng)務(wù)必要詳細(xì)填寫組卷?xiàng)l件?。?！End SubPublic Sub ZjExit()Unload Me(1) = 歡迎使用西安工程科技學(xué)院——試題庫(kù)管理系統(tǒng)End SubPublic Sub ZjBegin()strSQlq = select * from QuestionstrSQLt = select * from testintTh = 1intJ = 0Set = New Provider=。Data Source = amp。 amp。 \Set rsQ = New = = adOpenStatic = adLockOptimisticSet rsq1 = New = = adOpenStatic = adLockOptimisticSet rst = New = = strSQLt = adOpenStatic = adLockOptimistic 39。 **************************填空題*******************************************If = 1 Then strSQlq = strSQlq amp。 where LessonName = 39。 amp。 Trim() amp。 39。 and TestType = 39。 amp。 Trim() amp。 39。 = strSQlq MsgBox (strSQlq) If = 0 Then MsgBox (對(duì)不起，這門學(xué)科沒有輸入這類題) ElseIf Val() Then MsgBox (對(duì)不起，填空題數(shù)量不足！) = While Not (TestName) = Val() (Th) = intTh (Sth) = (Sth) 39。 (Pzw) = 1 intTh = intTh + 1 Wend Else strSQlq = strSQlq amp。 and TestDiff= 39。 amp。 Trim() amp。 39。and TestScore = amp。 Trim() amp。 = strSQlq If 0 Then While Not intJ = Val() intSjs = Int((Rnd * ) + 1) For intI = 0 To intSjs 1 If Then Next intI If (Pzw) = 0 Then (Sjh) = Val() (Th) = intTh (Sth) = (Sth) (Pzw) = 1 intTh = intTh + 1 intJ = intJ + 1 End If Wend Else MsgBox (對(duì)不起，這類填空題不存在！) End If End IfintJ = 0intI = 0strSQlq = select * from QuestionEnd If39。******************************判斷題**************************************If = 1 Then strSQlq = strSQlq amp。 where lessonName = 39。 amp。 Trim() amp。 39。 and testtype = 39。 amp。 Trim() amp。 39。 = strSQlq If = 0 Then MsgBox (對(duì)不起，這門學(xué)科沒有輸入這類題) ElseIf Val() Then MsgBox (對(duì)不起，判斷題數(shù)量不足！) = While Not (Sjh) = Val() (Th) = intTh (Sth) = (Sth) (Pzw) = 1 intTh = intTh + 1 Wend Else strSQlq = strSQlq amp。 and Nd = 39。 amp。 Trim() amp。 39。and Fz = amp。 Trim() amp。 = strSQlq If 0 Then While Not intJ = Val() intSjs = Int((Rnd * ) + 1) For intI = 0 To intSjs 1 If Then Next intI If (Pzw) = 0 Then (Sjh) = Val() (Th) = intTh (Sth) = (Sth) (Pzw) = 1 intTh = intTh + 1 intJ = intJ + 1 End If Wend Else MsgBox (對(duì)不起，這類判斷題不存在！) End If End IfintJ = 0intI = 0strSQlq = select * from QuestionEnd If39。***************************單選題*****************************************If = 1 Then strSQlq = strSQlq amp。 where LessonName = 39。 amp。 Trim() amp。 39。 and testType = 39。 amp。 Trim() amp。 39。 = strSQlq If = 0 Then MsgBox (對(duì)不起，這門學(xué)科沒有輸入這類題) ElseIf Val() Then MsgBox (對(duì)不起，單選題數(shù)量不足！) = While Not (TestName) = Val() (Th) = intTh (Sth) = (Sth) 39。 (Pzw) = 1 intTh = intTh + 1 Wend Else strSQlq = strSQlq amp。 and TestDiff = 39。 amp。 Trim() amp。 39。and TestScore = amp。 Trim() amp。 = strSQlq If 0 Then While Not