Imports System
Public Class Program
Public Shared Sub Main()
Dim arr As Integer() = {13, 80, 21, 12, 40, 85, 99, 100}
Dim i As Integer = arr.Length
Console.WriteLine("i = " & i)
Console.WriteLine(arr(Math.Min(System.Threading.Interlocked.Decrement(i), i - 1)))
Console.WriteLine(arr(Math.Min(System.Threading.Interlocked.Decrement(i), i - 1)))
Console.WriteLine(arr(Math.Min(System.Threading.Interlocked.Decrement(i), i - 1)))
Console.WriteLine("i = " & i)
End Sub
End Class
' run:
'
' i = 8
' 99
' 85
' 40
' i = 5
'