【正文】 能夠完成本試題庫系統，并使其具有真正的應用價值，獲得巨大的收獲。在此，希望得到諸位老師的指正。 參考文獻【1】[美]David ：《數據庫處理基礎設計與實現》，電子工業(yè)出版社，2001【2】黃維通：《SQL Server 2000 簡明教程》，清華大學出版社，2002【3】沈祥玖：《Visual Basic可視化程序設計教程》，中國水利水電出版社，2003【4】網冠科技：《Visual Basic 》，機械工業(yè)出版社，2002【5】[美]Deborah Kurata：《Visual Basic 6面向對象程序設計》，人民郵電出版社，1999【6】白鵬：《Visual Basic編程實例與技巧數據庫編程》，科學出版社，2003【7】周愛武，汪海威：《Visual Basic程序設計》，清華大學出版社，2003【8】李春葆，張植民：《Visual Basic數據庫系統設計與開發(fā)》，清華大學出版社，2003【9】付軍:《Visual Basic實用編程100例》,中國鐵道出版社，2003附錄程序代碼由于原程序代碼實在太長，本附錄只附錄部分由作者編寫的主要模塊的程序代碼。 + Trim(txtLessonName) + 39。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。記錄的當前位置Private Sub cmdAction_Click(Index As Integer)39。With Me .Top = + 100 .Left = End With39。/ = sqloledb39。initial catalog=stk。password=39。連接服務器39。/ MsgBox 服務器配置出錯！, vbInformation + vbOKOnly39。/ End If39。strSQL = SELECT * FROM Question WHERE 39。With adoQuestion 39。 amp。 amp。 .RecordSource = SELECT * FROM Question 39。End WithEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)39。If UnloadMode 0 Then 39。Else 39。End If39。添加試題39。 .Update If CheckValid = False Then Exit Sub End If With rs .AddNew .Fields(LessonName) = txtLessonName .Fields(LessonGraph) = Val(txtLessonGraph) .Fields(TestType) = .Fields(TestDiff) = .Fields(TestDot) = Val(txtTestDot) .Fields(TestDep) = cbTestDep .Fields(TestScore) = Val(txtTestScore) .Fields(Test) = txtTest .Fields(TestAnswer) = txtTestAnswer .Update End With MsgBox 試題錄入成功！, vbInformation, 提示 = + 1 lblCurrentRecord = Trim(Str(CurrentPos + 1)) + / + Trim(Str()) 39。LocalErr: MsgBox , vbCritical, 錯誤: amp。End SubPrivate Sub setFormModeTo(Mode As FormMode)39。End SubPublic Sub ADOCancel() 39。刪除記錄39。Exit Sub39。 CStr()39。刷新記錄 If = adStateOpen Then End If select * from Question lblRecordCount = 共找到 + Trim(Str()) + 條記錄 lblCurrentRecord = 0/ + Trim(Str()) = CurrentPos = 0End SubPublic Sub ADOExit()Unload Me(1) = 歡迎使用西安工程科技學院——試題庫管理系統End SubPublic Sub ADOSearch() 39。 amp。 39。 Trim() amp。 amp。 39。 amp。 39。 Trim() amp。 amp。 39。 Trim() amp。strSql = strSql + Mid$(strSQL1, 6)If = adStateOpen Then End If strSQLIf 0 Then End IflblRecordCount = 共找到 + Trim(Str()) + 條記錄lblCurrentRecord = 0/ + Trim(Str()) = CurrentPos = 0End SubPrivate Sub scrlRecordCount_Change() 39。修改記錄 If cmdAction(4).Caption = 修 改 Then EditFlagTrue cmdAction(4).Caption = 保 存 Else With rs .Fields(LessonName) = txtLessonName .Fields(LessonGraph) = Val(txtLessonGraph) .Fields(TestType) = .Fields(TestDiff) = .Fields(TestDot) = Val(txtTestDot) .Fields(TestDep) = cbTestDep .Fields(TestScore) = Val(txtTestScore) .Fields(Test) = txtTest .Fields(TestAnswer) = txtTestAnswer .Update End With MsgBox 試題修改成功！, vbInformation, 提示 cmdAction(4).Caption = 修 改 setFormModeTo fmedit EditFlagFalse End IfEnd SubPublic Sub EditFlagTrue() = True = True = TrueEnd SubPublic Sub EditFlagFalse() = False = False = FalseEnd SubPrivate Function CheckValid() As Boolean 39。清空顯示試題信息 txtLessonName = txtLessonGraph = = = txtTestDot = = txtTestScore = txtTest = txtTestAnswer = End SubPrivate Sub FillInfo(rs As ) 39。Data Source = amp。 \Set rsQ = New = = adOpenStatic = adLockOptimisticSet rsq1 = New = = adOpenStatic = adLockOptimisticSet rst = New = = strSQLt = adOpenStatic = adLockOptimistic 39。 where LessonName = 39。 Trim() amp。 and TestType = 39。 Trim() amp。 = strSQlq MsgBox (strSQlq) If = 0 Then MsgBox (對不起，這門學科沒有輸入這類題) ElseIf Val() Then MsgBox (對不起，填空題數量不足！) = While Not (TestName) = Val() (Th) = intTh (Sth) = (Sth) 39。 and TestDiff= 39。 Trim() amp。and TestScore = 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 (對不起，這類填空題不存在！) End If End IfintJ = 0intI = 0strSQlq = select * from QuestionEnd If39。 where lessonName = 39。 Trim() amp。 and testtype = 39。 Trim() amp。 = strSQlq If = 0 Then MsgBox (對不起，這門學科沒有輸入這類題) ElseIf Val() Then MsgBox (對不起，判斷題數量不足！) = While Not (Sjh) = Val() (Th) = intTh (Sth) = (Sth) (Pzw) = 1 intTh = intTh + 1 Wend Else strSQlq = strSQlq amp。 amp。 39。 Trim() amp。***************************單選題*****************************************If = 1 Then strSQlq = strSQlq amp。 amp。 39。 amp。 39。 (Pzw) = 1 intTh = intTh + 1 Wend Else strSQlq = strSQlq amp。 amp。 39。 Trim() amp