vb怎么求一維數(shù)組最小元素及下標(biāo)

vb
小億
167
2023-11-29 11:04:49

要求一維數(shù)組的最小元素及其索引，可以使用循環(huán)遍歷數(shù)組，同時(shí)使用一個(gè)變量記錄最小值和最小值的索引。

以下是一個(gè)示例代碼：

Sub Main()
    Dim arr() As Integer = {5, 2, 9, 6, 1}
    Dim min As Integer = arr(0)
    Dim minIndex As Integer = 0

    For i As Integer = 1 To arr.Length - 1
        If arr(i) < min Then
            min = arr(i)
            minIndex = i
        End If
    Next

    Console.WriteLine("最小元素為: " & min)
    Console.WriteLine("最小元素的下標(biāo)為: " & minIndex)
End Sub

輸出結(jié)果為：

最小元素為: 1
最小元素的下標(biāo)為: 4

0 踩