Dim Max As Integer, iMax As Integer ano/4 /linersily 4.求数组中最大元素及所在下标 Max=iA(1): iMax=1 For i=2 To 10 If iA(O>Max Then Max=iA() iMax=i il y End If Next 5.将数组中各元素交换 For i=1 To 10\2 t=iA(O) 交换前: iA()=iA(10-i+1) 246810135791 iA(10-i+1)=t Next 交换后: |7530816|4|2 图1-3-22数组中个元素交换4. 求数组中最大元素及所在下标 Dim Max As Integer,iMax As Integer Max=iA(1)：iMax=1 For i = 2 To 10 If iA(i)>Max Then Max=iA(i) iMax=i End If Next I 5. 将数组中各元素交换 For i =1 To 10\2 t=iA(i) iA(i)=iA(10-i+1) iA(10-i+1)=t Next I