VB.NET Infinite для цикла

Можно ли написать бесконечный цикл for в VB.NET?

Если да, то каков синтаксис?

Ответов (5)

Решение
For i as Integer = 0 To 1 Step 0

Если этого недостаточно, можно также написать:

For i As Integer = 0 To 2
  i -= 1
Next

Что я делаю, так это добавляю таймер, затем меняю интервал на 1, а затем включаю его, а затем, если я хочу, чтобы он постоянно что-то проверял в цикле, я просто дважды щелкаю таймер для события timer_tick, затем я набираю то, что хочу. Я обычно использую это для обновления настроек, если хочу сохранить все.

Помимо множества ответов на то, чтобы цикл выполнялся вечно, это может быть только первый, который фактически использует значение положительной бесконечности для ограничения цикла. Однако на всякий случай я включил дополнительную возможность выхода через заданное количество секунд, чтобы он мог измерить скорость вашего цикла.

Sub RunInfinateForLoop(maxSeconds As Integer)
    ' Attempts to run a For loop to infinity but also exits if maxSeconds seconds have elapsed.
    Dim t As Date = Now
    Dim exitTime As Date = t.AddSeconds(maxSeconds)
    Dim dCounter As Double
    Dim strMessage As String
    For dCounter = 1 To Double.PositiveInfinity
        If Now >= exitTime Then Exit For
    Next
    strMessage = "Loop ended after " & dCounter.ToString & " loops in " & maxSeconds & " seconds." & vbCrLf &
        "Average speed is " & CStr(dCounter / maxSeconds) & " loops per second."
    MsgBox(strMessage, MsgBoxStyle.OkOnly, "Infinity Timer")

End Sub
Do
    Something
Loop

или

while (true)

end while

хорошо, правильно Для ответа:

Dim InfiniteLoop as Boolean = true;
For i = 1 to 45687894

    If i = 45687893 And InfiniteLoop = true Then i = 1
End For