home *** CD-ROM | disk | FTP | other *** search
- ' +----------------------------------------------------------------------+
- ' | |
- ' | PBClone Copyright (c) 1990-1992 Thomas G. Hanlin III |
- ' | |
- ' +----------------------------------------------------------------------+
-
- SUB MeanAverageS (Array!(), First%, Last%, Average!, ErrCode%)
- ErrCode% = 0
- IF First% = 0 THEN
- F% = LBOUND(Array!, 1)
- ELSE
- F% = First%
- END IF
- IF Last% = 0 OR Last% < First% THEN
- L% = UBOUND(Array!, 1)
- ELSE
- L% = Last%
- END IF
- FOR Tmp% = F% TO L%
- Total# = Total# + Array!(Tmp%)
- Count% = Count% + 1
- NEXT
- Average! = Total# / CSNG(Count%)
- END SUB
-