简易分析：
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 可以看到全部内容

分享是美德
应该推荐

谢谢分享~~~

谢谢分享 ^^     =ˇ=

感谢分享~~