设有程序: Option Base 1 Private Sub Command1_Click() Dim arrl, Max As Integer arrl=Array(12, 435, 76, 24, 78, 54, 866, 43) 【8】 =arrl(1) For i=1 To 8 If arrl(i)>Max Then 【9】 Next i Print "最大值是:" ; Max End
主观题
设有程序: Option Base 1 Private Sub Command1_Click() Dim arrl, Max As Integer arrl=Array(12, 435, 76, 24, 78, 54, 866, 43) 【8】 =arrl(1) For i=1 To 8 If arrl(i)>Max Then 【9】 Next i Print "最大值是:" ; Max End