Option Strict On Public Class BlockScope Public Shared Sub Main() For outerLoop As Integer = 0 to 10000 For innerLoop As Integer = 0 to 10 Dim blockVar As Integer blockVar += 1 If blockVar Mod 1000 = 0 Then Console.WriteLine(blockVar) End If Next Next End Sub End Class
1000 2000 3000 4000 5000 6000 7000 8000 9000 10000 11000 12000 13000 14000 15000 16000 17000 18000 19000 20000 21000 22000 23000 24000 25000 26000 27000 28000 29000 30000 31000 32000 33000 34000 35000 36000 37000 ...