当前位置:IT认证>BASIC题库

问题:[填空题]

[填空题] 下面程序的功能是找出给定的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)

  

参考答案:

[14]Max=k[15]x(Max)

  参考解析

Max为最大数组元素的脚标,所以当x(k)>x(Max)时需要使脚标Max值变为较大的x(k)元素的脚标k。最终引用最大值,只需填写x(Max)即可。

微信端