在vb.net中隨機化mcq？

Question

我需要生成隨機問題和答案。

這裏的ASPX代碼

<asp:Label ID="lblQuestion" runat="server" Text="Label"></asp:Label> 
    <br /> 
    <asp:RadioButton ID="RadioButton1" runat="server" /> 
    <br /> 
    <asp:RadioButton ID="RadioButton2" runat="server" /> 
    <br /> 
    <asp:RadioButton ID="RadioButton3" runat="server" /> 
    <br /> 
    <asp:RadioButton ID="RadioButton4" runat="server" /> 
    <br /> 
    <asp:Button ID="Button1" runat="server" Text="Button" /> 

這裏的VB代碼

Public Property Counter() As Integer 
    Get 
     Return IIf(ViewState("counter") Is Nothing, 1, CInt(ViewState("counter"))) 
    End Get 
    Set(ByVal value As Integer) 
     ViewState("counter") = value 
    End Set 
End Property 
Sub question() 
    conn.Open() 
    Dim cmd As New SqlCommand("Select * From questionbank Where id=@Idquestion", conn) 
    cmd.Parameters.AddWithValue("@Idquestion", Counter) 
    Dim dr1 As SqlDataReader 
    dr1 = cmd.ExecuteReader 
    Try 

     While dr1.Read() 
      Me.lblSoalan.Text = dr1("question") 
      Me.RadioButton1.Text = dr1("rightanswer") 
      Me.RadioButton2.Text = dr1("wrong1") 
      Me.RadioButton3.Text = dr1("wrong2") 
      Me.RadioButton4.Text = dr1("wrong3") 

     End While 
    Catch ex As Exception 
     MsgBox("Error", MsgBoxStyle.Exclamation, "Error") 
    Finally 
     conn.Close() 
    End Try 
End Sub 

我有一組問題。用戶需要點擊下一個按鈕才能移動到另一個問題。我希望系統在每次用戶嘗試回答同一組問題時隨機化問題

Answer 1

在執行SELECT語句之前，您需要隨機化問題的ID。當一個隨機值替換您的Counter。使用CInt(Math.Ceiling(Rnd() * n)) 0和N（含）之間，以獲得一個隨機整數值

cmd.Parameters.AddWithValue("@Idquestion", CInt(Math.Ceiling(Rnd() * n)))