0

「test_gen」というデータベースがあり、「ID」と「質問」のフィールドがあります。

ボタンをクリックするたびに、リストボックスの「質問」フィールドをランダム化したいと思います..これで私を助けてください!

どうもありがとう - ニール

4

1 に答える 1

0

たとえば、データベースを配列として保存したとします。

Dim DB As String() = {"ID1;Question1", "ID2;Question2"}

次に、この関数を呼び出して、ID または質問が必要かどうかを定義できます。

Private Enum GetOption
    Question
    ID
End Enum

Private Function GetQuestion(DB As String(), [option] As GetOption) As String
    Return DB(New Random().[Next](0, DB.Count())).Split(";"C)(If([option].Equals(GetOption.ID), 1, 0))
End Function


Button1.Click += New EventHandler(Function(Sender As Object, e As EventArgs) 
Listbox1.Add(GetQuestion(DB, GetOption.ID))
End Function)
于 2012-08-04T05:33:05.707 に答える