4.求数组中最大元素及所在下标 Dim Max As Integer, iMax As Integer Max=A(1): iMax=l For i=2 To 10 If A(i)>Max Then Max=A(i) iMax=i End if Next I 交换前 5.将数组元素倒置[24618101315179 For i=1 To 10 2 交换后: t=A(i 975|3|11086|42 A()=A(10-i+1) 图1-3-22数组中个元素交换 A(10-i+1)=t Next I 例5.14. 求数组中最大元素及所在下标 Dim Max As Integer,iMax As Integer Max=A(1)：iMax=1 For i = 2 To 10 If A(i)>Max Then Max=A(i) iMax=i End If Next I 5. 将数组元素倒置 For i =1 To 10\2 t=A(i) A(i)=A(10-i+1) A(10-i+1)=t Next I 例5.1