单选题 阅读下面程序代码：
Private Sub Command1_Click()
Dim temp As Integer
a=Array(2,7,4,10,0,1,8,5,3,9,6)
For i=7 To 4 Step-1
For j=3 To i-1
If a(j)＞a(j+1) Then
temp=a(j)
a(j)=a(j+1)
a(j+1)=temp
End If
Next j
Next i
For i=0 To 10
Print a(i);
Next i
End Sub
此程序代码运行后的输出是______。
【正确答案】 A
【答案解析】[解析] Array函数用来为数组元素赋值，即把一个数据集读入某个数组。本题利用Array函数，将一组整型数据读入到数组变量a中。利用二重For循环对数组中的部分元素进行排序，循环执行过程中，各变量的值如下表所示。
i j a(j)＞a(j+1) 执行交换操作情况
7 3 a(3)＞a(4)为真 a(3)=0 a(4)=10
4 a(4)＞a(5)为真 a(4)=1 a(5)=10
5 a(5)＞a(6)为真 a(5)=8 a(6)=10
6 a(6)＞a(7)为真 a(6)=5 a(7)=10
6 3 a(3)＞a(4)为假 不执行交换操作
4 a(4)＞a(5)为假 不执行交换操作
5 a(5)＞a(6)为真 a(5)=5 a(6)=8
5 3 a(3)＞a(4)为假 不执行交换操作
4 a(4)＞a(5)为假 不执行交换操作
4 3 a(3)＞a(4)为假 不执行交换操作
循环结束后数组中各元素的值依次为：(2，7，4，0，1，5，8，10，3，9，6)；所以A选项正确。