數(shù)據(jù)庫原理課程設(shè)計---題庫管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：42 大?。?27.50KB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩41頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領(lǐng)

文檔簡介

1、　　摘要　　一般情況教師想出一份試卷，要么到龐大的題庫里一道一道的把題找出來，或是從幾本相關(guān)的書里把題一道一道挑出來。這樣即費時又費力，而且很難保證試題的覆蓋面和把握好試卷的難度。正是為了能夠幫助教師輕松的出一份高質(zhì)量的試卷而開發(fā)了本系統(tǒng)。　　以做一個數(shù)據(jù)庫原理這門課的題庫系統(tǒng)為例，為了達到預(yù)期

2、的標(biāo)準(zhǔn)本文最終選擇了txt文本文件做為本系統(tǒng)的終端輸出。并且實現(xiàn)了以下主要功能試題數(shù)據(jù)庫的創(chuàng)建、不同章節(jié)不同難度的試題錄入、圖片保存、試卷分析、自動生成試卷等功能，多次運行證明本系統(tǒng)運行較為穩(wěn)定且各項功能運行得比較正確，基本達到了預(yù)期的要求。　　關(guān)鍵詞： Visual Basic 6.0，SQL Server 2000，題庫管理系統(tǒng)

3、　目錄　　1 系統(tǒng)功能概述3　　1.1系統(tǒng)功能3　　1.2系統(tǒng)結(jié)構(gòu)總圖3　　1.3系統(tǒng)E-R模型4　　2 數(shù)據(jù)庫設(shè)計5<

4、;/p>　　2.1 需求分析5　　2.2 功能分析5　　2.4 表結(jié)構(gòu)設(shè)計21　　3 系統(tǒng)各功能模塊的詳細設(shè)計24　　3.1配置數(shù)據(jù)源（ODBC數(shù)據(jù)源）24　　3.2 窗體的設(shè)計24<

5、;/p>　　3.3主要窗體源程序代碼28　　4系統(tǒng)優(yōu)缺點評價42　　參考文獻42　　1 系統(tǒng)功能概述　　1.1系統(tǒng)功能<

6、;/p>　　系統(tǒng)功能介紹：　　1、創(chuàng)建題庫：本系統(tǒng)適合不同科目的老師進行試題的錄入，可根據(jù)不同的課程名創(chuàng)建不同的試題數(shù)據(jù)庫，且自動生成簡答題、單選題、多選題、填空題、難度值四張表。　　題庫維護系統(tǒng)：　　該系統(tǒng)是

7、適合不同課程的老師錄入考試試題，本系統(tǒng)包括了題文的錄入、題文的查找、題文的刪除和修改，章節(jié)的設(shè)定，分值的設(shè)置，試題的難度設(shè)置，試卷分析，以及生成試卷的功能。　　2、生成卷：　　該系統(tǒng)是本軟件的主要的功能的體現(xiàn)，不受分值和難易程度的限制，可以人為定義，同時在分析的過程中那判定合理性，并提示最高設(shè)置值，讓老師更合理地考察

8、不同程度的學(xué)生的學(xué)習(xí)情況。　　3、各個試題數(shù)據(jù)庫中主要包含以下實體及其屬性：　?。?）簡答題（旅游團編號、旅游點名稱、地理位置、旅游天數(shù)，價格，出發(fā)日期，返回日期）　　（2）單選題（導(dǎo)游編號、導(dǎo)游姓名、性別、聯(lián)系電話）　　（3）多選題（游客編號、游客姓名、性別、年齡、聯(lián)系

9、電話）　　（4）填空題（用戶名、密碼）　　1.2系統(tǒng)結(jié)構(gòu)總圖　　流程圖：　　結(jié)構(gòu)圖：　　1.3系統(tǒng)E-R模型<

10、/p>　　2 數(shù)據(jù)庫設(shè)計　　2.1 需求分析　　設(shè)計試題生成功能，試題能分布整個教學(xué)內(nèi)容　　設(shè)計試題的難易程度分析功能　　具有試題的答案生成功能

11、　　數(shù)據(jù)庫設(shè)計及維護　　程序的其它選項設(shè)置　　2.2 功能分析　　1．每創(chuàng)建一個數(shù)據(jù)庫將自動生成四種題型幾個各個章節(jié)的數(shù)據(jù)表，因為在錄入題目的時候要顯示書本章節(jié)信息以供用戶使用。而在

