Question

我使用以下语句来调整范围内的数据（例如1到10），结果存储在组合框中。

            Dim RndSQs As New Random()
            Dim ArNumbersSQs As Integer() = Enumerable.Range(1, Val(txtSQs.Text)).OrderBy( _

                       Function(x) RndSQs.Next()).ToArray()

            Dim iSQs = 0

            For iSQs = 0 To Val(txtSQs.Text) - 1

                cmbSQs.Items.Add(ArNumbersSQs(iSQs))

            Next iSQs

如何对已经在组合框中但不在范围内的数据进行随机播放。这些没有。可以是随机的。用户应选择。

请指导.......

Answer 1

Enumerable.Range(1, Val(txtSQs.Text))

生成范围，可以被任何IEnumerable替换。例如，如果您有一个名为List(Integer)的{{1}}数字，则可以写：

lst

Answer 2

通常，要对数组进行随机播放，您可以提供自定义排序器：

    Dim random As New Random()
    Array.Sort(elements, Function() As Integer
                               Return random.Next
    End Function)

随机洗牌。在一个组合框中

2 个答案: