一道vb编程题，求解。
声明一个有10个元素的一维数组，使用inputbox函数为其所有元素赋值，然后将其中最小元素的值及其下标显示出来。 求解 这到题怎么编
程序代码：Sub ss()
Dim i(10) As Integer
Dim minValue As Integer
Dim num As Integer
Dim k As Integer
For k = 0 To 9
i(k) = InputBox("请输入数字: ", "测试 ", 0)
Next
minValue = i(0)
num = 0
For k = 1 To 9
If i(k) < minValue Then
minValue = i(k)
num = k
End If
Next
MsgBox "最小的数是:" & minValue & ",下标是:" & num
End Sub
