0

我已经找到并修改了以下代码，它运行良好，但需要更多我无法弄清楚的修改。我希望它在相同的值编号内随机排序。基本上我想要它做的是随机排序所有内容，然后按值按降序对所有内容进行分组（或列出）。例如，您将有一个名称和一个值，但它可能看起来像这样。名字 2，名字 2，名字 2，名字 3，名字 4，名字 4，名字 4，名字 5，名字 8，名字 8，等等。在它结束之前，我可以有大约 500 个名字，大约 8 0r 9 个不同的值因此每个值组中大约有 90 个名称

     Public Class Form1

Dim ListOfValues As New List(Of List(Of String))
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.txtA1.Focus()
End Sub

Private Sub AddTB(row As Integer, column As Integer, start As Char)
    Dim tb As New TextBox
    Dim offset As Integer = Math.Sign(Asc(start) - 65) * (100 + tb.Width * 3)
    tb.Name = "txt" & Chr(row + Asc(start)) & column.ToString
    tb.Text = tb.Name
    tb.Location = New Point(((column - 1) * tb.Width) + offset, (row * tb.Height))
    Me.Controls.Add(tb)
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Button1.Enabled = True
    For I = 0 To 9
        ListOfValues.Add({Me.Controls("txt" & Chr(I + 65) & "1").Text, _
                          Me.Controls("txt" & Chr(I + 65) & "2").Text}.ToList)

    Next
    ListOfValues = ShuffleInfo(ListOfValues)
    'This fills the other textboxes with the data from the shuffled list
    For I = 0 To 9
        Me.Controls("txt" & Chr(I + 77) & "1").Text = ListOfValues(I)(0)
        Me.Controls("txt" & Chr(I + 77) & "2").Text = ListOfValues(I)(1)

    Next
End Sub

Private Function ShuffleInfo(ValuesToShuffle As List(Of List(Of String))) As List(Of List(Of String))
    'this follows the same basic routine you were using, swapping each item with a random item.
    Dim rand As New Random(Now.Millisecond)

    For counter = 0 To ValuesToShuffle.Count - 1
        Dim n = rand.Next(counter + 1)
        Dim temp As List(Of String) = ValuesToShuffle(counter)
        ValuesToShuffle(counter) = ValuesToShuffle(n)
        ValuesToShuffle(n) = temp
    Next
    ShuffleInfo = ValuesToShuffle
    Button1.Enabled = False
End Function
End Class

在此处输入图像描述

4

1 回答 1

1

LINQ 在这里很方便。看看这是否有帮助：

替换这一行：

ListOfValues = ShuffleInfo(ListOfValues)

有了这条线：

ListOfValues = (From data In ShuffleInfo(ListOfValues)
                    Order By data(1) Descending).ToList

这将按列表中每个项目的第二个元素对列表进行分组，但在每个分组中保持随机顺序。

从这样的事情：

C 3
B 1
C 1
B 2
C 2
A 3
A 2
B 3
A 1

你得到这个：

C 3
A 3
B 3
B 2
C 2
A 2
B 1
C 1
A 1
于 2013-11-13T03:53:10.673 回答