12、數(shù)據(jù)庫里章節(jié)的存放是沒有規(guī)則也即它們的順序不一定按照真實書本的章節(jié)順序來存儲的。但是在顯示章節(jié)信息的時候必須按照書本的章節(jié)順序來顯示。所以分別設(shè)置如下的各張表的數(shù)據(jù)類型： 　　'創(chuàng)建“章節(jié)”數(shù)據(jù)表　　strSQL = "Create Table 章節(jié) (" _　　&

13、"編號 int identity primary key," _　　& "名稱 varchar(50) not null)"　　objCn.Execute strSQL　　objCn.Close　　Set objCn =

14、Nothing　　MsgBox "數(shù)據(jù)庫已成功創(chuàng)建！"　　由于數(shù)據(jù)庫里章節(jié)的數(shù)量是不定的，故此種數(shù)據(jù)類型的變量必須是一種長度可變的類型才行。接下來的問題就是把這個變量記錄的數(shù)據(jù)按一定順序顯示到combobox的控件里了。由于章節(jié)的數(shù)量還是比較多的，所以我選擇了“改進的選擇排序”，具體的排序算法代碼實現(xiàn)如下：&l

15、t;p>　　If cmbChapter <> "" Then　　objRs.Filter = "章節(jié)=" & cmbChapter.ItemData(cmbChapter.ListIndex)　　If objRs.RecordCount > 0 Then objRs.MoveFirs

16、t　　Show_Data　　Else　　objRs.Filter = "章節(jié)=-99999"　　Show_Data

17、　　End If 　　2．試卷分析的過程中，要考慮到一張試卷里面各個不同題目所在比例與試題庫中該類試題占所有試題庫中的比例之間的差異問題，所以在分析的過程中在成分不足或者成分超過的情況需要設(shè)置提示，整個參數(shù)分析代碼為：　　'分析章節(jié)中的題數(shù)分配

18、　Dim News, i%, j%, strFilter$, Chapter%(3, 2), k%　　News = Array("判斷題", "單選題", "多選題", "填空題")　　For i = 0 To 3　　If Val(t

19、xtScore(i)) <> 0 And Val(lblRemain(i)) <> 0 Then　　MsgBox News(i) & "試題剩余" & lblRemain(i) & "%未分配", vbCritical　　txtScale(i).SetFocus<

20、;/p>　　Exit Sub　　End If　　Next　　'檢查章節(jié)題量分配是否有效　　If objRsChapter.

21、RecordCount <= 0 Then Exit Sub　　For i = 0 To 3　　If Val(txtScore(i)) <> 0 Then　　For j = 0 To cmbChapter(i).ListCount - 1　　objRsC

22、hapter.MoveFirst　　objRsChapter.Find "名稱='" & cmbChapter(i).List(j) & "'"　　strFilter = "章節(jié)=" & objRsChapter!編號<p&g

23、t;　　Select Case i　　Case 0 '檢查判斷題題量分配是否有效　　objRsJudge.Filter = strFilter　　If objRsJudge.RecordCount < Int(cmbChapter(i).ItemData(j) * _<

24、;p>　　txtCount(i) / 100) Then　　MsgBox "<" & News(i) & "><" & objRsChapter!名稱 & ">中只有<" _　　& objRsJudge.RecordCo

25、unt & ">道試題，小題百分比最多<" _　　& Int(objRsJudge.RecordCount / Val(txtCount(i)) * 100) _　　& ">", vbCritical　　cmbChapter(i).

26、ListIndex = j　　Exit Sub　　End If　　'小題數(shù)通過檢驗，統(tǒng)計各類難度試題數(shù)量　　For k = 0 To 2　　obj

27、RsJudge.Filter = strFilter & " and 難度=" & k　　Chapter(i, k) = Chapter(i, k) + objRsJudge.RecordCount　　Next　　Case 1 '

28、檢查單選題題量分配是否有效　　objRsSingle.Filter = strFilter　　If objRsSingle.RecordCount < Int(cmbChapter(i).ItemData(j) * _　　txtCount(i) / 100) Then

29、;　　MsgBox "<" & News(i) & "><" & objRsChapter!名稱 & ">中只有<" _　　& objRsSingle.RecordCount & ">道試題，小題百分比最多<" _</p&

