单选题 下面的程序运行时,单击窗体后,窗体上显示的结果是______。
Private Sub Form_Click()
Dim a(1 To 6) As Integer
Dim min1%,i%,j%,n%,t%,k%
a(1)=8:a(2)=6:a(3)=9
a(4)=3:a(5)=2:a(6)=7
n=6
For i=1 To n-1
min1=i
For j=i+1 To n
If a(j)<a(min1)Then min1=j
Next j
t=a(i):a(i)=a(min1):a(min1)=t
Next i
For i=1 To n
Print a(i)
Next i
End Sub
  • A.9 8 7 6 3 2
  • B.2 3 6 7 8 9
  • C.9 8 7 6 3
  • D.2 3 6 7 8
【正确答案】 B
【答案解析】[考点] 数组的基本操作 [解析] 本题在一个嵌套的For循环中,通过比较首先找出数组中的第1个最小数,并将其与数组中第1个元素交换值。然后再比较数组中余下元素的大小,找出下一个最小数,并将其与数组中第2个元素交换值,以此类推,直到按由小到大的顺序找出所有数为止。