Connecting Tech Pros Worldwide Forums | Help | Site Map
bytes > topic > visual basic > answers

'This function gives max value of int array without sorting an array

Newbie
  
Join Date: Mar 2007
Posts: 1
#1: Mar 5 '07
Expand|Select|Wrap|Line Numbers
  1. Public Function MaxValOfIntArray(ByRef TheArray As Variant) As Integer
  2. 'This function gives max value of int array without sorting an array
  3. Dim i As Integer
  4. Dim MaxIntegersIndex As Integer
  5. MaxIntegersIndex = 0
  6.  
  7. For i = 1 To UBound(TheArray)
  8.     If TheArray(i) > TheArray(MaxIntegersIndex) Then
  9.         MaxIntegersIndex = i
  10.     End If
  11. Next
  12. 'index of max value is MaxValOfIntArray
  13. MaxValOfIntArray = TheArray(MaxIntegersIndex)
  14. End Function

Lives Here
  
Join Date: Oct 2006
Posts: 1,626
#2: Mar 5 '07

re: 'This function gives max value of int array without sorting an array

Did you have a question for us?
vijaydiwakar's Avatar
Site Addict
  
Join Date: Feb 2007
Posts: 579
#3: Mar 5 '07

re: 'This function gives max value of int array without sorting an array

Quote:

Originally Posted by viratkothari

Expand|Select|Wrap|Line Numbers
  1. Public Function MaxValOfIntArray(ByRef TheArray As Variant) As Integer
  2. 'This function gives max value of int array without sorting an array
  3. Dim i As Integer
  4. Dim MaxIntegersIndex As Integer
  5. MaxIntegersIndex = 0
  6.  
  7. For i = 1 To UBound(TheArray)
  8.     If TheArray(i) > TheArray(MaxIntegersIndex) Then
  9.         MaxIntegersIndex = i
  10.     End If
  11. Next
  12. 'index of max value is MaxValOfIntArray
  13. MaxValOfIntArray = TheArray(MaxIntegersIndex)
  14. End Function

Is it question or answer?
hariharanmca's Avatar
Lives Here
  
Join Date: Dec 2006
Location: Banglore/India
Posts: 1,987
#4: Mar 5 '07

re: 'This function gives max value of int array without sorting an array

Quote:

Originally Posted by viratkothari

Expand|Select|Wrap|Line Numbers
  1. Public Function MaxValOfIntArray(ByRef TheArray As Variant) As Integer
  2. 'This function gives max value of int array without sorting an array
  3. Dim i As Integer
  4. Dim MaxIntegersIndex As Integer
  5. MaxIntegersIndex = 0
  6.  
  7. For i = 1 To UBound(TheArray)
  8.     If TheArray(i) > TheArray(MaxIntegersIndex) Then
  9.         MaxIntegersIndex = i
  10.     End If
  11. Next
  12. 'index of max value is MaxValOfIntArray
  13. MaxValOfIntArray = TheArray(MaxIntegersIndex)
  14. End Function


Does u have the code simplified than this?

see it may easy for 100 to 200 array index

consider if i have 10,000 array index, do u think i have to execute 10000 times of that if condition and may be upto 9999 times of assigenment statement.?
Reply

« previous question | next question »

/bytes/development

/bytes/it

Forums
Visit our community forums for general discussions and latest on Bytes

Our staff and community areas have moved to bytes.com/forums/

/bytes/about

We are a network of experts and professionals in IT and software development that help one another with answers to tough questions and share insights. Get the best answers to your questions from over 226,419 network members.

dev questions:
algorithms | asp | asp.net | c/c++ | coldfusion | c# | flash | html/css | java | javascript |
mobile dev | .net | perl | php | python | ruby | software dev | vb.net | visual basic | xml
it questions:
access | apache | careers | db2 | iis | macosx | mysql | networking | oracle | postgresql | sql server | unix | windows

About Bytes | Copyright 1995-2009 BYTES. All rights Reserved