我把單詞放在數據庫裏(aa.mdb),程序任意抽10個,工程文件我已發給妳
代碼:
Dim adocn As New ADODB.Connection
Dim a(1 To 5)
Dim n As Integer
Dim j As Integer
Private Sub Form_Load()
adocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;Persist Security Info=False"
End Sub
Private Sub Command1_Click()
Timer1.Interval = 500
Call cha
End Sub
Private Sub Timer1_Timer()
If Label6.Caption = 0 Then
For z = 1 To 5
If Controls("text" & z) = a(z) Then n = n + 1
Next
j = j + 1
Call cha
Else
Label6.Caption = Label6.Caption - 1
End If
If j = 2 Then
MsgBox "分數是" & n
Timer1.Interval = 0
End If
End Sub
Private Sub cha()
For z = 1 To 5
Controls("text" & z).Text = ""
Next
adocn.Open
Dim rs As New ADODB.Recordset
Dim strSql As String
For i = 1 To 5
Randomize
strSql = "select * from ss where 編號=" & Int(Rnd * 35 + 1) '35指的是總***題目數
rs.Open strSql, adocn, 3, 3
Controls("label" & i).Caption = rs.Fields("題")
a(i) = rs.Fields("答案")
Set rs = Nothing
Next
adocn.Close
Label6.Caption = 30
End Sub
我已發,並且我試驗了,兩組後自動結束