随即选题的程序已经写出了,就是不知道怎么进行数据库中表格的选择性复制程序
随即选数的程序:
Private Sub Command1_Click()
Dim a(9) As Integer, i As Integer, j As Integer
Randomize
For i = 0 To 9
a(i) = Rnd * 10
For j = 0 To i
If ij And a(i) = a(j) Then i = i - 1
Next
Next
End Sub
将数组a()最为选择出的题号,将表格Tka中这些题号的题复制到表Mnuda中。谁能帮我做个这部分的代码啊,感激不禁。QQ394910945