For-Next Loop Dilemma

Question

净大师; 我试图从“For-Next”中改变“For-Next”的限制; 这有可能吗？如果没有在VB.Net中有替代品; 我在下面发布我的VB.Net代码来解释我的确切位置; 基本上;我想在执行一些方程式后将“Check”的限制更改为值100;如果用户放置＆gt; TextBox1中的100。我只是简化了代码，因为我在“下一步”中有一些方程来确定“检查”的价值：

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim Check = 1
    Dim NumberofLoops = 3
    TextBox1.Text = 1
    For Check = 1 To NumberofLoops
        ' some equations
        If TextBox1.Text > 100 Then NumberofLoops = 100
        MessageBox.Show("Check = " & Check)
    Next
    Label1.Text = Check
End Sub
End Class

Answer 1

如果你真的需要在循环内部更改循环参数，那么FOR / NEXT将不起作用。您需要使用DO/LOOP替代方案。 E.g。

Dim NumberofLoops = 3
Dim Check = 1

Do While Check <= NumberofLoops 
  If TextBox1.Text > 100 Then NumberofLoops = 100
  Check += 1
Loop