30、gt;　　& Int(objRsSingle.RecordCount / Val(txtCount(i)) * 100) _　　& ">", vbCritical　　cmbChapter(i).ListIndex = j　　Exit

31、 Sub　　End If　　'小題數(shù)通過檢驗，統(tǒng)計各類難度試題數(shù)量　　For k = 0 To 2　　objRsSingle.Filter = strFilter & " and 難度=&

32、quot; & k　　Chapter(i, k) = Chapter(i, k) + objRsSingle.RecordCount　　Next　　Case 2 '檢查多選題題量分配是否有效　　objRsMore.F

33、ilter = strFilter　　If objRsMore.RecordCount < Int(cmbChapter(i).ItemData(j) * _　　txtCount(i) / 100) Then　　MsgBox "<" & News(i) & &quo

34、t;><" & objRsChapter!名稱 & ">中只有<" _　　& objRsMore.RecordCount & ">道試題，小題百分比最多<" _　　& Int(objRsMore.RecordCount / Val

35、(txtCount(i)) * 100) _　　& ">", vbCritical　　cmbChapter(i).ListIndex = j　　Exit Sub　　End If<

36、;/b>　　'小題數(shù)通過檢驗，統(tǒng)計各類難度試題數(shù)量　　For k = 0 To 2　　objRsMore.Filter = strFilter & " And 難度 = " & k　　Chapter(i, k) = Cha

37、pter(i, k) + objRsMore.RecordCount　　Next　　Case 3 '檢查填空題題量分配是否有效　　objRsSpace.Filter = strFilter　　If objRsSpace.Re

38、cordCount < Int(cmbChapter(i).ItemData(j) * _　　txtCount(i) / 100) Then　　MsgBox "<" & News(i) & "><" & objRsChapter!名稱 & ">

39、中只有<" _　　& objRsSpace.RecordCount & ">道試題，小題百分比最多<" _　　& Int(objRsSpace.RecordCount / Val(txtCount(i)) * 100) & ">", vbCritic

40、al　　cmbChapter(i).ListIndex = j　　Exit Sub　　End If　　'小題數(shù)通過檢驗，統(tǒng)計各類難度試題數(shù)量　　F

41、or k = 0 To 2　　objRsSpace.Filter = strFilter & " and 難度=" & k　　Chapter(i, k) = Chapter(i, k) + objRsSpace.RecordCount　　Next</b&

42、gt;　　End Select　　Next　　End If　　Next　　'按難度檢查題量分配是否合理<

43、;/p>　　For i = 0 To 3　　'檢查難度屬于“難”的題題量分配是否有效　　If Chapter(i, 0) < Int(Val(txtCount(i)) * txtLevel0(i) / 100) Then　　MsgBox News(i) & &qu

44、ot;題庫中難度屬于“難”的題只有<" _　　& Chapter(i, 0) & ">道，難度百分比最大可為<" _　　& Int(Chapter(i, 0) / Val(txtCount(i)) * 100) _　　& "

45、>", vbCritical　　txtLevel0(i).SetFocus　　Exit Sub　　End If　　'檢查難度屬于“一般”的題題量分配是否有效</p&g

46、t;　　If Chapter(i, 1) < Int(Val(txtCount(i)) * txtLevel1(i) / 100) Then　　MsgBox News(i) & "題庫中難度屬于“一般”的題只有<" _　　& Chapter(i, 1) & ">

47、道，難度百分比最大可為<" _　　& Int(Chapter(i, 1) / Val(txtCount(i)) * 100) _　　& ">", vbCritical　　txtLevel1(i).SetFocus&

48、lt;b>　　Exit Sub　　End If　　'檢查難度屬于“容易”的題題量分配是否有效　　If Chapter(i, 2) < Int(Val(txtCount(i)) * txtLevel2(i) / 100) Then<

49、/p>　　MsgBox News(i) & "題庫中難度屬于“容易”的題只有<" _　　& Chapter(i, 2) & ">道，難度百分比最大可為<" _　　& Int(Chapter(i, 2) / Val(txtCount(i))

50、 * 100) _　　& ">", vbCritical　　txtLevel2(i).SetFocus　　Exit Sub　　End If

51、　　Next　　MsgBox "試卷參數(shù)設(shè)置正確，可以生成試卷！", vbInformation　　'取消各個記錄集的過慮設(shè)置　　objRsSpace.Filter = ""<p&

