题目内容
(请给出正确答案)
[主观题]
设有以下程序: Option Base 1 Private Sub Command1_Click() Dim arr1 ,Max as Integer art1 =
设有以下程序:
Option Base 1
Private Sub Command1_Click()
Dim arr1 ,Max as Integer
art1 = Array(12,435,76,24,78,54,866,43)
【 】= arr1(1)
For i = 1 To 8
If arrl(i)>Max Then【 】
Next i
Print "最大值:"; Max
End Sub
以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。
如搜索结果不匹配,请 联系老师 获取答案