[填空题] 设有程序: Option Base 1 Private Sub Command1 Click() Dim arrl,Max as Integer arrl=Array(12,435,7

7 查阅

[填空题] 设有程序: Option Base 1 Private Sub Command1 Click() Dim arrl,Max as Integer arrl=Array(12,435,76,24,78,54,866,43) ______ =arrl(1) For i=1 To 8 If arrl(i)>Max Then_______ Next i Print“最大值是:”;Max End Sub 以上程序的功能是:用Atray函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。请填空。

参考答案:

Max

Max=arrl(i) 本题综合考查数组的初始赋值与For循环控制语句。根据题意,先用Array函数为数组arr1赋值,然后令变量Max等于arr1(1),相当于给Max赋了一个初始值。在For循环中,进行8次循环,逐一遍历比较arr1(i)值与Max值的大小,如果arr1(i)>Max,则令Max值等于此时的arr1(i)值。通过这个过程,求出arr1数组中的最大元素。故第12空填:Max。 根据上面的分析,第13空应该把arrl(i)赋给 Max,故填:Max=arrl(i)。

计算机考试