52、gt;　　objRsMore.Filter = ""　　objRsSingle.Filter = ""　　objRsJudge.Filter = ""　　cmdMakePaper.Enabled = True&l

53、t;b>　　Exit Sub　　3．在自動生成試卷里最主要的一點就是如何生成一個覆蓋知道點廣且試題不重復(fù)的試卷。其中的關(guān)鍵算法在于如何生成一個不重復(fù)的隨機數(shù)序列。同時，為了防止生成時間過長或者說代碼編寫出錯時造成程序運行不停止，需要設(shè)置一個時間函數(shù)，控制試卷生成時間，本文定義的是30秒，如果超過這個時間將停止生成試卷并提示錯誤。程序如下：<

54、p>　　Randomize Timer　　Dim Level0%(3), Level1%(3), Level2%(3), i%, n%, strTest$, strAnswer$　　Dim Count%(3), Selected$, Chapter%(), Ok, Abcd, more%, doTime As Long<

55、;p>　　doTime = Timer '開始計算生成試題時間　　Abcd = Array("A", "B", "C", "D")　　ReDim Chapter(3, cmbChapter(0).ListCount - 1)<p

56、>　　'計算各類題型的難度小題數(shù)　　For i = 0 To 3　　n = Val(txtCount(i))　　Count(i) = n　　Level0%(i) = Int(Val(txtLevel0(i)) * n / 100)&l

57、t;p>　　Level1%(i) = Int(Val(txtLevel1(i)) * n / 100)　　Level2%(i) = Int(Val(txtLevel2(i)) * n / 100)　　If Level0%(i) + Level1%(i) + Level2%(i) <> n Then _<p&

58、gt;　　Level1%(i) = n - Level0%(i) - Level2%(i)　　Next　　For i = 0 To 3　　cmbChapter(i).ItemData(0) = 20　　cmbChapter(i).It

59、emData(1) = 30　　cmbChapter(i).ItemData(2) = 30　　cmbChapter(i).ItemData(3) = 20　　Next　　'計算個章節(jié)各類題型的小題數(shù)&

60、lt;p>　　For i = 0 To 3　　For j = 0 To cmbChapter(0).ListCount - 1　　Chapter(i, j) = Int(cmbChapter(i).ItemData(j) * Val(txtCount(i)) / 100)　　Next<

61、;/b>　　n = 0　　For j = 0 To cmbChapter(0).ListCount - 1　　n = n + Chapter(i, j)　　Next&

62、lt;p>　　If n <> Val(txtCount(i)) Then Chapter(i, 0) = Chapter(i, 0) + Val(txtCount(i)) - n　　Next　　'將cmbchapter列表itemdata中的百分比數(shù)轉(zhuǎn)換為章節(jié)編號&l

63、t;p>　　For i = 0 To 3　　For j = 0 To cmbChapter(0).ListCount - 1　　objRsChapter.MoveFirst　　objRsChapter.Find "名稱='" & cmbChapter(i).List(j)

64、 & "'"　　cmbChapter(i).ItemData(j) = objRsChapter!編號　　Next　　Next　　'生

65、成試卷　　For i = 0 To 3　　Selected = ""　　Select Case i　　Case 0 '選擇判斷題　　strTest = strTest &

66、"一、簡答題。（共" & txtCount(i) _　　& "，每小題" & txtAvg(i) & "分，共" & txtScore(i) & "分）" & vbCrLf　　strAnswer = strAnswer

67、& "一、簡答題。（共" & txtCount(i) _　　& "，每小題" & txtAvg(i) & "分，共" & txtScore(i) & "分）" & vbCrLf　　j = 1&l

68、t;/b>　　While Count(i) > 0　　'隨即產(chǎn)生一個未選擇的試題的記錄序號　　Do　　If Timer - doTime > 30 Then　　Msg

69、Box "本次生成判斷題花費時間過長，退出重試！", vbCritical　　Exit Sub　　End If　　n = Int(Rnd * objRsJudge.RecordCount + 1)

70、　　Loop Until InStr(Selected, "#" & n & "#") = 0　　Selected = Selected & "#" & n & "#"　　objRsJudge.MoveFirst&l

71、t;/p>　　objRsJudge.Move n - 1　　Select Case objRsJudge!難度　　Case 0　　If Level0(i) > 0 Then　　'檢查本章試題是

