TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
 Specialized Dev Zones Research Center eBook Library .NET Java C++ Web Dev Architecture Database Security Open Source Enterprise Mobile Special Reports 10-Minute Solutions DevXtra Blogs Slideshow

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

 Home » Tip Bank » .NET » VB.NET » Arrays
Language: VB4,VB5,VB6,VBS
Expertise: Intermediate
Nov 20, 1999

### WEBINAR:On-Demand

Building the Right Environment to Support AI, Machine Learning and Deep Learning

# ArrayStdDev - The standard deviation of a numeric array

``````' The standard deviation of an array of any type
'
' if the second argument is True or omitted,
' it evaluates the standard deviation of a sample,
' if it is False it evaluates the standard deviation of a population
'
' if the third argument is True or omitted, Empty values aren't accounted for

Function ArrayStdDev(arr As Variant, Optional SampleStdDev As Boolean = True, _
Optional IgnoreEmpty As Boolean = True) As Double
Dim sum As Double
Dim sumSquare As Double
Dim value As Double
Dim count As Long
Dim index As Long

' evaluate sum of values
' if arr isn't an array, the following statement raises an error
For index = LBound(arr) To UBound(arr)
value = arr(index)
' skip over non-numeric values
If IsNumeric(value) Then
' skip over empty values, if requested
If Not (IgnoreEmpty And IsEmpty(value)) Then
' add to the running total
count = count + 1
sum = sum + value
sumSquare = sumSquare + value * value
End If
End If
Next

' evaluate the result
' use (Count-1) if evaluating the standard deviation of a sample
If SampleStdDev Then
ArrayStdDev = Sqr((sumSquare - (sum * sum / count)) / (count - 1))
Else
ArrayStdDev = Sqr((sumSquare - (sum * sum / count)) / count)
End If

End Function
``````
Anand S. Desai

 Submit a Tip Browse ".NET" Tips Browse All Tips
Comment and Contribute

(Maximum characters: 1200). You have 1200 characters left.

Thanks for your registration, follow us on our social networks to keep up-to-date