在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

如果条件为false，可以直接跳过循环

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