Module Module1
Dim Counter As Integer
Sub BigLoop()
For Counter = 1000 To 1005 ' Use global Counter
Console.Write(Counter & " ")
Next
End Sub
Sub LittleLoop()
Dim Counter As Integer
For Counter = 0 To 5 ' Use local Counter
Console.Write(Counter & " ")
Next
End Sub
Sub Main()
Counter = 100
Console.WriteLine("Starting Counter: " & Counter)
BigLoop()
Console.WriteLine("Counter after BigLoop: " & Counter)
LittleLoop()
Console.WriteLine("Counter after LittleLoop: " & Counter)
If (Counter > 1000) Then
Dim Counter As Integer = 0
Console.WriteLine("Counter in If statement: " & Counter)
End If
Console.WriteLine("Ending Counter: " & Counter)
End Sub
End Module
Starting Counter: 100
1000 1001 1002 1003 1004 1005 Counter after BigLoop: 1006
0 1 2 3 4 5 Counter after LittleLoop: 1006
Counter in If statement: 0
Ending Counter: 1006