设有程序: Option Base 1 Pfivme 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 8If arr1(i)>MaxThen 【13】 Next i Print"最大值是:";Max End Sub 以上程序的功能是
主观题
设有程序: Option Base 1 Pfivme 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 8If arr1(i)>MaxThen 【13】 Next i Print"最大值是:";Max End Sub 以上程序的功能是