VB6 & Access2k 簡易選擇題庫做法

簡易分析：
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 ..

訪客只能看到部份內容，免費 加入會員

x2

分享是美德
應該推薦

x0

謝謝分享~~~

x0

謝謝分享 ^^     =ˇ=

x0

感謝分享~~

x0