Добавить текстовый список в VB.NET

Question

Что не так с этим кодом и что я должен сделать, чтобы он работал?

'Create an instance of the Random class
Dim rnd As New Random()
Dim randomNumberList As New List(Of Integer)

For x As Integer = 1 To 10
    randomNumberList.Add(rnd.Next(0, 81))
    If randomNumberList.Contains(strWords(StrwrVal.Text)) Then
        Exit For
    Else
        TxtRnd1.AppendText(Environment.NewLine & randomNumberList)
    End If
Next

Как мне заставить его работать правильно?

TxtRnd1.AppendText(Environment.NewLine & randomNumberList)

Answer 1

Попробуйте написать свой код следующим образом: я не знаю, почему вы включили блок If, но я опустил его в этом ответе. Вы можете добавить его обратно, если он вам действительно нужен.

Dim rnd As New Random()
Dim randomNumberList As New List(Of Integer)

For x As Integer = 0 To 9
    randomNumberList.Add(rnd.Next(0, 81))
    TxtRnd1.AppendText(Environment.NewLine & CStr(randomNumberList(x)))
Next

Обновление

Исправлено Плохо If Блок

Dim rnd As New Random()
Dim randomNumberList As New List(Of Integer)

For x As Integer = 0 To 9
    Integer tmp = rnd.Next(0, 81)
    If (randomNumberList.Contains(tmp)) Then
        Continue For
    End If
    randomNumberList.Add(tmp)
    TxtRnd1.AppendText(Environment.NewLine & CStr(randomNumberList(x)))
Next