随机组卷

<p>Function IDArrlist() As Integer<br> '先根据表TestInfo中的CourseType和Type项目索引出试题的Id号码，组成一个以逗号为分隔符的字符串<br> db.DbConn.Open()<br> db.DbCmd.CommandText = "select id from testinfo where <a href="mailto:CourseType=@kecheng">CourseType=@kecheng</a> and <a href="mailto:type=@leixing">type=@leixing</a>"<br> db.DbCmd.Parameters.Add("@kecheng", KcName.SelectedValue)<br> db.DbCmd.Parameters.Add("@leixing", Type.SelectedValue)<br> Dim dr As SqlClient.SqlDataReader = db.DbCmd.ExecuteReader<br> ltID.Text = ""<br> While dr.Read<br> ltID.Text += dr(0) & ","<br> End While<br> Session.Add("ID", ltID.Text)<br> db.DbConn.Close()</p>
<p><br> '******开始调用相关函数****</p>
<p> 'ChuLiStr()<br> '*********结束*************<br> Dim StrId As String = Session("id")<br> Dim Num As Integer = 2</p>
<p><br> Dim str() As String = StrId.Replace("(", "").Replace(")", "").Split(",")<br> Dim ArrNum As Integer = str.Length<br> Select Case Type.SelectedValue<br> Case "选择"<br> Session("xz") = ""<br> LtXiaoTi.Text += "《选择题》" & "<br>"<br> Case "判断"<br> Session("pd") = ""<br> LtXiaoTi.Text += "《判断题》" & "<br>"<br> Case "填空"<br> Session("tk") = ""<br> LtXiaoTi.Text += "《填空题》" & "<br>"<br> End Select<br> For Num = 1 To CInt(txtNUm.Text)<br> Dim i As Integer = CInt(Int((ArrNum - 1 + 1) * Rnd() + 1))</p>
<p> db.DbConn.Close()<br> db.DbConn.Open()</p>
<p> db.DbCmd.CommandText = "select * from testinfo where id=" & str(i)</p>
<p> Dim SdrDr As SqlClient.SqlDataReader = db.DbCmd.ExecuteReader</p>
<p> While SdrDr.Read</p>
<p> Select Case Type.SelectedValue<br> Case "选择"</p>
<p> LtXiaoTi.Text += "【" & SdrDr(0) & "】、" & SdrDr(1) & "<br>"<br> Session.Add("xz", LtXiaoTi.Text)<br> Case "判断"</p>
<p> LtXiaoTi.Text += "【" & SdrDr(0) & "】、" & SdrDr(1) & "<br>"<br> Session.Add("pd", LtXiaoTi.Text)<br> Case "填空"</p>
<p> LtXiaoTi.Text += "【" & SdrDr(0) & "】、" & SdrDr(1) & "<br>"<br> Session.Add("tk", LtXiaoTi.Text)<br> End Select</p>
<p> End While<br> 'Response.Write("这是下标" & i & "值" & str(i))<br> Next<br> End Function</p>