Language Basics VB.Net Tutorial

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