试题与答案

设有程序: Option Base 1 Private Sub Command1

题型:填空题

题目:

设有程序:
Option Base 1
Private Sub Command1_Click()
Dim arr1,Max as Integer
arr1=Array(12,435,76,24,78,54,866,43)
【12】 =arr1(1)
For i=1 To 8
If arr1(i)>Max Then 【13】
Next i
Print"最大值是:";Max
End Sub
以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。请填空。

答案:

参考答案:[12] Max
[13] Max=arr1(i)

解析: 程序中用Array函数给变体变量 arr1赋了一组数,由于程序有Option Base 1语句,因此,数组元素的下标下界从1开始,接着把第一个数组元素赋给变量Max,这样为进行比较创造了条件,程序中的For循环控制比较次数,每次循环中,根据题目要求,若arr1(i)>Max,则arr1(i)较大,应该用arr1(i)替代 Max,所以程序中[13]处应填语句Max=arr1 (i)。

试题推荐
微信公众账号搜索答案