[填空题] 设有以下程序:Option Base 1Private Sub Command1_Click( ) Dim arr1 ,Max as Integer art1 = Array(12,4

21 查阅

[填空题] 设有以下程序:

Option Base 1

Private Sub Command1_Click( )

Dim arr1 ,Max as Integer

art1 = Array(12,435,76,24,78,54,866,43)

【14】 = arr1(1)

For i = 1 To 8

If arrl(i)>Max Then 【15】

Next i

Print "最大值:"; Max

End Sub

以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。

参考答案:

[14]Max [15] Max=arr1(i)

Max=arr1(1)是先将第1个元素设为最大值,然后在循环中逐一和数组元素arr1(i)进行比较,如果比当前的Max值大,则更新Max。

计算机考试