我有一个名为“test_gen”的数据库......并且有“ID”和“问题”字段。
每次单击按钮时,我都想在列表框中随机化我的“问题”字段..请帮助我!
非常感谢-尼尔
说,我们已将您的数据库保存为数组。
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)