【正文】 mand1_Click() 39。第一題上一題控件不可用End SubPrivate Sub Command2_Click()If = 下一題 Then 39。 \ 39。 39。倒計(jì)時(shí)GetInfoEnd SubPrivate Sub Form_Unload(Cancel As Integer) 39。點(diǎn)擊小圖小圖所對(duì)應(yīng)的大圖在image1顯示Private Sub Image2_Click() = LoadPicture( amp。 (圖片地址2))End SubPrivate Sub Image4_Click() = LoadPicture( amp。 (圖片地址4))End SubPrivate Sub Option1_Click()GetStuAns (1)End SubPrivate Sub Option2_Click()GetStuAns (2)End SubPrivate Sub Option3_Click()GetStuAns (3)End SubPrivate Sub Option4_Click()GetStuAns (4)End SubPrivate Sub Text1_Change()GetStuAns ()End Sub考生輸入答案后保存于數(shù)據(jù)庫(kù)中Private Sub Text2_Change()(考生答案2) = End SubPrivate Sub Text3_Change()(考生答案X) = End SubPrivate Sub Text4_Change()(考生答案Y) = End SubPrivate Sub Text5_Change()(考生答案Z) = End SubPrivate Sub Timer1_Timer() 39。If time = 0 ThenEnd SubFunction Tim(t As Integer) As String 39。 n2 amp。獲取考生選擇的答案存入數(shù)據(jù)庫(kù)(考生答案1) = aEnd FunctionPrivate Sub Timer2_Timer()If time = 5 * 60 Then a = MsgBox(考試時(shí)間僅剩5分鐘請(qǐng)考生檢查試卷, vbOKOnly)End Sub 目選擇窗體 主窗體窗體前端顯示，窗體可以移動(dòng)點(diǎn)擊相應(yīng)的題目名稱主窗體會(huì)顯示相應(yīng)類型的題目點(diǎn)擊提交界面進(jìn)入提交界面39。點(diǎn)擊判斷題。點(diǎn)擊選擇題。點(diǎn)擊草圖題。點(diǎn)擊建模題。點(diǎn)擊裝配題。點(diǎn)擊提交界面。窗體置于屏幕上端正中Private Sub Form_Load()SetWindowPos , amp。窗口可以移動(dòng)Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)ReleaseCaptureSendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0amp。主窗體顯示相應(yīng)題目信息 39。提交試卷Private Sub Command1_Click()If = 提交試卷 Then a = MsgBox(是否確認(rèn)交卷？, vbOKCancel, 提交) If a = 1 Then CalcRes 39。 分 = 結(jié)束 Unload main Unload kaoshi Else Exit Sub End IfElse 39。加載窗體，判斷考生試卷完成情況Private Sub Form_Load() = amp。 i amp。 i amp。判斷題目是否完成For i = 1 To 13 = 1 = i 1 (i 1, 1) = IIf(IsNull((考生答案1)) Or (考生答案1) = , 未完成, 完成) NextEnd SubFunction TiJiao() CalcRes 39。 分 = 結(jié)束 Unload main Unload kaoshi End Function39。題目數(shù)j = 0 39。坐標(biāo)題回答正確坐標(biāo)數(shù) = 姓名 amp。 xh = 班級(jí) amp。檢查判斷題正確性For i = 1 To 5 If (問(wèn)題1答案) = (考生答案1) Then chj = chj + a(1) (i 1, 2) = 正確 (i 1, 3) = a(1) amp。檢查選擇題正確性For i = 6 To 10 If (問(wèn)題1答案) = (考生答案1) Then chj = chj + a(2) (i 1, 2) = 正確 (i 1, 3) = a(2) amp。檢查草圖題正確性If Not (IsNull((考生答案1)) Or (考生答案1) = ) Then If Val((考生答案1)) = Val((問(wèn)題1答案)) * (1 + a(6)) And Val((考生答案1)) = Val((問(wèn)題1答案)) * (1 a(6)) Then chj = chj + a(3) (10, 2) = 正確 (10, 3) = a(3) amp。檢查建模題正確性If Not (IsNull((考生答案1)) Or (考生答案1) = ) Then If Val((考生答案1)) = Val((問(wèn)題1答案) * (1 + a(6))) And Val((考生答案1)) = Val((問(wèn)題1答案)) * (1 a(6)) Then chj = chj + a(4) (11, 2) = 正確 (11, 3) = a(4) amp。檢查裝配題正確性 If Not (IsNull((問(wèn)題1)) Or (問(wèn)題1) = ) Then j = j + 1 If Not (IsNull((考生答案1)) Or (考生答案1) = ) Then If Val((考生答案1)) = Val((問(wèn)題1答案)) * (1 + a(6)) And Val((考生答案1)) = Val((問(wèn)題1答案)) * (1 a(6)) Then l = l + 1 End IfEnd IfIf Not (IsNull((問(wèn)題2)) Or (問(wèn)題2) = ) Then j = j + 1 If Not (IsNull((考生答案2)) Or (考生答案2) = ) Then If Val((考生答案2)) = Val((問(wèn)題2答案)) * (1 + a(6)) And Val((考生答案2)) = Val((問(wèn)題2答案)) * (1 a(6)) Then l = l + 1 End IfEnd IfIf Not (IsNull((問(wèn)題3)) Or (問(wèn)題3) = ) Then j = j + 1 If IsNull((Y)) Or (Y) = Then If (X) = (X) Then l = l + 1 Else If Not (IsNull((考生答案X)) Or (考生答案X) = ) Then If Val((考生答案X)) = 0 Then If Val((考生答案X)) = Val((X)) * (1 + a(6)) And Val((考生答案X)) = Val((X)) * (1 a(6)) Then k = k + 1 Else If Val((考生答案X)) = Val((X)) * (1 a(6)) And Val((考生答案X)) = Val((X)) * (1 + a(6)) Then k = k + 1 End If End If If Not (IsNull((考生答案Y)) Or (考生答案Y) = ) Then If Val((考生答案Y)) = 0 Then If Val((考生答案Y)) = Val((Y)) * (1 + a(6)) And Val((考生答案Y)) = Val((Y)) * (1 a(6)) Then k = k + 1 Else If Val((考生答案Y)) = Val((Y)) * (1 a(6)) And Val((考生答案Y)) = Val((Y)) * (1 + a(6)) Then k = k + 1 End If End If If Not (IsNull((考生答案Z)) Or (考生答案Z) = ) Then If Val((考生答案Z)) = 0 Then If Val((考生答案Z)) = Val((Z)) * (1 + a(6)) And Val((考生答案Z)) = Val((Z)) * (1 a(6)) Then k = k + 1 Else If Val((考生答案Z)) = Val((Z)) * (1 a(6)) And Val((考生答案Z)) = Val((Z)) * (1 + a(6)) Then k = k + 1 End If End If End IfEnd Ifchj = chj + a(5) / j * l + k * a(5) / j / 3If a(5) / j * l + k * a(5) / j / 3 = a(5) Then (12, 2) = 正確 (12, 3) = a(5) amp。 分End IfIf chj 60 Then = RGB(255, 0, 0) 39。姓名Public xh As String 39。班級(jí)Public th As String 39。考試剩余時(shí)間Public s(6) As Single 39。main窗口移動(dòng)Declare Function SendMessage Lib user32 _Alias SendMessageA ( _ByVal hwnd As Long, ByVal wMsg As Long, _ByVal wParam As Long, lParam As Any) As LongPublic Const HTCAPTION = 2Public Const WM_NCLBUTTONDOWN = amp。顯示kaoshi窗口信息Dim bz As IntegerIf IsNull((圖片地址1)) Or (圖片地址1) = Then 39。 (圖片地址1))End If = False = False = False = False39。 th amp。讀取選擇題If th 5 And th = 10 Then = True = False = True = True = 基礎(chǔ)選擇題第 amp。 題 = (題目) = (答案1) = (答案2) = (答案3) = (答案4) = 3800End If39。加載題目信息 If Not (IsNull((A)) Or (B) = ) Then = (題目) amp。 A= amp。 Chr(13) amp。 (B) End If If Not (IsNull((C)) Or (C) = ) Then = amp。 C= amp。 Chr(13) amp。 (D) End If If Not (IsNull((E)) Or (E) = ) Then = amp。 E= amp。If Not (IsNull((F)) Or (F) =