按条件随机选题的问题

huang1314

在论坛找到了李寻欢的一个题库系统，关于随机选题问题，代码看得不太懂

下面的选题代码：
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

在sql2的语句中加上And语句：
sql2 = "select * from 试题 where 试题类型1=" & rs1.Fields("试题类型1") & " and 试题类型2=" & rs1.Fields("试题类型2") & " and 试题类型3=" & rs1.Fields("试题类型3") &""

ycxchen

roych热心且水平高，荣升版主可贺！

huang1314

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

谢谢，测试成功

sblisb

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

下面的选题代码：

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

huang1314

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

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