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

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

2023年全國(guó)碩士研究生考試考研英語(yǔ)一試題真題（含答案詳解+作文范文）_第1頁(yè)

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

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

文檔簡(jiǎn)介

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

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

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

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

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

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

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

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

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

11、　　數(shù)據(jù)庫(kù)設(shè)計(jì)及維護(hù)　　程序的其它選項(xiàng)設(shè)置　　2.2 功能分析　　1．每創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)將自動(dòng)生成四種題型幾個(gè)各個(gè)章節(jié)的數(shù)據(jù)表，因?yàn)樵阡浫腩}目的時(shí)候要顯示書本章節(jié)信息以供用戶使用。而在

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

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

14、Nothing　　MsgBox "數(shù)據(jù)庫(kù)已成功創(chuàng)建！"　　由于數(shù)據(jù)庫(kù)里章節(jié)的數(shù)量是不定的，故此種數(shù)據(jù)類型的變量必須是一種長(zhǎng)度可變的類型才行。接下來(lái)的問(wèn)題就是把這個(gè)變量記錄的數(shù)據(jù)按一定順序顯示到combobox的控件里了。由于章節(jié)的數(shù)量還是比較多的，所以我選擇了“改進(jìn)的選擇排序”，具體的排序算法代碼實(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．試卷分析的過(guò)程中，要考慮到一張?jiān)嚲砝锩娓鱾€(gè)不同題目所在比例與試題庫(kù)中該類試題占所有試題庫(kù)中的比例之間的差異問(wèn)題，所以在分析的過(guò)程中在成分不足或者成分超過(guò)的情況需要設(shè)置提示，整個(gè)參數(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!編號(hào)<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ù)通過(guò)檢驗(yàn)，統(tǒng)計(jì)各類難度試題數(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ù)通過(guò)檢驗(yàn)，統(tǒng)計(jì)各類難度試題數(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ù)通過(guò)檢驗(yàn)，統(tǒng)計(jì)各類難度試題數(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ù)通過(guò)檢驗(yàn)，統(tǒng)計(jì)各類難度試題數(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;題庫(kù)中難度屬于“難”的題只有<" _　　& 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) & "題庫(kù)中難度屬于“一般”的題只有<" _　　& 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) & "題庫(kù)中難度屬于“容易”的題只有<" _　　& 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　　'取消各個(gè)記錄集的過(guò)慮設(shè)置　　objRsSpace.Filter = ""<p&

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

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

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 '開(kāi)始計(jì)算生成試題時(shí)間　　Abcd = Array("A", "B", "C", "D")　　ReDim Chapter(3, cmbChapter(0).ListCount - 1)<p

56、>　　'計(jì)算各類題型的難度小題數(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　　'計(jì)算個(gè)章節(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é)編號(hào)&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!編號(hào)　　Next　　Next　　'生

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

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

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

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

69、Box "本次生成判斷題花費(fèi)時(shí)間過(guò)長(zhǎng)，退出重試！", 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 & "錯(cuò)誤"　　' 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 & "錯(cuò)誤"　　'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)生一個(gè)未選擇的試題的記錄序號(hào)　　Do　　If Timer - doTime > 30 Then<p

92、>　　MsgBox "本次生成單選題試題花費(fèi)時(shí)間過(guò)長(zhǎng)，退出重試！", 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!選項(xiàng)1 & vbCrLf<

97、;/p>　　strTest = strTest & " B、" & objRsSingle!選項(xiàng)2 & vbCrLf　　strTest = strTest & " C、" & objRsSingle!選項(xiàng)3 & vbCrLf

98、strTest = strTest & " D、" & objRsSingle!選項(xiàng)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!選項(xiàng)1 & vbCrLf　　strTest = strTest & " B、" & objRsSingle!選項(xiàng)2 & vbCrLf　　strTest = strTe

104、st & " C、" & objRsSingle!選項(xiàng)3 & vbCrLf　　strTest = strTest & " D、" & objRsSingle!選項(xiàng)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!選項(xiàng)1 & vbCrLf　　strTest = strTest & "

110、 B、" & objRsSingle!選項(xiàng)2 & vbCrLf　　strTest = strTest & " C、" & objRsSingle!選項(xiàng)3 & vbCrLf　　strTest = strTest & " D、" & o

111、bjRsSingle!選項(xiàng)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)生一個(gè)未選擇的試題的記錄序號(hào)　　Do&l

117、t;p>　　If Timer - doTime > 30 Then　　MsgBox "本次生成試題花費(fèi)時(shí)間過(guò)長(zhǎng)，退出重試！", 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!選項(xiàng)1 & vbCrLf　　strTest = strTest & " B、" & objRsMore!選項(xiàng)2 & vbCrLf　　strTest = strTest & " C、" & objRsMore!選項(xiàng)3

123、& vbCrLf　　strTest = strTest & " D、" & objRsMore!選項(xiàng)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!選項(xiàng)1 & vbCrLf　　strTest = strTest & " B、" &

130、objRsMore!選項(xiàng)2 & vbCrLf　　strTest = strTest & " C、" & objRsMore!選項(xiàng)3 & vbCrLf　　strTest = strTest & " D、" & objRsMore!選項(xiàng)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!選項(xiàng)1 & vbCrLf　　strTest = strTest & " B、" & objRsMore!選項(xiàng)2 & vbCrLf　　strTest = strTest & " C、" & objRsMore!

138、選項(xiàng)3 & vbCrLf　　strTest = strTest & " D、" & objRsMore!選項(xiàng)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

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

溫馨提示

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

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

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

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

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載