[填空题] 下面程序的功能是：将数组a中下标值为偶数的元素从小到大排列，其他元素不变。 Dim a(1 To 10)，i，j，k For i=1 To 10

[填空题] 下面程序的功能是：将数组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)。