0

我有一个名为“test_gen”的数据库......并且有“ID”和“问题”字段。

每次单击按钮时,我都想在列表框中随机化我的“问题”字段..请帮助我!

非常感谢-尼尔

4

1 回答 1

0

说,我们已将您的数据库保存为数组。

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

然后我们可以调用这个函数并定义我们想要 id 还是 question

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 回答