Question

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

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

非常感谢 -neil

Answer 1

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

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)

vb.net中的随机数据库字段

1 个答案: