Contact: aviboots(AT)netvision.net.il
39,955 questions
51,897 answers
573 users
Module Module1 Sub Main() Dim arr() As Integer = {1, 2, 3, 4, 5, 6} Dim sum As Integer For i As Integer = 0 To arr.Length - 1 sum += arr(i) Next Console.WriteLine("average = {0}", sum / arr.Length) End Sub End Module 'run: ' 'average = 3.5