For-Next в разных BASIC: количество итераций внутри цикла уже не изменить

For i= min to max
что то делаем
If чего-то там случилось then max = max-1
еще что то делаем
Next i

Private Declare Function GetTickCount Lib "kernel32" () As Long
Sub Test_1()
    TBeg& = GetTickCount
    For i& = 1 To 1000
        S# = 0
        For j& = 1 To 10000   ' Обычный For-Next
            S# = S# + 2 * (j& - 1) + 1
        Next j&
    Next i&
    TEnd& = GetTickCount
    Me.Label1.Caption = CStr(TEnd& - TBeg&)
End Sub
 
Sub Test_2()
    TBeg& = GetTickCount
    For i& = 1 To 1000
        S# = 0
        j& = 1
        Do While (j& <= 10000) ' DO-While
            S# = S# + 2 * (j& - 1) + 1
            j& = j& + 1
        Loop
    Next i&
    TEnd& = GetTickCount
    Me.Label2.Caption = CStr(TEnd& - TBeg&)
End Sub
 
Sub Test_3()
    TBeg& = GetTickCount
    For i& = 1 To 1000
        S# = 0
        j& = 1
        Do                   ' бесконечный DO с явным выходом
            S# = S# + 2 * (j& - 1) + 1
            j& = j& + 1
            If j& > 10000 Then Exit Do
        Loop
    Next i&
    TEnd& = GetTickCount
    Me.Label3.Caption = CStr(TEnd& - TBeg&)
End Sub
 
Private Sub Command1_Click()
    Test_1
    Test_2
    Test_3
End Sub

Private Declare Function GetTickCount Lib "kernel32" () As Long
Sub Test_1()
    TBeg& = GetTickCount
    For i% = 1 To 1000
        For j% = 1 To 32000
        Next j%
    Next i%
    TEnd& = GetTickCount
    Label1.Caption = CStr(TEnd& - TBeg&)
End Sub
 
Sub Test_2()
    TBeg& = GetTickCount
    For i% = 1 To 1000
        j% = 1
        While j% <= 32000
            j% = j% + 1
        Wend
    Next i%
    TEnd& = GetTickCount
    Label2.Caption = CStr(TEnd& - TBeg&)
End Sub
 
Sub Test_3()
    TBeg& = GetTickCount
    For i% = 1 To 1000
        j% = 1
        Do
            j% = j% + 1
            If j% > 32000 Then Exit Do
        Loop
    Next i%
    TEnd& = GetTickCount
    Label3.Caption = CStr(TEnd& - TBeg&)
End Sub
 
Private Sub CommandButton1_Click()
    Test_1
    Test_2
    Test_3
End Sub