網(wǎng)上考試系統(tǒng)的設(shè)計與實現(xiàn)畢業(yè)論文(編輯修改稿)
2024-07-22 16:09 本頁面
【文章內(nèi)容簡介】 軟件工程：字段名字段類型大小說明題目類型文本101為單選、2為多選、3為判斷、4為填空題目序號自動編號題目在試卷中的順序號題目文本200本題分值文本10選項1文本200選項2文本200選項3文本200選項4文本200正確答案文本200數(shù)據(jù)結(jié)構(gòu)：字段名字段類型大小說明題目類型文本 101為單選、2為多選、3為判斷、4為填空題目序號自動編號題目在試卷中的順序號題目文本200本題分值文本10選項1文本200選項2文本200選項3文本200選項4文本200正確答案文本200數(shù)據(jù)庫：字段名字段類型大小說明題目類型文本101為單選、2為多選、3為判斷、4為填空題目序號自動編號題目在試卷中的順序號題目文本200本題分值文本10選項1文本200選項2文本200選項3文本200選項4文本200正確答案文本200試卷信息表：字段名字段類型大小說明數(shù)據(jù)庫文本50數(shù)據(jù)結(jié)構(gòu)文本50軟件工程文本50系統(tǒng)管理員的工作添加題庫試題維護題庫試題添加教師信息維護教師信息教師的工作組卷維護試卷試題查詢學(xué)生信息查看各種題庫添加學(xué)生信息網(wǎng)上考試系統(tǒng)維護學(xué)生信息（1）登錄①登錄流程圖登錄用戶名和密碼存在否 重新輸入用戶名、密碼YN N提示：用戶名或密碼錯誤輸入是否三次YY生成試題提示窗口提示：輸入三次并退出②登錄界面（管理員或教師操作）（2）自動生成試卷①生成試卷窗體流程圖：生成試卷否進入主窗體提示：請選擇要生成試卷的名稱 是否已選擇生成試卷名稱是否選中生成試卷的方式提示：請選擇生成的方式生成試卷窗體NNYYY選擇生成試卷的方式選擇生成試卷的名稱N②生成試卷的界面③生成試卷的代碼（以生成數(shù)據(jù)庫的試卷為例）Dim j As Integer, s As Integer, n As Integer, m As IntegerPrivate Sub Combo1_Click()p = End SubPrivate Sub Combo2_Click()q = End SubPrivate Sub Command1_Click()If = False And = False Then MsgBox 請選擇生成試卷的方式, , 提示End IfIf = True Then If = 1 Then MsgBox 請選擇您要生成的試卷的名稱, , 提示: Exit Sub ElseIf = True ThenIf = 1 Then MsgBox 請選擇您要生成的試卷的名稱, , 提示Dim txtsql As StringDim mrc As Dim txtsql1 As StringDim mrc1 As Dim a(10) As LongDim b(10) As LongDim d(10) As StringDim c(10) As StringDim txtsql2 As StringDim mrc2 As Dim txtsql3 As StringDim mrc3 As Dim txtsql4 As StringDim mrc4 As If q = 數(shù)據(jù)庫 Thentxtsql = Trim(select * from 數(shù)據(jù)庫)Set mrc = executesql(txtsql) For i = 1 To 31: x = Int(Rnd * 9 + 1) For t = 1 To i 1 If x = a(t) Then GoTo 1 End If Next t a(i) = x txtsql1 = Trim(select * from 單選題庫 where 題號= amp。 a(i) amp。 and 專業(yè)=39。 amp。 amp。 39。) Set mrc1 = executesql(txtsql1) If = True Then GoTo 1 (0) = 1 (2) = (1) (3) = (2) (4) = (3) (5) = (4) (6) = (5) (7) = (6) (8) = (7) Next i MsgBox q amp。 試卷單選題已生成, , 提示 For i = 1 To 32: x = Int(Rnd * 9 + 1) For t = 1 To i 1 If x = b(t) Then GoTo 2 End If Next t b(i) = x txtsql2 = Trim(select * from 多選題庫 where 題號= amp。 b(i) amp。 and 專業(yè)=39。 amp。 amp。 39。) Set mrc2 = executesql(txtsql2) If = True Then GoTo 2 (0) = 2 (2) = (1) (3) = (2) (4) = (3) (5) = (4) (6) = (5) (7) = (6) (8) = (7)
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1