programme error

[paul]

the programme i wrote is to return the maximum, minimum and average of
100 numbers. But it keeps returning an error. Does anyone no whats
wrong with it? what its missing>
cheers

Sub testing()
Dim a(10) As Single, max As Single
Dim min As Single, sum As Single
Dim Average As Integer, i As Integer
n = 100
max = a(1)
min = a(1)
sum = a(1)
For i = 1 To 100
If max > a(i) Then max = a(i)
If min < a(i) Then
min = a(i)
End If
sum = sum + a(i)
Next i
Average = sum / n
End Sub

 

[Bob Phillips]

You don't put anything into the array a.

You set the upper bound of a to 10 and then try and loop 1 to 100, trying to
get that item within a (which doesn't exist after 10).

and you declare Average as Integer, but it is most likely to have a decimal
part, so you should declare it as Double.


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)