View Single Post
  #1  
Old 15-12-2009, 11:01 PM
.BZU.'s Avatar
.BZU. .BZU. is offline


 
Join Date: Sep 2007
Location: near Govt College of Science Multan Pakistan
Posts: 9,693
Contact Number: Removed
Program / Discipline: BSIT
Class Roll Number: 07-15
.BZU. has a reputation beyond repute.BZU. has a reputation beyond repute.BZU. has a reputation beyond repute.BZU. has a reputation beyond repute.BZU. has a reputation beyond repute.BZU. has a reputation beyond repute.BZU. has a reputation beyond repute.BZU. has a reputation beyond repute.BZU. has a reputation beyond repute.BZU. has a reputation beyond repute.BZU. has a reputation beyond repute
Default Find the Average of all elements in an Array VB Code (By Sheraz)

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

    

__________________
(¯`v´¯)
`*.¸.*`

¸.*´¸.*´¨) ¸.*´¨)
(¸.*´ (¸.
Bzu Forum

Don't cry because it's over, smile because it happened
Reply With Quote