72、否已選夠　　For n = 0 To 3　　If cmbChapter(i).ItemData(n) = objRsJudge!章節(jié) Then Exit For　　Next　　If Chapter(i, n) > 0 Then&

73、lt;/p>　　strTest = strTest & j & "、" & objRsJudge!題干 & "（）" & vbCrLf　　strAnswer = strAnswer & j & "、"

74、9;If objRsJudge!答案 Then　　' strAnswer = strAnswer & "錯誤"　　' Else　　' strAnswer = strAnswer & "正確"&l

75、t;/p>　　' End If　　strAnswer = strAnswer & vbCrLf　　j = j + 1　　Chapter(i, n) = Chapter(i, n) - 1<

76、/p>　　Level0(i) = Level0(i) - 1　　Count(i) = Count(i) - 1　　If Not IsNull(objRsJudge!圖片) Then _　　strTest = strTest & "本題圖片：" & o

77、bjRsJudge!圖片　　End If　　End If　　Case 1　　If Level1(i) > 0 Then<p

78、>　　'檢查本章試題是否已選夠　　For n = 0 To 3　　If cmbChapter(i).ItemData(n) = objRsJudge!章節(jié) Then Exit For　　Next　　If Chapter(

79、i, n) > 0 Then　　strTest = strTest & j & "、" & objRsJudge!題干 & "（）" & vbCrLf　　strAnswer = strAnswer & j & "、"</p&g

80、t;　　'If objRsJudge!答案 Then　　'strAnswer = strAnswer & "錯誤"　　'Else　　' strAnswer = strAnswer & &

81、quot;正確"　　'End If　　strAnswer = strAnswer & vbCrLf　　j = j + 1　　Chapter(i, n) = Chapter

82、(i, n) - 1　　Level1(i) = Level1(i) - 1　　Count(i) = Count(i) - 1　　If Not IsNull(objRsJudge!圖片) Then _　　strTest = strTest & "本題圖片：

83、" & objRsJudge!圖片　　End If　　End If　　Case 2　　If Level2(i) > 0 Then<

84、;/p>　　'檢查本章試題是否已選夠　　For n = 0 To 3　　If cmbChapter(i).ItemData(n) = objRsJudge!章節(jié) Then Exit For　　Next

85、;　　If Chapter(i, n) > 0 Then　　strTest = strTest & j & "、" & objRsJudge!題干 & "（）" & vbCrLf　　strAnswer = strAnswer & j & "、

86、"　　strAnswer = strAnswer & vbCrLf　　j = j + 1　　Chapter(i, n) = Chapter(i, n) - 1　　Level2(i) = Level2(i) - 1&l

87、t;/p>　　Count(i) = Count(i) - 1　　If Not IsNull(objRsJudge!圖片) Then _　　strTest = strTest & "本題圖片：" & objRsJudge!圖片　　En

88、d If　　End If　　End Select　　Wend　　Case 1 '卸載單選題　　strTest = strTe

89、st & "二、單選題。（共" & txtCount(i) _　　& "，每小題" & txtAvg(i) & "分，共" & txtScore(i) & "分）" & vbCrLf　　strAnswer = s

90、trAnswer & "二、單選題。（共" & txtCount(i) _　　& "，每小題" & txtAvg(i) & "分，共" & txtScore(i) & "分）" & vbCrLf

91、　　j = 1　　While Count(i) > 0　　'隨即產(chǎn)生一個未選擇的試題的記錄序號　　Do　　If Timer - doTime > 30 Then<p

92、>　　MsgBox "本次生成單選題試題花費時間過長，退出重試！", vbCritical　　Exit Sub　　End If　　n = Int(Rnd * objRsSingle.RecordCount + 1

93、)　　Loop Until InStr(Selected, "#" & n & "#") = 0　　Selected = Selected & "#" & n & "#"　　objRsSingl

94、e.MoveFirst　　objRsSingle.Move n - 1　　Select Case objRsSingle!難度　　Case 0　　If Level0(i) > 0 Then

95、;　　'檢查本章試題是否已選夠　　For n = 0 To 3　　If cmbChapter(i).ItemData(n) = objRsSingle!章節(jié) Then Exit For　　Next　　If Chapter(i,

