Office中国论坛/Access中国论坛

标题: 按条件随机选题的问题 [打印本页]

作者: huang1314 时间: 2011-5-31 13:35
标题: 按条件随机选题的问题
在论坛找到了李寻欢的一个题库系统，关于随机选题问题，代码看得不太懂

下面的选题代码：
Private Sub 自动选择试题_Click()
      Dim intRnd As Integer
      Dim i, j As Long
      Dim IsPrint As Boolean
Set cn = CurrentProject.Connection
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE 试题 SET 试题.是否打印 = " & False & ""
sql1 = "select * from 试题选择"
rs1.Open sql1, cn, 3, 2, 1
rs1.MoveFirst
For i = 1 To rs1.RecordCount
      sql2 = "select * from 试题 where 试题类型1=" & rs1.Fields("试题类型1") & " and 试题类型2=" & rs1.Fields("试题类型2") & ""
      rs2.Open sql2, cn, 3, 2, 1
      IntArray = rs2.RecordCount
      Randomize Timer
      If rs2.RecordCount > 0 Then
         For j = 1 To rs1.Fields("题数")
            rs2.MoveFirst
            intRnd = Int((IntArray - 1) * Rnd(j) + 1)
            rs2.Move intRnd
   Do While True
                  If Not rs2.EOF Then
                     IsPrint = rs2.Fields("是否打印")
                  Else
                     IsPrint = True
                  End If
                  If IsPrint = False Then
                     rs2.Fields("是否打印") = True
                     rs2.Update
         Exit Do
                  Else
                     If rs2.EOF Then
                        rs2.MoveFirst
                     Else
                        rs2.MoveNext
                     End If
                  End If
            Loop
         Next
         rs2.Close
      End If
      rs1.MoveNext
Next
rs1.Close
Set cn = Nothing
DoCmd.SetWarnings True
MsgBox "选择完毕！", vbInformation, Me.Caption
End Sub

这个选择具体看不懂，大概应该是根据“试题类型1”、“试题类型2”两个条件随机不重复选择试题。
现在我想加一个“试题类型3”
根据"试题类型1“、试题类型2”、“试题类型3”三个条件进行随机不重复选择试题，代码应该什么修改。

作者: roych 时间: 2011-5-31 15:59
在sql2的语句中加上And语句：
sql2 = "select * from 试题 where 试题类型1=" & rs1.Fields("试题类型1") & " and 试题类型2=" & rs1.Fields("试题类型2") & " and 试题类型3=" & rs1.Fields("试题类型3") &""

作者: ycxchen 时间: 2011-5-31 21:24
roych热心且水平高，荣升版主可贺！

作者: huang1314 时间: 2011-5-31 23:55

roych 发表于 2011-5-31 15:59
在sql2的语句中加上And语句：
sql2 = "select * from 试题 where 试题类型1=" & rs1.Fields("试题类型1") ...

谢谢，测试成功

作者: sblisb 时间: 2011-6-1 09:45

huang1314 发表于 2011-5-31 13:35
在论坛找到了李寻欢的一个题库系统，关于随机选题问题，代码看得不太懂

下面的选题代码：

例子在哪，偶也下载学习一下

作者: huang1314 时间: 2011-6-1 13:39

sblisb 发表于 2011-6-1 09:45
例子在哪，偶也下载学习一下

搜索李寻欢，就可以找到了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)