Code:
Module Module1
Sub Main()
Dim ar As Integer()
Dim sum As Integer = 0
Dim div As Integer
Dim avg As Integer
ar = New Integer() {15, 8, 1, 6, 34, 7, 5, 342, 4, 7}
div = ar.Length 'Length property tells total # of elements in an array
For i = 0 To ar.GetUpperBound(0)
sum = sum + ar(i) ' or sum += ar(i)
Next
avg = sum / div
Console.Write("The Average of the elements of array is: {0}", avg)
Console.ReadLine()
End Sub
End Module