不重复vb.Net随机

Question

我试着做一个小测试程序，从20个问题的数组中随机抽取5个随机问题，而不重复我搜索过的任何一个问题，我发现我需要使用“System.Random()静态”，但它不起作用，但它总是重复相同的问题，我在表单加载时也需要一个初始问题，当单击submit按钮时，其他问题也需要一个，这样它们就不能重叠。

Answer 1

你不需要随机数，而是随机排序的一系列数字。

假设您的问题只是存储在一个字符串数组中，您可以使用LINQ的OrderBy随机地对数字1-20排序，然后使用LINQ的Take随机处理后得到前5个数字。

看一下这个例子：

Dim indices() As Integer = Enumerable.Range(0, questions.Length - 1).OrderBy(Function(i) r.Next()).Take(5).ToArray()

小提琴：现场演示

Answer 2

下面是我试图避免重复的尝试，但它没有工作--这段代码应该从“选取”列表中选择一个随机值，然后从列表中删除该值

Dim ind As New List(Of Integer)
 Dim pick As New List(Of Integer)

For j = 0 To 13
            pick.Add(j)
        Next
        Dim randomvalue As Random = New System.Random
        Randomize()
        For j = 0 To 6
            Dim val = randomvalue.Next(pick(pick.Count - 1))
            ind.Add(val)
            pick.Remove(val)
        Next