Module Module1
Sub Main()
Dim ar As Integer()
Dim min As Integer
ar = New Integer() {15, 8, 1, 6, 34, 7, 5, 342, 4, 7}
min = ar(0)
For i = 1 To ar.GetUpperBound(0)
If ar(i) < min Then
min = ar(i)
End If
Next
Console.Write("The Minimum value of the elements of array is: {0}", min)
Console.ReadLine()
End Sub
End Module