【文章內(nèi)容簡(jiǎn)介】 環(huán)語(yǔ)句，循環(huán)讀取到中間變量中，再循環(huán)疊加。結(jié)束語(yǔ)經(jīng)過(guò)三個(gè)多月的努力，試題庫(kù)系統(tǒng)的開(kāi)發(fā)工作終于完成了，而本次畢業(yè)設(shè)計(jì)也接近尾聲。本次畢業(yè)設(shè)計(jì)的知識(shí)面覆蓋甚廣，其中涉及有數(shù)據(jù)庫(kù)技術(shù)、查詢技術(shù)、程序編程、打印技術(shù)等系統(tǒng)開(kāi)發(fā)方面的知識(shí)。本次畢業(yè)設(shè)計(jì)，我從自學(xué)Visual Basic ，逐步學(xué)會(huì)了其編程語(yǔ)言、數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)、安裝軟件的制作等。最后能夠完成本試題庫(kù)系統(tǒng)，并使其具有真正的應(yīng)用價(jià)值，獲得巨大的收獲。同時(shí)，在開(kāi)發(fā)試題庫(kù)系統(tǒng)的過(guò)程中，也感到自己知識(shí)的不足，所以本系統(tǒng)的錯(cuò)誤之處不少，望老師和各位同學(xué)加以批評(píng)指正。在此，希望得到諸位老師的指正。同時(shí)，對(duì)于周國(guó)祥老師所給予的幫助，表示衷心的感謝。 參考文獻(xiàn)【1】[美]David ：《數(shù)據(jù)庫(kù)處理基礎(chǔ)設(shè)計(jì)與實(shí)現(xiàn)》，電子工業(yè)出版社，2001【2】黃維通：《SQL Server 2000 簡(jiǎn)明教程》，清華大學(xué)出版社，2002【3】沈祥玖：《Visual Basic可視化程序設(shè)計(jì)教程》，中國(guó)水利水電出版社，2003【4】網(wǎng)冠科技：《Visual Basic 》，機(jī)械工業(yè)出版社，2002【5】[美]Deborah Kurata：《Visual Basic 6面向?qū)ο蟪绦蛟O(shè)計(jì)》，人民郵電出版社，1999【6】白鵬：《Visual Basic編程實(shí)例與技巧數(shù)據(jù)庫(kù)編程》，科學(xué)出版社，2003【7】周愛(ài)武，汪海威：《Visual Basic程序設(shè)計(jì)》，清華大學(xué)出版社，2003【8】李春葆，張植民：《Visual Basic數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)與開(kāi)發(fā)》，清華大學(xué)出版社，2003【9】付軍:《Visual Basic實(shí)用編程100例》,中國(guó)鐵道出版社，2003附錄程序代碼由于原程序代碼實(shí)在太長(zhǎng)，本附錄只附錄部分由作者編寫(xiě)的主要模塊的程序代碼。 歡迎界面代碼Option ExplicitPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer) Unload MeEnd SubPrivate Sub FrameMain_Click()Unload MeEnd Sub 試題庫(kù)管理系統(tǒng)代碼Private Sub gyxt_Click()Load Frmabort(1) = 試題庫(kù)管理系統(tǒng)———關(guān)于系統(tǒng)End SubPrivate Sub MDIForm_Load()(1) = 歡迎使用西安工程科技學(xué)院——試題庫(kù)管理系統(tǒng)End SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)Dim Msg As StringIf UnloadMode 0 Then Msg = 真的要結(jié)束本功能嗎？Else Msg = 確定要退出本系統(tǒng)嗎？End IfIf MsgBox(Msg, vbQuestion + vbYesNo, ) = vbNo Then Cancel = TrueEnd SubPrivate Sub sgsc_Click()Load Frmsgzj(1) = 試題庫(kù)管理系統(tǒng)———手工組卷End SubPrivate Sub sjbf_Click()Load Frmsjbf(1) = 試題庫(kù)管理系統(tǒng)———試卷查詢End SubPrivate Sub sjcx_Click()Load Frmsjcx(1) = 試題庫(kù)管理系統(tǒng)———試卷查詢End SubPrivate Sub sjdy_Click()Load Frmsjdy(1) = 試題庫(kù)管理系統(tǒng)———試卷打印End SubPrivate Sub sjwh_Click()Load Frmsjwh(1) = 試題庫(kù)管理系統(tǒng)———試題維護(hù)End SubPrivate Sub stcx_Click()Load Frmstcx(1) = 試題庫(kù)管理系統(tǒng)———試題查詢End SubPrivate Sub stdy_Click()Load Frmstdy(1) = 試題庫(kù)管理系統(tǒng)———試題打印End SubPrivate Sub stwh_Click()Load Frmstwh(1) = 試題庫(kù)管理系統(tǒng)———試題維護(hù)End SubPrivate Sub tc_Click()EndEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case key1Load Frmstcx(1) = 試題庫(kù)管理系統(tǒng)———試題查詢Case key2Load Frmsjcx(1) = 試題庫(kù)管理系統(tǒng)———試卷查詢Case key3Load Frmstwh(1) = 試題庫(kù)管理系統(tǒng)———試題維護(hù)Case key4Load Frmsgzj(1) = 試題庫(kù)管理系統(tǒng)———手工組卷Case key5Load Frmzdzj(1) = 試題庫(kù)管理系統(tǒng)———自動(dòng)組卷Case key6EndEnd SelectEnd SubPrivate Sub yhgl_Click()Load Frmyhgl(1) = 試題庫(kù)管理系統(tǒng)———用戶管理End SubPrivate Sub zdsc_Click()Load Frmzdzj(1) = 試題庫(kù)管理系統(tǒng)———自動(dòng)組卷End Sub 試題查詢代碼Dim As New Dim rs As New Private Sub txtLessonName_GotFocus() (1) = 請(qǐng)正確輸入學(xué)科名稱，如：操作系統(tǒng)End SubPrivate Sub txtLessonGraph_GotFocus() (1) = 章節(jié)的類型是數(shù)字，如1表示第一章End SubPrivate Sub txtLessonGraph_KeyPress(KeyAscii As Integer)Dim strZj As StringstrZj = 0123456789If KeyAscii 26 Then If InStr(strZj, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End IfEnd IfEnd SubPrivate Sub cbTestType_GotFocus() (1) = 題型的類型是文本，請(qǐng)從下拉列表中選擇End SubPrivate Sub cbTestDiff_GotFocus() (1) = 難度的類型是文本，請(qǐng)從下拉列表中選擇End SubPrivate Sub txtTestDot_GotFocus()(1) = 知識(shí)點(diǎn)的類型是數(shù)字，如1表示一個(gè)知識(shí)點(diǎn)End SubPrivate Sub txtTestDot_KeyPress(KeyAscii As Integer)Dim strZsd As StringstrZsd = 0123456789If KeyAscii 26 Then If InStr(strZsd, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End IfEnd IfEnd SubPrivate Sub cbTestDep_GotFocus() (1) = 認(rèn)知層次的類型是文本，請(qǐng)從下拉列表中選擇End SubPrivate Sub cmdSearch_Click() Dim strSQL As String strSQL = select * from Question where LessonName=39。 + Trim(txtLessonName) + 39。 If txtLessonGraph Then strSQL = strSQL + and LessonGraph= + Trim(txtLessonGraph) End If If Then strSQL = strSQL + and TestType=39。 + Trim() + 39。 End If If Then strSQL = strSQL + and TestDiff=39。 + Trim() + 39。 End If If txtTestDot Then strSQL = strSQL + and TestDot= + Trim(txtTestDot) End If If Then strSQL = strSQL + and TestDep=39。 + Trim() + 39。 End If If = adStateOpen Then End If strSQL With drQuestion Set .DataSource = rs .Sections(RptHeader).Controls(lblTitle).Caption = Trim(txtLessonName) + 試題查找結(jié)果一覽 .Show End WithEnd SubPrivate Sub Form_Load() Set = ConnectDatabase( + \) Set rs = SetRecordset() (1) = 請(qǐng)先輸入學(xué)科名稱，如：操作系統(tǒng) = FalseEnd SubPrivate Sub txtLessonName_Change() If txtLessonName Then = True Else = False End IfEnd Sub 試題維護(hù)代碼Option ExplicitPrivate Enum FormMode fmAdd = True fmedit = FalseEnd EnumDim strSQL As StringDim strSQL1 As StringDim As New Dim rs As New Dim strCn As StringDim CurrentPos As Integer 39。記錄的當(dāng)前位置Private Sub cmdAction_Click(Index As Integer)39。 Select Case Index Case 0: ADOSearch Case 1: ADOAdd Case 2: ADOCancel Case 3: ADODelete Case 4: ADOUpdate Case 5: ADORefrsh Case 6: ADOExit End SelectEnd SubPrivate Sub Form_Load()39。With Me .Top = + 100 .Left = End With39。/////////////////////////39。/ = sqloledb39。/ strCn = data source= + SvrName + 。initial catalog=stk。user id=sa。password=39。/ strCn 39。連接服務(wù)器39。/ If Err Then39。/ MsgBox 服務(wù)器配置出錯(cuò)！, vbInformation + vbOKOnly39。/ Exit Sub39。/ End If39。////////////////////////////Set = ConnectDatabase( + \)Set rs = SetRecordset() = 0EditFlagFalse select * from QuestionlblRecordCount = 共找到 + Trim(Str()) + 條記錄lblCurrentRecord = 0/ + Trim(Str()) = CurrentPos = 039。strSQL = SELECT * FROM Question WHERE 39。39。With adoQuestion 39。 .ConnectionString = Provider=。 amp。 Data Source= amp。 amp。 \ 39。 .RecordSource = SELECT * FROM Question 39。 .Refresh39。End WithEnd SubPrivate Sub Form_QueryUnload(Cancel A