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