Vb陣列最大值

在Visual Basic中，可以使用迴圈來尋找陣列中的最大值。以下是一個簡單的例子，展示了如何找到一個整數陣列中的最大值：

Dim numbers(10) As Integer
Dim maxValue As Integer

' 假設陣列已經被正確初始化

maxValue = numbers(0) ' 初始化最大值為陣列第一個元素

For i As Integer = 1 To UBound(numbers) ' UBound 函數用來取得陣列上界
    If numbers(i) > maxValue Then
        maxValue = numbers(i)
    End If
Next

' maxValue 現在包含了陣列中的最大值

在上面的代碼中，我們使用了一個迴圈來遍歷整個陣列，並檢查每一個元素是否大於目前我們認為的最大值。如果發現更大的數字，我們就更新最大值。

如果你想要尋找一個數組中所有最大值的索引，你可以使用一個變量來記錄每一個最大值的索引，並將它們儲存在一個新的陣列中。以下是一個簡單的例子：

Dim numbers(10) As Integer
Dim maxIndexes(10) As Integer
Dim maxCount As Integer
Dim currentMax As Integer
Dim currentIndex As Integer

' 假設陣列已經被正確初始化

maxCount = 0 ' 初始化最大值的個數
currentMax = numbers(0) ' 初始化最大值為陣列第一個元素
currentIndex = 0 ' 初始化最大值的索引為陣列第一個元素的索引

For i As Integer = 1 To UBound(numbers)
    If numbers(i) > currentMax Then
        maxCount = maxCount + 1
        currentMax = numbers(i)
        currentIndex = i
        ' 如果你想要保留所有最大值的索引，你可以這樣做：
        ' 如果陣列足夠大，你可以這樣做：
        ' If maxIndexes(maxCount - 1) = 0 Then
        '     maxIndexes(maxCount - 1) = currentIndex
        ' Else
        '     ReDim Preserve maxIndexes(maxCount)
        '     maxIndexes(maxCount) = currentIndex
        ' End If
    End If
Next

' maxCount 現在包含了最大值的個數
' 如果 maxIndexes 陣列足夠大，那麼 maxIndexes(0 到 maxCount - 1) 包含了所有最大值的索引

在上面的代碼中，我們使用了一個變量 maxCount 來記錄最大值的個數，並使用 currentMax 和 currentIndex 來記錄當前找到的最大值及其索引。在迴圈結束後，maxCount 包含了最大值的個數，而 currentIndex 則包含了最後一個最大值的索引。如果你想要保留所有最大值的索引，你可以將它們儲存在一個新的陣列 maxIndexes 中，並在迴圈中更新這個陣列。