下列程序的功能是:找出给定的12个数中最大的一个数,然后输出这个数以及经在原来12 option Base 1 Private Sub Form_Click() Dim x x = Array(57,-9, 17,42, -31,46, 11, 8, 6,

admin2013-01-23  37

问题 下列程序的功能是:找出给定的12个数中最大的一个数,然后输出这个数以及经在原来12
option Base 1
Private Sub Form_Click()
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来存储元素的最大值。
转载请注明原文地址:https://jikaoti.com/ti/TlO0FFFM
0

最新回复(0)