如何扩展循环迭代

Question

我正在寻找类似下面的for循环

dim i as integer
dim j as integer = 5

For i = 0 To j
   If i = 5 Then
        i = 10
        j = 20
   End If

Next

''如果i = 5那么我想将i增加到10并且j增加到20，这样循环将扩展到10到20

任何人都可以建议我如何做到这一点。

Answer 1

dim i as integer = 1
dim j as integer = 5
while i <= j
    if i = 5 then
       i = 10
       j = 20
    end if
end while

我认为有一段时间你会发现它更容易理解

Answer 2

不要尝试更改循环变量。循环总是达到5，因此'延伸'到10.首先让它循环到10。如果您想在内部使用j更改值，请在适当的时间创建一个不同的变量k，然后将其从5更改为10，并使用{{ 1}}而不是。