下面的程序运行时,单击窗体后,窗体上显示的结果是( )。 Private Sub Form_Click() Dim a(1To6)As Integer Dim min1%,i%,j%,n%,t%,k% a(1)=8:a(2)=6:a(3)=9:a(4

admin2017-03-26  23

问题 下面的程序运行时,单击窗体后,窗体上显示的结果是(    )。
Private Sub Form_Click()
Dim a(1To6)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=1To n-1
min1=i
For j=i+1Ton
If a(j)<a(min1)Then min1=j
Next j
t=a(i):a(i)=a(min1):a(min1)=t
Next i
For i=1Ton
Printa(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

解析 本题考查循环程序的分析。程序主要包括两条循环语句,一条为两层循环的嵌套语句,内层循环找到当前i到n之间的最小元素的下标,退出内循环则把最小元素放到a(i)的位置,i从1变化到n-1;另外一条循环语句为输山数组中的所有元素,即把排序以后的结果输出。
转载请注明原文地址:https://kaotiyun.com/show/41Gp777K
0

随机试题
最新回复(0)