VB.NET 中的 Append 文本列表

Question

What's wrong with this code and what should I do to make it work?

'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

How do I make it work properly?

TxtRnd1.AppendText(Environment.NewLine & randomNumberList)

Answer 1

Try writing your code like this: I don't know why you included the If block but I ommited it in this answer. You can add it back if you really need it.

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

Update

Fixed Bad If Block

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