Maximum number in an array?

[Adam Wike]

I need to make a program that generates 15 random numbers as an array and then lists them in a listbox. I also need to be able to display the maximum and minimum in a label. Heres what I've got so far...

Public Class Form1
Dim strNumbers(14) As String

Private Sub btnGenerate\_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
    Dim intRandom As New Random()
    Dim intLoop As Integer

    lstOutcome.Items.Clear()

    For intLoop = 0 To strNumbers.Length - 1
        lstOutcome.Items.Add(intRandom.Next(1, 100))
    Next intLoop

End Sub

Private Sub btnMaximum\_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMaximum.Click
    Dim intLoop As Integer
    Dim intMax As Integer


    For intLoop = 0 To strNumbers.Length - 1
        intMax = strNumbers(intLoop)
        If intMax < strNumbers(intLoop) Then
            intMax = strNumbers(intLoop)
        End If
    Next intLoop

    lblMinMax.Text = intMax
End Sub

End Class

I've got the 15 random numbers in the listbox. I just cant figure out why my maximum code isnt working. Any tips would be awesome right now...

[Luc Pattyn]

look again right here:

intMax = strNumbers(intLoop)
If intMax < strNumbers(intLoop) Then

:)

Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]

---

Prolific encyclopedia fixture proof-reader browser patron addict?
We all depend on the beast below.

---

[dan sh]

Put intMax initialization outside for loop. BTW, you can use a List instead of array since it has a sort method. Then all you would need is to get first and last element.

[Adam Wike]

It worked...to do the minimum I should only have to change the sign I guess. Thanks a lot :)

[Adam Wike]

I also figured out that the way I generated the random numbers made the code mess up. I ended up having to use

strNumbers(intLoop) = Int((100 - 1 + 1) * Rnd()) + 1

to get the random numbers.