簡易分析：
1.從資料庫取出題目與答案
2.隨機取出(防止重覆處理暫時不寫)
3.答對時給予訊息(計分方式暫時不寫)
4.放棄題目，重新取出一組


Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ssql As String, ans As String
Dim i As Integer
Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 1
            ref
        Case 2
            If ans = rs.Fields(6).Value Then MsgBox "答對了!!"
            For i ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

分享是美德
應該推薦

謝謝分享~~~

謝謝分享 ^^     =ˇ=

感謝分享~~