96、 n) > 0 Then　　strTest = strTest & j & "、" & objRsSingle!題干 & vbCrLf　　strTest = strTest & " A、" & objRsSingle!選項1 & vbCrLf<

97、;/p>　　strTest = strTest & " B、" & objRsSingle!選項2 & vbCrLf　　strTest = strTest & " C、" & objRsSingle!選項3 & vbCrLf

98、strTest = strTest & " D、" & objRsSingle!選項4 & vbCrLf　　strAnswer = strAnswer & j & "、" & Abcd(objRsSingle!答案) & vbCrLf

99、　j = j + 1　　Chapter(i, n) = Chapter(i, n) - 1　　Level0(i) = Level0(i) - 1　　Count(i) = Count(i) - 1　　If Not IsNull(objRsSingle!圖

100、片) Then _　　strTest = strTest & "本題圖片：" & objRsSingle!圖片　　End If　　End If

101、　　Case 1　　If Level1(i) > 0 Then　　'檢查本章試題是否已選夠　　For n = 0 To 3　　If cmbChapter(i).ItemData(n) = objRsSingle!章節(jié) Then Exit

102、For　　Next　　If Chapter(i, n) > 0 Then　　strTest = strTest & j & "、" & objRsSingle!題干 & vbCrLf<p&

103、gt;　　strTest = strTest & " A、" & objRsSingle!選項1 & vbCrLf　　strTest = strTest & " B、" & objRsSingle!選項2 & vbCrLf　　strTest = strTe

104、st & " C、" & objRsSingle!選項3 & vbCrLf　　strTest = strTest & " D、" & objRsSingle!選項4 & vbCrLf　　strAnswer = strAnswer & j &

105、 "、" & Abcd(objRsSingle!答案) & vbCrLf　　j = j + 1　　Chapter(i, n) = Chapter(i, n) - 1　　Level1(i) = Level1(i) - 1

106、　　Count(i) = Count(i) - 1　　If Not IsNull(objRsSingle!圖片) Then _　　strTest = strTest & "本題圖片：" & objRsSingle!圖片　　End If<

107、;/b>　　End If　　Case 2　　If Level2(i) > 0 Then　　'檢查本章試題是否已選夠　　For n =

108、0 To 3　　If cmbChapter(i).ItemData(n) = objRsSingle!章節(jié) Then Exit For　　Next　　If Chapter(i, n) > 0 Then　　strTest = st

109、rTest & j & "、" & objRsSingle!題干 & vbCrLf　　strTest = strTest & " A、" & objRsSingle!選項1 & vbCrLf　　strTest = strTest & "

110、 B、" & objRsSingle!選項2 & vbCrLf　　strTest = strTest & " C、" & objRsSingle!選項3 & vbCrLf　　strTest = strTest & " D、" & o

111、bjRsSingle!選項4 & vbCrLf　　strAnswer = strAnswer & j & "、" & Abcd(objRsSingle!答案) & vbCrLf　　j = j + 1　　Chapter

112、(i, n) = Chapter(i, n) - 1　　Level2(i) = Level2(i) - 1　　Count(i) = Count(i) - 1　　If Not IsNull(objRsSingle!圖片) Then _　　strTest = strTest

113、& "本題圖片：" & objRsSingle!圖片　　End If　　End If　　End Select　　Wend&

114、lt;/p>　　Case 2 '選擇多選題　　strTest = strTest & "三、多選題。（共" & txtCount(i) _　　& "，每小題" & txtAvg(i) & "分，共" & txt

115、Score(i) & "分）" & vbCrLf　　strAnswer = strAnswer & "三、多選題。（共" & txtCount(i) _ & "，每小題" & txtAvg(i) & "分，共" & txtScore(i) & &

116、quot;分）" & vbCrLf　　j = 1　　While Count(i) > 0　　'隨即產(chǎn)生一個未選擇的試題的記錄序號　　Do&l

117、t;p>　　If Timer - doTime > 30 Then　　MsgBox "本次生成試題花費時間過長，退出重試！", vbCritical　　Exit Sub　　End If

118、　　n = Int(Rnd * objRsMore.RecordCount + 1)　　Loop Until InStr(Selected, "#" & n & "#") = 0　　Selected = Selected & "#" & n &

119、amp; "#"　　objRsMore.MoveFirst　　objRsMore.Move n - 1　　Select Case objRsMore!難度　　Case 0

