![[填空题] 下面程序的功能是找出给定的10个数中最大的一个数，最后输出这个数以及它在原来10个数中的位置。请在下划线处填入适当的内容，将程序补充完整。 Option Base 1 Private](http://www.mshxw.com/aiimages/31/248599.png "[填空题] 下面程序的功能是找出给定的10个数中最大的一个数，最后输出这个数以及它在原来10个数中的位置。请在下划线处填入适当的内容，将程序补充完整。 Option Base 1 Private")
[填空题] 下面程序的功能是找出给定的10个数中最大的一个数，最后输出这个数以及它在原来10个数中的位置。请在下划线处填入适当的内容，将程序补充完整。
Option base 1
Private Sub Form_Click()
Dim X
x=Array(23,-5,17 ,38,-31,46,11,8,5,-4)
Max=1
k=1
10k=k+1
if x(k)＞x(Max) then
(14)
End if
If k＜10 then goto 10
y= (15)
Print y,Max
End Sub
参考答案：
[14]Max=k[15]x(Max)问题解析:
Max为最大数组元素的脚标，所以当x(k)＞x(Max)时需要使脚标Max值变为较大的x(k)元素的脚标k。 最终引用最大值，只需填写x( Max)即可。
