vb怎么求一维数组最小元素及下标

要求一维数组的最小元素及其索引，可以使用循环遍历数组，同时使用一个变量记录最小值和最小值的索引。

以下是一个示例代码：

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("最小元素的下标为: " &
     minIndex)
End Sub

输出结果为：

最小元素为: 1
最小元素的下标为: 4

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！