120、　If Level0(i) > 0 Then　　'檢查本章試題是否已選夠　　For n = 0 To 3　　If cmbChapter(i).ItemData(n) = objRsMore!章節(jié) Then Exit For　　Next<

121、;/b>　　If Chapter(i, n) > 0 Then　　strTest = strTest & j & "、" & objRsMore!題干 & vbCrLf　　strTest = strTest & " A、&qu

122、ot; & objRsMore!選項1 & vbCrLf　　strTest = strTest & " B、" & objRsMore!選項2 & vbCrLf　　strTest = strTest & " C、" & objRsMore!選項3

123、& vbCrLf　　strTest = strTest & " D、" & objRsMore!選項4 & vbCrLf　　strAnswer = strAnswer & j & "、"　　For more = 0 To

124、 3　　If Mid(objRsMore!答案, more + 1, 1) = "1" Then _　　strAnswer = strAnswer & Abcd(more) & "，"　　Next

125、　　strAnswer = strAnswer & vbCrLf　　j = j + 1　　Chapter(i, n) = Chapter(i, n) - 1　　Level0(i) = Level0(i) - 1

126、;　　Count(i) = Count(i) - 1　　If Not IsNull(objRsMore!圖片) Then _　　strTest = strTest & "本題圖片：" & objRsMore!圖片　　End If</p

127、>　　End If　　Case 1　　If Level1(i) > 0 Then　　'檢查本章試題是否已選夠　　For n = 0 To 3</p&

128、gt;　　If cmbChapter(i).ItemData(n) = objRsMore!章節(jié) Then Exit For　　Next　　If Chapter(i, n) > 0 Then　　strTest = strTest & j &

129、amp; "、" & objRsMore!題干 & vbCrLf　　strTest = strTest & " A、" & objRsMore!選項1 & vbCrLf　　strTest = strTest & " B、" &

130、objRsMore!選項2 & vbCrLf　　strTest = strTest & " C、" & objRsMore!選項3 & vbCrLf　　strTest = strTest & " D、" & objRsMore!選項4 & vbCr

131、Lf　　strAnswer = strAnswer & j & "、"　　For more = 0 To 3　　If Mid(objRsMore!答案, more + 1, 1) = "1" Then _　　strA

132、nswer = strAnswer & Abcd(more) & "，"　　Next　　strAnswer = strAnswer & vbCrLf　　j = j + 1

133、　　Chapter(i, n) = Chapter(i, n) - 1　　Level1(i) = Level1(i) - 1　　Count(i) = Count(i) - 1　　If Not IsNull(objRsMore!圖片) Then _　　st

134、rTest = strTest & "本題圖片：" & objRsMore!圖片　　End If　　End If　　Case 2<p&

135、gt;　　If Level2(i) > 0 Then　　'檢查本章試題是否已選夠　　For n = 0 To 3　　If cmbChapter(i).ItemData(n) = objRsMore!章節(jié) Then Exit For　　Nex

136、t　　If Chapter(i, n) > 0 Then　　strTest = strTest & j & "、" & objRsMore!題干 & vbCrLf　　strTest = strTest & " A

137、、" & objRsMore!選項1 & vbCrLf　　strTest = strTest & " B、" & objRsMore!選項2 & vbCrLf　　strTest = strTest & " C、" & objRsMore!

138、選項3 & vbCrLf　　strTest = strTest & " D、" & objRsMore!選項4 & vbCrLf　　strAnswer = strAnswer & j & "、"　　For more =

139、0 To 3　　If Mid(objRsMore!答案, more + 1, 1) = "1" Then _　　strAnswer = strAnswer & Abcd(more) & "，"　　Next</p&g

140、t;　　strAnswer = strAnswer & vbCrLf　　j = j + 1　　Chapter(i, n) = Chapter(i, n) - 1　　Level2(i) = Level2(i) - 1<

141、p>　　Count(i) = Count(i) - 1　　If Not IsNull(objRsMore!圖片) Then _　　strTest = strTest & "本題圖片：" & objRsMore!圖片　　End If End If

142、　　End Select　　Wend　　Case 3 '選擇填空題　　strTest = strTest & "四、填空題。（共" & txtCount(i) _　　&a

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

數(shù)據(jù)庫原理課程設(shè)計---題庫管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

數(shù)據(jù)庫原理課程設(shè)計---題庫管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費下載