在数组中获取错误的输出

Question

I have been trying to get the correct outcome from an array. I have tried everything I can think of. I am new to VB.Net and programming.

I have a file on usb that I am getting an array from. the txtfile is set up to give me the years and the number associated with that year. for example. year 21 1 year 19 6 year 18 18 year 17 12 and so on.

I am trying to find the year with the greatest number and display it in a label.

I am getting the year 21 because it is the highest, but I actually need the year with the highest associated number in this case it would be year 16 with 27 as the associated number.

here are the parts of the code that I believe are assoiciated with it. I have written to find it but I am getting the first year only which is actually year 21.

the first line or years is _strYears(_intSizeOfArray) as string

the second line or number assoiciated with the years is _strNumberOfHurricanes(_intSizeOfArray as integer

option strict must be on for the assignment

    Dim intAverage As Double
    Dim intYear As Integer
    Dim intMostYears As Integer = 0


    '   Calculate the Statistics and display the results
    For intIndex As Integer = 0 To _intSizeOfArray
        If intYear < _intNumberOfHurricans(intIndex) Then
            intYear = _intNumberOfHurricans(intIndex)
        End If
        intAverage = intAverage + _intNumberOfHurricans(intIndex)
    Next

    intAverage = intAverage / _intNumberOfHurricans.Length
    For intLoopCounter = 0 To _intSizeOfArray
        If _strYears(intMostYears) < _strYears(intLoopCounter) Then
            intMostYears = intLoopCounter
        End If
    Next



    '   Display the statistics for the Storm Average in the selected Year
    '   and the most active year within the range of year.
    lblNumberOfHurricanes.Text = "The Number of Hurricanes in the  " &
        _strYears(intChoiceSelected) & " is " & _intNumberOfHurricans(intChoiceSelected).ToString() & "."
    lblAvergeNumberHurricanes.Text = "The Average Number of Storms was " & FormatNumber(intAverage, 1) & " Hurricanes."
    lblMostStorms.Text = "The" & _strYears(intMostYears) & " with " & intYear & " Had The Most Storms Between " &
        (_strYears(20) & " And " & (_strYears(0)))

The results I am getting are the first two labels are correct and the last label is displaying year 21 which should 16, and 27 which is correct, and year 21 and year 1 which is correct.

please this assignment is due in 1 and 1/2 hours, i have been trying to get this all day. if anyone can give me an idea of where this is wrong. I would really appreciate it.

Answer 1

These 3 lines will do most of what you're trying above. Since this is an assignment, I'm not sure if your teacher would allow you to use Linq, but since you haven't specified anything like that, this should give you some light for the future if nothing else:

Imports System.Linq

Dim intAverage As Double = _intNumberOfHurricans.Average()
Dim intMostYears As Integer = _intNumberOfHurricans.IndexOf( _intNumberOfHurricans.Max())

Now you can display this info in your labels just like you're doing.