在 Do 循环中使用 If 语句时如何防止无限循环？

Question

我正在尝试制作一个简单的程序，将循环的输出显示到列表框的内部。用户将在 From 文本框中输入一个数字。他们会在 To 文本框中输入一个数字。我需要一个条件，仅当 From 数字小于 To 数字时才允许程序继续。该程序一直运行到 From 数字大于 To 数字，然后它似乎陷入了无限循环。代码如下所示：

    Dim intFrom As Integer
    Dim intTo As Integer
    Dim intNum As Integer = 1
    Integer.TryParse(txtFrom.Text, intFrom)
    Integer.TryParse(txtTo.Text, intTo)
    lstNumbers.Items.Clear()
    Do
        If intFrom < intTo Then
            lstNumbers.Items.Add(intNum)
            intNum += 1
        End If
    Loop Until intNum > intTo

End Sub

Answer 1

如果您的条件为假，您可以跳过循环

    Dim intFrom As Integer
    Dim intTo As Integer
    Dim intNum As Integer = 1
    Integer.TryParse(txtFrom.Text, intFrom)
    Integer.TryParse(txtTo.Text, intTo)
    lstNumbers.Items.Clear()
    If intFrom < intTo Then
        Do
            lstNumbers.Items.Add(intNum)
            intNum += 1
        Loop Until intNum > intTo
    End If

End Sub

在 Do 循环中使用 If 语句时如何防止无限循环？

How do I prevent an infinite loop when using an If statement inside of a Do loop?

vb.net