问题
填空题
下面程序的功能是找出给定的10个数中最大的一个数,最后输出这个数以及它在原来 10个数中的位置。请在下划线处填入适当的内容,将程序补充完整。
Option Base 1
Private SubForm_Cfick()
Dim X
x=Array(23,-5,17,38,-31,46,11,8,5,-4)
Max=1
k=1
10 k=k+1
ifx(k)>x(max)then
[13]
End if
Ifk<10then goto 10
y= [14]
Print Max,y
End Sub
答案
参考答案:x(Max)