我正在嘗試制作一個簡單的程式，將回圈的輸出顯示到串列框的內部。用戶將在“發件人”文本框中輸入一個數字。他們會在“收件人”文本框中輸入一個數字。我需要一個條件，只有在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
uj5u.com熱心網友回復：
如果您的條件為假，您可以跳過回圈
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/320889.html
標籤：网络
下一篇：前100個自然數之和