【文章內(nèi)容簡介】 圖片地址3文本圖片地址小圖片地址3文本圖片地址圖片地址4文本圖片地址小圖片地址4文本圖片地址注解：，為方便起見，所有數(shù)據(jù)類型皆為文本，其數(shù)據(jù)類型在VB編程中可以改變。，它存放考生所抽到的題目和所答問題答案，便于整個(gè)程序的調(diào)用和管理，各個(gè)地點(diǎn)所存放的內(nèi)容解釋為“說明”一欄。，若要修改請(qǐng)慎重。 “系統(tǒng)屬性”表結(jié)構(gòu)的建立系統(tǒng)屬性表的存在是便于考官對(duì)整個(gè)試卷的分值、考試的時(shí)間的修改，這個(gè)表可以在該表包括以下幾部分：姓名、學(xué)號(hào)、班級(jí)及成績。Access中表的建立過程大致相同，不再累述，建表如下：如圖235為“系統(tǒng)屬性”表, 表結(jié)構(gòu)設(shè)計(jì)視圖如圖235，圖234 “系統(tǒng)屬性”表圖235 設(shè)計(jì)表中字段設(shè)置結(jié)果 “系統(tǒng)屬性”數(shù)據(jù)表字段的設(shè)置結(jié)果字段屬性數(shù)據(jù)類型說明考試時(shí)間數(shù)字時(shí)間化為秒計(jì)算判斷題每題數(shù)字分值選擇題每題數(shù)字分值草圖題分?jǐn)?shù)數(shù)字分值建模題分?jǐn)?shù)數(shù)字分值裝配題分?jǐn)?shù)數(shù)字分值注解：，所有數(shù)據(jù)類型皆為數(shù)字，其數(shù)據(jù)類型在VB編程中可以改變。：判斷題每題*5+選擇題每題*5+草體題分?jǐn)?shù)+建模題分?jǐn)?shù)+裝配題分?jǐn)?shù)=100。3函數(shù)聲明 公共變量公共模塊中Public xm As String 39。姓名Public xh As String 39。學(xué)號(hào)Public bj As String 39。班級(jí)Public th As String 39。正在考試的題號(hào)Public time As Integer 39?？荚囀Ｓ鄷r(shí)間Public s(6) As Single 39。系統(tǒng)屬性 39。取Counter個(gè)1jishu之間的隨機(jī)數(shù)Function getAllRnd(Counter As Integer, jishu As Integer) As Integer() If (Counter jishu) ThenMsgBox 數(shù)字個(gè)數(shù)不能大于基數(shù)Exit FunctionEnd IfReDim arr(Counter) As Integeri = 0Do While i Counterarr(i + 1) = getRnd(jishu)found = FalseFor X = 1 To iIf arr(X) = arr(i + 1) Thenfound = TrueExit ForEnd IfNextIf Not found Theni = i + 1End IfLoopgetAllRnd = arrEnd FunctionFunction getRnd(i As Integer) As Integer 39。取1i之間的隨機(jī)數(shù)一個(gè)RandomizegetRnd = Int(Rnd() * i + 1)End Function4. 外部程序說明 ．登錄窗體 kaoshi .frm系統(tǒng)進(jìn)入界面，可以輸入姓名、學(xué)號(hào)、班級(jí)，檢查輸入信息保存到數(shù)據(jù)庫后進(jìn)入主界面。學(xué)號(hào)輸入框只能輸入數(shù)字Private Sub Command1_Click()Dim msg As IntegerIf = Then 39。如果沒有輸入姓名 MsgBox (請(qǐng)輸入姓名！) Exit SubEnd IfIf = Then 39。如果沒有輸入學(xué)號(hào) MsgBox (請(qǐng)輸入學(xué)號(hào)！) Exit SubEnd IfIf = Then 39。如果沒有輸入班級(jí) MsgBox (請(qǐng)輸入班級(jí)！) Exit SubEnd Ifmsg = MsgBox(您的姓名是： amp。 amp。 Chr(13) amp。 您的學(xué)號(hào)是： amp。 amp。 Chr(13) amp。 您的班級(jí)是： amp。 , 1 + 64 + 0, 確認(rèn))39。確認(rèn)輸入信息If msg = 1 Then 39。如果確認(rèn)則添加數(shù)據(jù)庫信息 = select * from 考生數(shù)據(jù) where 學(xué)號(hào)=39。 amp。 Val() amp。 39。 39。若已登錄過修改數(shù)據(jù)庫 If 0 Then 39。 (姓名) = (學(xué)號(hào)) = (班級(jí)) = Else = 考生數(shù)據(jù) 39。若新登錄則增加數(shù)據(jù)庫信息 (姓名) = (學(xué)號(hào)) = (班級(jí)) = End If xm = xh = bj = 39。學(xué)生數(shù)據(jù)保存結(jié)束 Unload denglu Load qrxx Else 39。如果取消則重新輸入 = = = End IfEnd SubPrivate Sub Form_Load() = amp。 \ 39。鏈接數(shù)據(jù)庫 = amp。 \End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then End SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then End Sub39。學(xué)號(hào)輸入框只能輸入數(shù)字Private Sub Text2_KeyPress(KeyAscii As Integer)Select Case KeyAscii Case 8 Case vbKeyReturn Case 47 To 57 Case Else KeyAscii = 0End SelectEnd SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then End Sub 抽提窗口 抽提窗體 實(shí)現(xiàn)過程從系統(tǒng)屬性數(shù)據(jù)庫查詢本次考試的系統(tǒng)屬性，考試時(shí)間顯示考生姓名，學(xué)號(hào)，班級(jí)，以便核對(duì)隨機(jī)從數(shù)據(jù)庫中抽取所需要的題目，選擇題答案隨機(jī)打亂，正確答案保存于臨時(shí)考卷數(shù)據(jù)庫中，以便系統(tǒng)閱卷時(shí)使用。Dim arrr() As IntegerDim ar() As Integer39。隨機(jī)抽取數(shù)據(jù)庫某條信息Function RndSql(a As Integer)Dim mCount As Integer 39。由于RecordCount有BUG所以這樣執(zhí)行保險(xiǎn)mCount = 39。記錄DATA1中數(shù)據(jù)總數(shù)If mCount = 0 Then Exit Functionarrr = getAllRnd(a, mCount)End FunctionPrivate Sub Command1_Click() = 開始考試 = False = False = 正在抽取試題，請(qǐng)稍侯。Del_sjkj 39。刪除隨機(jī)考卷數(shù)據(jù)庫中的信息GetSql 39。抽提 = 題目抽取完畢！！End SubPrivate Sub Command2_Click()If = 返回 Then 39。點(diǎn)擊返回，返回登陸窗口 Load denglu Else 39。點(diǎn)擊開始考試 Load main Load kaoshi Load tjjmEnd IfUnload qrxxEnd SubPrivate Sub Form_Load() = amp。 \ = amp。 \ = amp。 \ = 系統(tǒng)屬性s(0) = (考試時(shí)間)s(1) = (判斷題每題分?jǐn)?shù))s(2) = (選擇題每題分?jǐn)?shù))s(3) = (草圖題分?jǐn)?shù))s(4) = (建模題分?jǐn)?shù))s(5) = (裝配題分?jǐn)?shù))s(6) = (容錯(cuò)率)time = Val(s(0)) * 60 = ，考試時(shí)間 amp。 s(0) amp。 分鐘。 amp。 Chr(13) amp。 ，每題 amp。 s(1) amp。 分，共 amp。 s(1) * 5 amp。 分。 amp。 Chr(13) amp。 ，每題 amp。 s(2) amp。 分，共 amp。 s(2) * 5 amp。 分。 amp。 Chr(13) amp。 ，共 amp。 s(3) amp。 分。 amp。 Chr(13) amp。 ，共 amp。 s(4) amp。 分。 amp。 Chr(13) amp。 ，共 amp。 s(5) amp。 分。 amp。 Chr(13) amp。 ，考試時(shí)間結(jié)束系統(tǒng)將自動(dòng)交卷。 = 姓名： amp。 xm = 學(xué)號(hào)： amp。 xh = 班級(jí)： amp。 bjth = 0End SubFunction Del_sjkj() 39。刪除隨機(jī)考卷數(shù)據(jù)庫中的信息Dim num As Integer = 臨時(shí)考卷If Then Exit Function 39。判斷隨機(jī)考卷數(shù)據(jù)庫是否為空num = For i = 1 To numNextEnd FunctionFunction getAllRnd(Counter As Integer, jishu As Integer) As Integer() 39。取Counter個(gè)1jishu之間的隨機(jī)數(shù)If (Counter jishu) ThenMsgBox 數(shù)字個(gè)數(shù)不能大于基數(shù)Exit FunctionEnd IfReDim arr(Counter) As Integeri = 0Do While i Counterarr(i + 1) = getRnd(jishu)found = FalseFor X = 1 To iIf arr(X) = arr(i + 1) Thenfound = TrueExit ForEnd IfNextIf Not found Theni = i + 1End IfLoopgetAllRnd = arrEnd FunctionFunction getRnd(i As Integer) As Integer 39。取1i之間的隨機(jī)數(shù)一個(gè)RandomizegetRnd = Int(Rnd() * i + 1)End FunctionFunction GetSql() 39。隨機(jī)抽題函數(shù)Dim bz As Integer = 臨時(shí)考卷39。抽取理論判斷題 = 判斷題RndSql (5)For i = 1 To 5 arrr(i) 1 (題目) = (題目) (答案1) = (答案) (圖片地址1) = (圖片地址) If (答案) = 正確 Then (問題1答案) = 1 If (答案) = 錯(cuò)誤 Then (問題1答案) = 2 Next39。抽取理論選擇題 = 選擇題RndSql (5)For i = 1 To 5 39。ar為4個(gè)選項(xiàng)隨機(jī)分配號(hào) ar = getAllRnd(4, 4) arrr(i) 1 (題目) = (題目) (答案1) = (答案 amp。 ar(1)) (答案2) = (答案 amp。 ar(2)) (答案3) = (答案 amp。 ar(3)) (答案4) = (答案 amp。 ar(4)) (圖片地址1) = (圖片地址) For j = 1 To 4 If ar(j) = 1 Then (問題1答案) = j Next Next39。抽取草圖題 = 草圖題題目th = 1