【正文】 (E) End If 39。 Chr(13) amp。 D= amp。 (C) End If If Not (IsNull((D)) Or (D) = ) Then = amp。 Chr(13) amp。 B= amp。 (A) End If If Not (IsNull((B)) Or (B) = ) Then = amp。 Chr(13) amp。讀取草圖題，建模題，裝配題If th 10 And th = 13 Then = False = True 39。 th amp。 題 = (題目) = 正確 = 錯誤 = 2200End If39。讀取判斷題If th = 5 Then = True = False = False = False = 基礎(chǔ)判斷題第 amp。加載圖片信息 = LoadPicture()Else = LoadPicture( amp。HA1 Function GetInfo() 39。系統(tǒng)屬性Declare Function ReleaseCapture Lib user32 () As Long 39。正在考試的題好Public time As Integer 39。學(xué)號Public bj As String 39。如果成績少于60分則紅色顯示End IfEnd Function當(dāng)系統(tǒng)時間到時系統(tǒng)自動提交試卷Private Sub Timer1_Timer()If time = 0 Then TiJiaoEnd Sub 公共模塊Public xm As String 39。 分ElseIf a(5) / j * l + k * a(5) / j / 3 = 0 Then (12, 2) = 錯誤 (12, 3) = 0分Else (12, 2) = 部分正確 (12, 3) = Int(a(5) / j * l + k * a(5) / j / 3) amp。 分 End IfElse (11, 2) = 錯誤 (11, 3) = 0分End If39。 分 End If Else (10, 2) = 錯誤 (10, 3) = 0分End If39。 分 Else (i 1, 2) = 錯誤 (i 1, 3) = 0分 End If Next39。 分 Else (i 1, 2) = 錯誤 (i 1, 3) = 0分 End If Next39。 bj = 4700(2) = 12 * 30 * 3(3) = 12 * 25 * 339。 xm = 學(xué)號 amp?；卮鹫_題目數(shù)k = 0 39。計算成績Function CalcRes()Dim a(6) As SingleDim i, j, k As Integerl = 0 39。計算成績 = 你的成績是： = chj amp。 題Next (10, 0) = 草圖題第11題 (11, 0) = 建模題第12題 (12, 0) = 裝配題第13題 39。 題NextFor i = 6 To 10 (i 1, 0) = 選擇題第 amp。 \ = 臨時考卷 = 2600(0) = 12 * 25 * 6(1) = 12 * 25 * 3For i = 1 To 5 (i 1, 0) = 判斷題第 amp。如果是結(jié)束則結(jié)束考試 Unload main Unload kaoshi Unload MeEnd IfEnd Sub39。計算成績 = 你的成績是： = chj amp。主窗體獲得焦點End Function 提交窗口 實現(xiàn)過程判斷每題的完成情況點擊提交以后系統(tǒng)閱卷判斷題目的正確與否，每題的得分情況并顯示出來計算總成績把學(xué)生信息保存于數(shù)據(jù)庫中Dim chj As Integer39。End Sub主窗體顯示相應(yīng)的題目信息Function MovChos() = True th 1GetInfo 39。HFFFF, 0, 0, 0, 0, 1 ( ) / 2End Sub39?；氐?3題Unload tjjmLoad tjjmEnd Sub39。回第13題th = 13MovChosEnd SubPrivate Sub Command6_Click() 39。回第12題th = 12MovChosEnd SubPrivate Sub Command5_Click() 39?；氐?1題th = 11MovChosEnd SubPrivate Sub Command4_Click() 39?；氐?題th = 6MovChosEnd SubPrivate Sub Command3_Click() 39。回第1題th = 1MovChosEnd SubPrivate Sub Command2_Click() 39。窗口前端顯示Private Declare Function SetWindowPos Lib user32 (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPrivate Sub Command1_Click() 39。 n1End FunctionFunction GetStuAns(a As String) 39。計算剩余時間n1 = Format(t Mod 60, 00)n2 = Format((t \ 60) Mod 60, 00:)n3 = Format(t \ 3600, 00:)Tim = n3 amp。顯示考試倒計時time = time 1(6) = Tim(time) = Fix((11520 240) / 7200 * time + 240)If time 5 * 60 Then = RGB(255, 0, 0)39。 (圖片地址3))End SubPrivate Sub Image5_Click() = LoadPicture( amp。 (圖片地址1))End SubPrivate Sub Image3_Click() = LoadPicture( amp。讓考試界面關(guān)閉按鈕只起到隱藏的作用Load kaoshiEnd Sub39。加載第一題(4) = xm(5) = xh(6) = Tim(time) 39。鏈接數(shù)據(jù)庫 = 臨時考卷 39。加載下一題th = th + 1GetInfoIf th 0 Then = TrueElseUnload tjjmLoad tjjmEnd IfEnd SubPrivate Sub Form_Load()Dim lCurRow As Long, mCount As Longth = 1 = amp。上一題控件代碼th = th 1 th 1GetInfoIf th = 1 Then = False 39。記錄DATA1中數(shù)據(jù)總數(shù)If mCount = 0 Then Exit Functionarrr = getAllRnd(1, mCount) arrr(1) 1(A) = IIf(IsNull((A)) Or (A) = , Null, (A))(B) = IIf(IsNull((B)) Or (B) = , Null, (B))(C) = IIf(IsNull((C)) Or (C) = , Null, (C))If th = 11 Or th = 12 Then If th = 12 Then (D) = IIf(IsNull((D)) Or (D) = , Null, (D)) End If (問題1答案) = (問題答案)End IfIf th = 13 Then(E) = IIf(IsNull((E)) Or (E) = , Null, (E)) (問題1答案) = (問題1答案) If Not (IsNull((問題2)) Or (問題2) = ) Then (問題2答案) = (問題2答案) 39。抽取變量數(shù)據(jù)Dim addr As StringDim mCount As Integeraddr = (數(shù)據(jù)連接) = addr 39。抽取裝配題 = 裝配題題目th = 13RndSql (1) arrr(1) 1(題目) = (題目)(問題1) = (問題1)(數(shù)據(jù)連接) = (數(shù)據(jù)連接)(圖片地址1) = (圖片地址1)(問題2) = IIf(IsNull((問題2)) Or (問題2) = , Null, (問題2))(問題3) = IIf(IsNull((問題3)) Or (問題3) = , Null, (問題3))If Not (IsNull((圖片地址2)) Or (圖片地址2) = ) Then (小圖片地址1) = (小圖片地址1) (圖片地址2) = (圖片地址2) (小圖片地址2) = (小圖片地址2)End IfIf Not (IsNull((圖片地址3)) Or (圖片地址3) = ) Then (小圖片地址3) = (小圖片地址3) (圖片地址3) = (圖片地址3)End IfIf Not (IsNull((圖片地址4)) Or (圖片地址4) = ) Then (小圖片地址4) = (小圖片地址4) (圖片地址4) = (圖片地址4)End If39。(問題2) = IIf(IsNull((問題2)) Or (問題2) = , Null, (問題2))39。抽取草圖題變量數(shù)據(jù)RndABCD39。 ar(4)) (圖片地址1) = (圖片地址) For j = 1 To 4 If ar(j) = 1 Then (問題1答案) = j Next Next39。 ar(2)) (答案3) = (答案 amp。ar為4個選項隨機分配號 ar = getAllRnd(4, 4) arrr(i) 1 (題目) = (題目) (答案1) = (答案 amp。抽取理論判斷題 = 判斷題RndSql (5)For i = 1 To 5 arrr(i) 1 (題目) = (題目) (答案1) = (答案) (圖片地址1) = (圖片地址) If (答案) = 正確 Then (問題1答案) = 1 If (答案) = 錯誤 Then (問題1答案) = 2 Next39。取1i之間的隨機數(shù)一個RandomizegetRnd = Int(Rnd() * i + 1)End FunctionFunction GetSql() 39。判斷隨機考卷數(shù)據(jù)庫是否為空num = For i = 1 To numNextEnd FunctionFunction getAllRnd(Counter As Integer, jishu As Integer) As Integer() 39。 bjth = 0End SubFunction Del_sjkj() 39。 xm = 學(xué)號： amp。 ，考試時間結(jié)束系統(tǒng)將自動交卷。 amp。 s(5) amp。 Chr(13) amp。 分。 ，共 amp