一道vb编程题，求解。
声明一个有10个元素的一维数组，使用inputbox函数为其所有元素赋值，然后将其中最小元素的值及其下标显示出来。 求解 这到题怎么编
2017-11-26 21:01
程序代码：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
2017-11-26 21:40
2017-11-26 21:45
2017-11-26 21:48
2017-11-26 23:25
2017-11-27 19:23
2017-11-27 19:28
2017-11-27 20:11
2017-11-27 20:57
2017-11-27 21:26
