Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
run programme error occuring | Excel Worksheet Functions | |||
error in programme | Excel Discussion (Misc queries) | |||
programme error | Excel Programming | |||
Error message Microsoft Graph is part of another programme | Setting up and Configuration of Excel | |||
Error when loading a programme from a tool bar | Excel Programming |