设有以下程序: 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
主观题
设有以下程序: 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