只有判斷題 選擇題 和填空題 應該怎么做
開始 這樣子 對嗎
Private Sub Form_Activate()
Dim cnn As New ADODB.Connection
Dim rst(0 To 2) As New ABODB.Recordset
Dim intType As Integer
Dim no As Integer
Dim answer() As String
Dim choice() As String
Dim done() As Boolean
End Sub
Private Sub Form_Load()
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tiku.mdb;Persist Security Info=False"
cnn.Open strcnn
For i = 0 To 2
rst(i).Open "Selet * from 1 where Type=" & i + 1, cnn, adOpenStatic
Next
Private Sub start()
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/129694.html