vb.net - VB.NET 無限 For ループ

Question

VB.NET で無限 for ループを記述することは可能ですか?

もしそうなら、構文は何ですか？

Answer 1

Do
    Something
Loop

Answer 2

For i as Integer = 0 To 1 Step 0

それが十分にハックでない場合は、次のように書くこともできます:

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

Answer 3

また

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

Answer 4

ループを永久に実行するために与えられた多くの答えは別として、これは正の無限大の値を実際に使用してループを制限する最初のものかもしれません。ただし、安全のために、ループの速度を測定できるように、指定された秒数後に終了する追加のオプションを含めました.

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