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
...