imports System
Public Class Test
Public Shared Sub Main()
Dim arr() As Integer = {3, 6, 4, 8, 1, 0}
Dim mx As Integer = arr(0)
For i As Integer = 1 To arr.Length - 1
If (arr(i) > mx) Then mx = arr(i)
Next
Console.WriteLine(mx)
End Sub
End Class
' run:
'
' 8
'