programme error
 

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

programme error
 

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)

"paul" wrote in message
oups.com...
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