要求一維數組的最小元素及其索引，可以使用循環遍歷數組，同時使用一個變量記錄最小值和最小值的索引。
以下是一個示例代碼：
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
