下面程序的功能是：将数组a中下标值为偶数的元素从小到大排列，其他元素不变。
Dim a(1 To 10)，i，j，k
For i=1 To 10
a(i)：InputBox("input：")
Next i
For i；1 To 10
Print a(i)
Next i
Print
For i=2 To 10 【14】
For j=i+2 To 10
If 【15】 Then
t=a(i)
a(i)=a(j)
a(j)=t
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i