Vb.net 在while循环中使文本转到新行

我有一个richTextbox和一个while循环，x=0，每次循环运行时，x+=1，直到它达到某个值

以下是我希望发生的事情：

而x 10则

它将在新行上显示

item 0+1

，然后在其下的行上显示

item 1+1

，以此类推，因此您将在后面看到所有10个值

发生的情况是，它会将该行更改为新值

我的问题是：我怎样才能把这些词换成新行呢

这是我的密码：

While readListItem <> PaymentList.Items.Count
    If readListItem > PaymentList.Items.Count Then
        readListItem = 0
        Exit While
    End If
    readListItem += 1
    MessageBox.Show(readListItem)
    resultBox.Text = vbNewLine + PaymentList.Items.Item(readListItem) + " costs " + enteredCost + "." + vbNewLine
End While

While readListItem PaymentList.Items.Count
如果readListItem>PaymentList.Items.Count，则
readListItem=0
退出时
如果结束
readListItem+=1
MessageBox.Show（readListItem）
resultBox.Text=vbNewLine+PaymentList.Items.Item（readListItem）+“成本”+输入成本+“+vbNewLine”
结束时

readListItem

是“x”，并且每次循环运行时都以1进行迭代

PaymentList

是包含未知值的我的列表框（用户设置此列表中的项目数）

---

如果有，因为在x=10之后，它会向x添加另一个项目（现在它=11），并尝试打印出第11个项目，因为它不存在，它崩溃了。这是为了防止这种情况。我不想使用try catch

尝试添加新值，而不是替换整个值：

resultBox.Text &= Environment.NewLine() & PaymentList.Items.Item(readListItem) + " costs " + enteredCost + "."

表达式

&=

在本例中等价于

resultBox.Text=resultBox.Text&“…”

一旦得到建议，您可以使用以下条件简化循环：

While readListItem < PaymentList.Items.Count
    '...
End While

当readListItem谢谢！成功了。我现在唯一的另一个问题是让每个价值不等于相同的成本，但这不应该太难，我很乐意帮忙。如果它对你有帮助，考虑和/或投票。如果您对新发行的问题有疑问，请创建一个新问题。