![[填空题] 下面程序的功能是：将数组a中下标值为偶数的元素从小到大排列，其他元素不变。 Dim a(1 To 10)，i，j，k For i=1 To 10a(i)：InputBox("](http://www.mshxw.com/aiimages/31/256792.png "[填空题] 下面程序的功能是：将数组a中下标值为偶数的元素从小到大排列，其他元素不变。 Dim a(1 To 10)，i，j，k For i=1 To 10a(i)：InputBox(\"")
[填空题] 下面程序的功能是：将数组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
参考答案：
[14]step 2 [15]a(i)＞a(j)问题解析:
i循环中假定a[i]最小，j循环中和i后面的偶数下标元素进行比较，如果当前元素a[j]比最小元素 a[i]还要小，就交换。而只对偶数下标的元素比较排序，因此循环变量的步长为2，在空[14]处填step 2。捧序顺序是从小到大，因此应该是后面的元素a(j)小于前面的元素a(i)时，两者交换值，因此在空[15]处填a(i)＞a(j)。
