设有程序: Option Base 1 Private Sub Command1_Click() Dim arr1,Max as Integer arr1=Array(12,435,76,24,78,54,866,43)

admin2012-03-22  24

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

选项

答案Max Max=arr1(i)

解析
转载请注明原文地址:https://kaotiyun.com/show/Thhp777K
0

最新回复(0)