[填空题] 下面程序的功能是找出给定的12个数中最大的一个数,然后输出这个数以及它在原来12个数中的位置。请在下划线处填入适当的内容,将程序补充完整。Option Base 1Private

[填空题] 下面程序的功能是找出给定的12个数中最大的一个数,然后输出这个数以及它在原来12个数中的位置。请在下划线处填入适当的内容,将程序补充完整。Option Base 1Private,第1张

[填空题] 下面程序的功能是找出给定的12个数中最大的一个数,然后输出这个数以及它在原来12个数中的位置。请在下划线处填入适当的内容,将程序补充完整。 Option Base 1 Private

[填空题] 下面程序的功能是找出给定的12个数中最大的一个数,然后输出这个数以及它在原来12个数中的位置。请在下划线处填入适当的内容,将程序补充完整。

Option base 1

Private Sub Form_Click0

Dim x

x = Array(57,-9,17,42,-31,46,11,8,6,-4,3,90)

Max= 1

For k = 2 To 10 Step 1

If x(k)>x(Max) Then

______

End If

Next k

y=______

Print Max, y

End Sub

正确答案:

Max=k x(Max)

参考解析:

在数组中查找多个数中最大数的算法是:首先设变量Max为1,从第一个数组元素开始与x(Max)对比,如果数组元素大于x(Max),则Max记录该数组元素的下标,比较完后,Max记录了最大数的下标。所以第1个横线处,应填写Max=k,用Max记录较大数的下标;第2个横线处,用y来存储元素的最大值。

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zaji/5628342.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-12-15
下一篇 2022-12-16

发表评论

登录后才能评论

评论列表(0条)

保存