如何更改我的代码工作一定次数？

Question

我的代码从txt文件中获取单词列表并随机选择单词。但是，同一个词可以出现多次，我需要知道如何阻止这种情况的发生？

下面是代码：

Dim aryName As String() = Nothing 
aryName = File.ReadAllLines(Application.StartupPath & "\Random\fnames.txt") 

Dim randomWords As New List(Of String) 
For i = 0 To aryName.Length - 1 
If randomWords.Contains(aryName(i)) = False Then 
    randomWords.Add(aryName(i)) 
End If 
Next 

Dim random As New Random 
Label2.Text = (randomWords(random.Next(0, randomWords.Count - 1)).ToString) 

也许这可能会奏效，虽然它在英语，而不是代码:(

if label1.text is changed then 
    Get label1.text 
    if label.text becomes this word again then 
    run the random code 
    end if 
end if 

Answer 1

这应该避免立即重复：

Dim random As New Random 

'Just create a temporary holder for comparison 
Dim word As String = Label2.Text 

'Run a while loop that works as long as there 
'is no change to the word. This should prevent 
'back to back repeats. 
While word = Label2.Text 
    word = (randomWords(random.Next(0, randomWords.Count - 1)).ToString) 
End While 

Label2.Text = word 

如果你不希望它再次重复，那么你应该从随机词列表中删除已使用的单词

Dim random As New Random 
Label2.Text = (randomWords(random.Next(0, randomWords.Count - 1)).ToString) 
randomWords.Remove(Label2.Text) 

Answer 2

修改你的循环，以防止aryName受骗者从进入randomWords：

For i = 0 To aryName.Length - 1 
    If randomWords.Contains(aryName(i)) = False Then 
     randomWords.Add(aryName(i)) 
    End If 
Next 

Answer 3

可以一）从列表中删除所选的词，或者b）你可以随机排序列表第一。 选项a）已在另一个答案中解决 选项b）可让您保留内存中的所有单词。代码如下：

Dim randomWords As New List(Of String)(File.ReadAllLines(Application.StartupPath & "\Random\fnames.txt")) 

    Dim random As New Random 

    randomWords.Sort(Function(s1 As String, s2 As String) random.Next(-1, 1)) 

    For index As Integer = 0 To randomWords.Count - 1 
     Label2.Text = randomWords(index) 
    Next