[RESOLVED] Compare 6 numbers

[Arispan]

Hello everyone,

I just moved on from vb6 to vb.net so be easy with me.

Here is the problem: I have 6 numbers in an array(dim ascore(5)) and I want to find who is the bigger one(I would like the number of the variable in the array to be returned, like ascore(2) or ascore(5)...). My mind is stuck! Can someone help me?

[palautot]

Hope this could help...

   Dim ascore(5) As Integer
        Dim largest As New ArrayList

        largest.Add(0)

        'This code provide a sample values in the array
        ascore(0) = 2
        ascore(1) = 6
        ascore(2) = 1
        ascore(3) = 4
        ascore(4) = 6
        ascore(5) = 2

        For i As Integer = 1 To ascore.Length - 1
            If ascore(i) > ascore(largest(0)) Then
                largest.Clear()
                largest.Add(i)
            ElseIf ascore(i) = ascore(largest(0)) Then
                largest.Add(i)
            End If
        Next

        Dim strLargest As String = "The value(s) in: " & Chr(13)

        For Each items As Integer In largest
            strLargest &= "ascore(" & items & ")" & Chr(13)
        Next
        strLargest &= "which is " & ascore(largest(0)) & " is the largest"
        MsgBox(strLargest)

[trisuglow]

Have a look at the SortedList class (see link below). It has a Max() method.

I moved from VB6 to .NET as well and it took me a while to get the hang of treating everything as an object, rather than writing code for it.


http://msdn.microsoft.com/en-us/libr...(v=VS.90).aspx

[NickThissen]

If you are using VB2008 or higher you can use the IEnumerable.Max extension method. Since an array implements IEnumerable it also has the Max method. Furthermore, to get the index, you would use the IndexOf method:

Dim max = ascore.Max()
Dim index = ascore.IndexOf(max)

Having said this, it's always good to try it manually since this is an operation you might need in different situations as well. To find the maximum in an array you simply loop through it and remember the currently highest number. If you come across an even higher number, you remember that one:

Dim max = Integer.MinValue  ' we start with the lowest value possible
For Each number As Integer in ascore
   If number > max Then max = number
Next

[Arispan]

Thanks Nick!