有如下程序段：
Dim i As Integer, j As Integer, n As Integer, s As String
i+1
Do While i<=3
Loop
Label l Caption=n&":"&s
数组元素a(1)到a(8)的数据依次为：“16，19，8，20，4，12，6，15”，经过该程序段“加工”后，标签 Label l中显示的值为（ ）
Dim i As Integer, j As Integer, n As Integer, s As String
i+1
Do While i<=3
k=i
j=i+1
Do While j<=8
If a(j)<a(k) Then k=j
j=j+1
Loop
If i< >k Then
t=a(i):a(i)=a(k):a(k)=t
End If
s=a(i)&.""&s
i=i+1
Loop
Label l Caption=n&":"&s
数组元素a(1)到a(8)的数据依次为：“16，19，8，20，4，12，6，15”，经过该程序段“加工”后，标签 Label l中显示的值为（ ）
| A．2:4 6 8 | B．2:8 6 4 | C．3:4 6 8 | D．3:8 6 4 |
更新时间：2020-03-30 10:08:52
|
【知识点】 排序算法及程序实现
相似题推荐
选择题
|
较难
(0.4)
【推荐1】有如下VB程序段：
For i = 1 to 8
a（i）=Int（Rnd * 10）*2 + 1
Next i
For i = 1 To 3
For j = 1 To 8 – i * 2
If a（j）> a（j+2）Then
t = a（j）：a（j）= a（j+2）：a（j+2）= t
End If
Next j
Next i
执行该程序段后，在下列选项中，a（1）~a（8）各元素可能的值是（ ）
For i = 1 to 8
a（i）=Int（Rnd * 10）*2 + 1
Next i
For i = 1 To 3
For j = 1 To 8 – i * 2
If a（j）> a（j+2）Then
t = a（j）：a（j）= a（j+2）：a（j+2）= t
End If
Next j
Next i
执行该程序段后，在下列选项中，a（1）~a（8）各元素可能的值是（ ）
| A．3，1，8，7，11，13，17，15 | B．3，1，5，7，9，13，15，21 |
| C．5，3，5，7，9，17，15，19 | D．17，1，13，7，9，13，7，15 |
您最近一年使用：0次
选择题
|
较难
(0.4)
名校
【推荐2】【加试题】已知一无序数组a中的元素为"90,15,40,72,65,32,81,6"，通过引入数组b存储数组a元素按升序排列时的下标，b数组元素为"8,2,6,3,5,4,7,1"，使得a(b(1))≤a(b(2)) ≤a(b(3))……≤a(b(n))，从而对a数组中的数据进行对分查找。部分程序如下：
当文本框Text1中输入的值为32时，程序运行结束后变量c的值为
当文本框Text1中输入的值为32时，程序运行结束后变量c的值为
| A．1 | B．2 | C．3 | D．4 |
您最近一年使用：0次
选择题
|
较难
(0.4)
【推荐3】冒泡排序在某一遍加工过程中没有数据交换时，说明数据已经有序，优化程序段如下：
i = 1: flag = True
Do While i < = 4 And flag = True
Loop
数组元素a(1)到a(6)的值依次为48，36， 24，97，77，23，经过该程序段加工后，变量i的值是（ ）
i = 1: flag = True
Do While i < = 4 And flag = True
flag=False
For j = 6 To i + 1 Step -1
If a(j) > a(j - 1) Then
t = a(j): a(j)=a(j-1): a(j-1) = t
flag = True
End If
Next j
i = i + 1
Loop
数组元素a(1)到a(6)的值依次为48，36， 24，97，77，23，经过该程序段加工后，变量i的值是（ ）
| A．1 | B．3 | C．5 | D．4 |
您最近一年使用：0次
