随机组卷

Function IDArrlist() As Integer
        '先根据表TestInfo中的CourseType和Type项目索引出试题的Id号码，组成一个以逗号为分隔符的字符串
        db.DbConn.Open()
        db.DbCmd.CommandText = "select id from testinfo where CourseType=@kecheng and type=@leixing"
        db.DbCmd.Parameters.Add("@kecheng", KcName.SelectedValue)
        db.DbCmd.Parameters.Add("@leixing", Type.SelectedValue)
        Dim dr As SqlClient.SqlDataReader = db.DbCmd.ExecuteReader
        ltID.Text = ""
        While dr.Read
            ltID.Text += dr(0) & ","
        End While
        Session.Add("ID", ltID.Text)
        db.DbConn.Close()

        '******开始调用相关函数****

        'ChuLiStr()
        '*********结束*************
        Dim StrId As String = Session("id")
        Dim Num As Integer = 2

        Dim str() As String = StrId.Replace("(", "").Replace(")", "").Split(",")
        Dim ArrNum As Integer = str.Length
        Select Case Type.SelectedValue
            Case "选择"
                Session("xz") = ""
                LtXiaoTi.Text += "《选择题》" & "<br>"
            Case "判断"
                Session("pd") = ""
                LtXiaoTi.Text += "《判断题》" & "<br>"
            Case "填空"
                Session("tk") = ""
                LtXiaoTi.Text += "《填空题》" & "<br>"
        End Select
        For Num = 1 To CInt(txtNUm.Text)
            Dim i As Integer = CInt(Int((ArrNum - 1 + 1) * Rnd() + 1))

            db.DbConn.Close()
            db.DbConn.Open()

            db.DbCmd.CommandText = "select * from testinfo where id=" & str(i)

            Dim SdrDr As SqlClient.SqlDataReader = db.DbCmd.ExecuteReader

            While SdrDr.Read

                Select Case Type.SelectedValue
                    Case "选择"

                        LtXiaoTi.Text += "【" & SdrDr(0) & "】、" & SdrDr(1) & "<br>"
                        Session.Add("xz", LtXiaoTi.Text)
                    Case "判断"

                        LtXiaoTi.Text += "【" & SdrDr(0) & "】、" & SdrDr(1) & "<br>"
                        Session.Add("pd", LtXiaoTi.Text)
                    Case "填空"

                        LtXiaoTi.Text += "【" & SdrDr(0) & "】、" & SdrDr(1) & "<br>"
                        Session.Add("tk", LtXiaoTi.Text)
                End Select

            End While
            'Response.Write("这是下标" & i & "值" & str(i))
        Next
    End Function