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