【正文】 構(gòu)與“選擇題”和“判斷題”表的結(jié)構(gòu)就有很大的差別，因?yàn)檫x擇和判斷都有固定的正確答案，而草圖題則要求每個題目對應(yīng)多組數(shù)據(jù)，從而對應(yīng)多組答案，這樣，在考試中即使有不同的考生抽中同一道題目，他們的數(shù)據(jù)很大程度上也不一樣。如圖215為“草圖題題目”表,表結(jié)構(gòu)設(shè)計視圖如圖216，以草圖題1為例說明數(shù)據(jù)表的結(jié)構(gòu)設(shè)計，如圖217為“草圖題1數(shù)據(jù)”表,表結(jié)構(gòu)設(shè)計視圖如圖218。，“序號”和“問題答案”為數(shù)字，A、B、C三項(xiàng)可為數(shù)字可為文本，如需說明則要選擇“文本”，如只是單純的數(shù)字可選擇“數(shù)字”，例如“草圖題8數(shù)據(jù)”表中的“B”數(shù)據(jù)類型即為文本，它要說明的是一個角度如圖219所示。3. 在218中，A、B、C三項(xiàng)一個也不能少，即使有些題目中沒有C也必須在設(shè)計有，這樣做是便于在VB中編程。*.jpg，名稱格式為31,其中第一個3代表判斷題，代表題號，后一個數(shù)字為一個題目有多個圖片設(shè)計。圖219 “草圖題8數(shù)據(jù)”表 “建模題”表結(jié)構(gòu)的建立建模題考察重點(diǎn)是考生建模的精確性。本題采用考察模型體積的方式考察考生建模的正確性。我們同樣采用一題雙表的格式，即所有的建模題目放在一個表中，針對每個建模題的數(shù)據(jù)再建一個表，每個表中有5組數(shù)據(jù)。如圖220為“建模題題目”表,表結(jié)構(gòu)設(shè)計視圖如圖221，以建模題1為例說明數(shù)據(jù)表的結(jié)構(gòu)設(shè)計，如圖222為“建模題1數(shù)據(jù)”表,表結(jié)構(gòu)設(shè)計視圖如圖223。，“序號”和“問題答案”為數(shù)字，A、B、C、D四項(xiàng)可為數(shù)字可為文本，如需說明則要選擇“文本”，如只是單純的數(shù)字可選擇“數(shù)字”，例如“建模題7數(shù)據(jù)”表中的“C”數(shù)據(jù)類型即為文本，它要說明的是一個角度如圖224所示。3. 在223中，A、B、C、D四項(xiàng)一個也不能少，即使有些題目中沒有C、D也必須在設(shè)計有，這樣做是便于在VB中編程。*.jpg，名稱格式為41,其中第一個4代表判斷題，代表題號，后一個數(shù)字為一個題目有多個圖片設(shè)計。圖224 “建模題7數(shù)據(jù)”表 “裝配體”表結(jié)構(gòu)的建立在機(jī)械設(shè)計中，大多數(shù)的零件都不是由單一的零件組成，需要許多零件裝配而成。本題采用考察模型體積和質(zhì)量及裝配題的重心坐標(biāo)的方式考察考生建模的正確性，因此在入手建模時，一定要按照題圖要求保證原點(diǎn)位置和坐標(biāo)朝向，考生還應(yīng)該掌握設(shè)定模型材料和密度的方法。Access中表的建立過程大致都是一樣的，在此不再累述。圖225 “裝配題題目”表圖226 設(shè)計表中字段設(shè)置結(jié)果 “裝配題題目”數(shù)據(jù)表字段的設(shè)置結(jié)果字段名稱數(shù)據(jù)類型說明序號數(shù)字主鍵題目文本圖片地址文本問題1文本問題2文本問題3文本數(shù)據(jù)連接文本圖227 “裝配題1數(shù)據(jù)”表 “裝配1數(shù)據(jù)”數(shù)據(jù)表字段的設(shè)置結(jié)果字段名稱數(shù)據(jù)類型說明序號數(shù)字主鍵A數(shù)字長整型B數(shù)字長整型C文本角度D文本角度E數(shù)字長整型問題1答案數(shù)字雙精度型問題2答案數(shù)字雙精度型X數(shù)字雙精度型Y數(shù)字雙精度型Z數(shù)字雙精度型圖228 設(shè)計表中字段設(shè)置結(jié)果注解：，除“序號”設(shè)為“數(shù)字”外，其余皆為文本，“圖片”也為文本，它的超鏈接在VB中完成，數(shù)據(jù)連接一欄只是標(biāo)示，并無實(shí)際作用。要注意的是“問題1答案”、“問題2答案”、“”X、“Y”、“Z”的字段大小必須為“雙精度型”，因?yàn)閱栴}答案保留小數(shù)點(diǎn)后兩位。4. 在228中，A、B、C、D、E五項(xiàng)一個也不能少，即使有些題目中沒有C、D、E也必須在設(shè)計有，這樣做是便于在VB中編程。*.jpg，名稱格式為51,其中第一個5代表判斷題，代表題號，后一個數(shù)字為一個題目有多個圖片設(shè)計。整個考試系統(tǒng)數(shù)據(jù)庫不僅要包括所有的試卷信息，還必須包括支持程序運(yùn)行的數(shù)據(jù)、程序在運(yùn)行中的狀態(tài)數(shù)據(jù)以及后臺管理數(shù)據(jù)，這些在數(shù)據(jù)庫中要通過表來表達(dá)，依次建表如下：“考生數(shù)據(jù)”表、“臨時考卷”表及“系統(tǒng)屬性”表。這個表可以在Access中新建，也可以通過插入方式從其他地方調(diào)入。Access中表的建立過程大致相同，不再累述，建表如下：如圖229為“考生數(shù)據(jù)”表,表結(jié)構(gòu)設(shè)計視圖如圖230，圖229“考生數(shù)據(jù)”表圖230 設(shè)計表中字段設(shè)置結(jié)果 “考生數(shù)據(jù)”數(shù)據(jù)表字段的設(shè)置結(jié)果字段名稱數(shù)據(jù)類型說明姓名文本255學(xué)號文本255班級文本255成績數(shù)字雙精度型注解：，除成績?yōu)閿?shù)字外，其他皆為文本，其中“學(xué)號”字段為主鍵。點(diǎn)擊“外部數(shù)據(jù)”菜單，單擊，即出現(xiàn)如圖231所示“獲取外部數(shù)據(jù)Access數(shù)據(jù)庫”對話框。圖232 “打開”對話框圖233 “導(dǎo)入對象”（3）.選中所要添加的表，點(diǎn)擊“確定”按鈕，所選中的表即被加入到數(shù)據(jù)庫中。該表包括內(nèi)容較多，具體為以下幾部分：答案答案答案答案數(shù)據(jù)連接、問題問題問題題目、提示、A、B、C、D、E、問題1答案、問題2答案、X、Y、Z、考生答案考生答案考生答案X、考生答案Y、考生答案Z、圖片地址小圖片地址圖片地址小圖片地址圖片地址小圖片地址圖片地址小圖片地址4。，它存放考生所抽到的題目和所答問題答案，便于整個程序的調(diào)用和管理，各個地點(diǎn)所存放的內(nèi)容解釋為“說明”一欄。 “系統(tǒng)屬性”表結(jié)構(gòu)的建立系統(tǒng)屬性表的存在是便于考官對整個試卷的分值、考試的時間的修改，這個表可以在該表包括以下幾部分：姓名、學(xué)號、班級及成績。：判斷題每題*5+選擇題每題*5+草體題分?jǐn)?shù)+建模題分?jǐn)?shù)+裝配題分?jǐn)?shù)=100。姓名Public xh As String 39。班級Public th As String 39?？荚囀Ｓ鄷r間Public s(6) As Single 39。取Counter個1jishu之間的隨機(jī)數(shù)Function getAllRnd(Counter As Integer, jishu As Integer) As Integer() If (Counter jishu) ThenMsgBox 數(shù)字個數(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。學(xué)號輸入框只能輸入數(shù)字Private Sub Command1_Click()Dim msg As IntegerIf = Then 39。如果沒有輸入學(xué)號 MsgBox (請輸入學(xué)號！) Exit SubEnd IfIf = Then 39。 amp。 您的學(xué)號是： amp。 Chr(13) amp。 , 1 + 64 + 0, 確認(rèn))39。如果確認(rèn)則添加數(shù)據(jù)庫信息 = select * from 考生數(shù)據(jù) where 學(xué)號=39。 Val() amp。 39。 (姓名) = (學(xué)號) = (班級) = Else = 考生數(shù)據(jù) 39。學(xué)生數(shù)據(jù)保存結(jié)束 Unload denglu Load qrxx Else 39。 \ 39。 \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。Dim arrr() As IntegerDim ar() As Integer39。由于RecordCount有BUG所以這樣執(zhí)行保險mCount = 39。Del_sjkj 39。抽提 = 題目抽取完畢?。nd SubPrivate Sub Command2_Click()If = 返回 Then 39。點(diǎn)擊開始考試 Load main Load kaoshi Load tjjmEnd IfUnload qrxxEnd SubPrivate Sub Form_Load() = amp。 \ = amp。 s(0) amp。 amp。 ，每題 amp。 分，共 amp。 分。 Chr(13) amp。 s(2) amp。 s(2) * 5 amp。 amp。 ，共 amp。 分。 Chr(13) amp。 s(4) amp。 amp。 ，共 amp。 分。 Chr(13) amp。 = 姓名： amp。 xh = 班級： amp。刪除隨機(jī)考卷數(shù)據(jù)庫中的信息Dim num As Integer = 臨時考卷If Then Exit Function 39。取Counter個1jishu之間的隨機(jī)數(shù)If (Counter jishu) ThenMsgBox 數(shù)字個數(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。隨機(jī)抽題函數(shù)Dim bz As Integer = 臨時考卷39。抽取理論選擇題 = 選擇題RndSql (5)For i = 1 To 5 39。 ar(1)) (答案2) = (答案 amp。 ar(3)) (答案4) = (答案 amp。抽取草圖題 = 草圖題題目th = 11RndSql (1) arrr(1) 1(題目) = (題目)(問題1) = (問題)(數(shù)據(jù)連接) = (數(shù)據(jù)連接)(圖片地址1) = (圖片地址)39。抽取建模題 = 建模題題目th = 12RndSql (1) arrr(1) 1(題目) = (題目)(問題1) = (問題1)(數(shù)據(jù)連接) = (數(shù)據(jù)連接)(提示) = (提示)(圖片地址1) = (圖片地址)39。抽取建模題變量數(shù)據(jù)RndABCD39。抽取建模題變量數(shù)據(jù)RndABCDEnd FunctionFunction RndABCD() 39。由于RecordCount有BUG所以這樣執(zhí)行保險mCount = 39。If Not (IsNull((問題3)) Or (問題3) = ) Then (答案3) = (問題3答案) If Not (IsNull((問題3)) Or (問題3) = ) Then (X) = (X) (Y) = (Y) (Z) = (Z) End IfEnd IfEnd Function 考試窗體（主窗體） kaoshi .frm考試界面1 考試界面2顯示系統(tǒng)倒計時顯示考生姓名，學(xué)號識別不同的題目類別，而顯示相對應(yīng)的窗體界面學(xué)生輸入答案進(jìn)行保存關(guān)閉此窗口時只起到隱藏的作用檢索數(shù)據(jù)庫中題目的問題數(shù)及答案從數(shù)據(jù)庫調(diào)取題目信息顯示于界面當(dāng)裝配題有多幅圖時能夠顯示出并點(diǎn)擊小圖大圖窗口能顯示考生點(diǎn)擊的大圖當(dāng)考試時間僅5分鐘時彈出提示對話框，時間進(jìn)度條顏色改為紅色 程序代碼Private Sub Com