0xDe

[Visual Basic 6.0] TQC 企業人才技能認證 Visual Basic 程式設計 - 403 出題測驗系統

'題目及答案如下:(標準答案列於題號之前)
' C  1. 評估求職者能力標準的認證，除了IQ、EQ、TQC測驗外，還有
'       (A)  AEC認證
'       (B)  CAE認證
'       (C)  ACE認證
'       (D)  ECA認證
' B  2. ACE專業工程師認證是那一個單位舉辦認證的
'       (A)  台北市電腦公會
'       (B)  財團法人中華民國電腦技能基金會
'       (C)  台灣歐特克股份有限公司
'       (D)  台灣微軟股份有限公司
' D  3. ACE專業工程師認證包含那些類別
'       (A)  工程製圖工程師、系統規劃工程師
'       (B)  機械設計工程師、歐特克全方位工程師
'       (C)  程式設計工程師、網頁編輯設計師、美術排版設計工程師
'       (D)  以上皆是
' C  4. AutoCAD 機械設計工程師應考
'       (A)  R14 3D
'       (B)  Word 文件控管
'       (C)  MDT
'       (D)  Autolisp
' A  5. 程式語言對AutoCAD R14系統規劃工程師相當重要，所以要考
'       (A)  Autolisp
'       (B)  MDT
'       (C)  Excel零件庫處理
'       (D)  Word文件控管
Dim 目前作答的題目, 正確的題數, 目前顯示的圖片
Private Sub cmdNext_Click()
cmdNext.Caption = "下一題" ' 因為一開始設置是 "開始測驗" 按開始測驗後接著就變成 "下一題"

目前作答的題目 = 目前作答的題目 + 1

Select Case 目前作答的題目
    Case 1
        lblTopic.Caption = "1. 評估求職者能力標準的認證，除了IQ、EQ、TQC測驗外，還有"
        optAns(0).Caption = "(A)  AEC認證"
        optAns(1).Caption = "(B)  CAE認證"
        optAns(2).Caption = "(C)  ACE認證"
        optAns(3).Caption = "(D)  ECA認證"
    Case 2
        lblTopic.Caption = "2. ACE專業工程師認證是那一個單位舉辦認證的"
        optAns(0).Caption = "(A)  台北市電腦公會"
        optAns(1).Caption = "(B)  財團法人中華民國電腦技能基金會"
        optAns(2).Caption = "(C)  台灣歐特克股份有限公司"
        optAns(3).Caption = "(D)  台灣微軟股份有限公司"
    Case 3
        lblTopic.Caption = "3. ACE專業工程師認證包含那些類別"
        optAns(0).Caption = "(A)  工程製圖工程師、系統規劃工程師"
        optAns(1).Caption = "(B)  機械設計工程師、歐特克全方位工程師"
        optAns(2).Caption = "(C)  程式設計工程師、網頁編輯設計師、美術排版設計工程師"
        optAns(3).Caption = "(D)  以上皆是"
    Case 4
        lblTopic.Caption = "4. AutoCAD 機械設計工程師應考"
        optAns(0).Caption = "(A)  R14 3D"
        optAns(1).Caption = "(B)  Word 文件控管"
        optAns(2).Caption = "(C)  MDT"
        optAns(3).Caption = "(D)  Autolisp"
    Case 5
        lblTopic.Caption = "5. 程式語言對AutoCAD R14系統規劃工程師相當重要，所以要考"
        optAns(0).Caption = "(A)  Autolisp"
        optAns(1).Caption = "(B)  MDT"
        optAns(2).Caption = "(C)  Excel零件庫處理"
        optAns(3).Caption = "(D)  Word文件控管"
End Select

If 目前作答的題目 > 1 Then ' > 1 表示 已經作答完第 目前作答題目 - 1 題 則需要判斷對還錯
    答對 = False
    Select Case 目前作答的題目 - 1
        Case 1 ' C = 2
            If optAns(2).Value = True Then 答對 = True
        Case 2 ' B = 1
            If optAns(1).Value = True Then 答對 = True
        Case 3 ' D = 3
            If optAns(3).Value = True Then 答對 = True
        Case 4 ' C = 2
            If optAns(2).Value = True Then 答對 = True
        Case 5 ' A = 0
            If optAns(0).Value = True Then 答對 = True
    End Select
    If 答對 Then 正確的題數 = 正確的題數 + 1
End If

End Sub
'答對題數訊息框的訊息
'其訊息框的標題為"ＡＣＥ大考驗！",答對題數為n題
'若答對4題以上（含4題）,則顯示"恭喜你！你答對了n題！"
'否則顯示"對不起，你只有對了n題，請下一次再來！必能更上一層樓！"
Private Sub cmdEnd_Click()

Select Case 正確的題數
    Case Is > 4
        MsgBox "恭喜你! 你答對了 5題", , "ACE大考驗!"
        End
    Case Else
        MsgBox "對不起，你只有對了" & 正確的題數 & "題，請下次再來!必能更上一層樓!", , "ACE大考驗!"
        End
End Select

End Sub

Private Sub Form_Load() ' 初始值
目前顯示的圖片 = 0
正確的題數 = 0
目前作答的題目 = 0
End Sub

Private Sub Timer1_Timer()
imgACE(目前顯示的圖片).Visible = False
目前顯示的圖片 = 目前顯示的圖片 + 1
If 目前顯示的圖片 > 5 Then 目前顯示的圖片 = 0
imgACE(目前顯示的圖片).Visible = True
End Sub

403 詳細講義.rar

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問