有一组正整数，要求仅对其中的偶数进行降序排序。排序后偶数在前，奇数在后。排序示例如下。排序前 7578608661753688排序后 8886786036756_刷题宝

题干

有一组正整数，要求仅对其中的偶数进行降序排序。排序后偶数在前，奇数在后。排序示例如下。

排序前	75	78	60	86	61	75	36	88
排序后	88	86	78	60	36	75	61	75

程序运行界面如下图所示。
实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
Const n = 8
Dim a(1 To n) As Integer Private Sub Form_Load()
'排序前数据存储在数组 a 中，并在文本框 Text1 中显示代码略 End Sub
Private Sub Command1_Click()
Dim k As Integer, i As Integer, j As Integer, t As Integer
i = 1
Do While i <= n - 1
k = i
For j = i + 1 To n

'①
k = j
ElseIf a(k) Mod 2 = 0 And a(j) Mod 2 = 0 And a(j) > a(k) Then
k = j
End If
Next j
If k <> i Then
t = a(k): a(k) = a(i): a(i) = t
End If

'②
Loop

'依次输出排序后的数据。代码略 End Sub

上一题下一题 0.99难度填空题更新时间:2019-05-28 08:39:42

答案(点此获取答案解析）

同类题1

某排序程序的主要代码如下所示：
n=5
For i = 1 To n-1
For j =n-1 To i step -1
If d(j) < d(j+1) Then k = d(j): d(j) = d(j + 1): d(j + 1) = k
Next j
Next i
在排序过程中，某一遍排序后的结果是81,77,1,76,70，则下一遍排序后的结果应该是

A．81,76,1,77,70	B．81,77,76,1,70
C．81,77,76,70,1	D．1,70,76,77,80

同类题2

如下VB程序段：
Dim a(1 To 8) As Integer
a(1) = 13: a(2) = 18: a(3) = 9: a(4) = 32
a(5) = 12: a(6) = 11: a(7) = 7: a(8) = 20
start = 1: k = 1
For i = start + 1 To 8
If a(i) < a(start) Then
k = k + 1
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
t = a(start): a(start) = a(k): a(k) = t
For i = k + 1 To 8
List1.AddItem Str(a(i))
Next i
执行上面代码段后，列表框List1中依次输出的数组元素值为

A．322018	B．32122018
C．203218	D．321820

同类题3

（加试题）某排序算法思想如下：每一趟将一个待排序的记录，按其关键字的大小插入到已经排好序的一组记录的适当位置上，直到所有待排序记录全部插入为止。例如(9,3,1,4)升序排序；第一步 3 插入到有序记录(9)，得到(3,9)；第二步 1 插入到有序记录(3,9)，得到(1,3,9)；第三步 4 插入到有序记录(1,3,9)，得到最终有序记录为“1,3,4,9”。
为此，编写了一个 VB 程序，功能如下：运行程序，窗体加载时随机产生 10 个随机整数，并在列表框 List1 中依次显示排序前数据，单击“排序”按钮 Command1，在列表框 List2 中显示经过上述排
序算法后的数据，运行结果如图所示。实现上述功能的 VB 代码如下，但加框处代码有错，请改正。

Const n = 10
Dim a(1 To n) As Integer '生成 n 个随机数，存储在 a 数组，代码略
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
For i = 2 To n
t = a(i)
j = i - 1
Do While t < a(j)
a(j + 1) = a(j)
j = j - 1

If j = 1 Then Exit Do ;改正：_______________

a(j) = a(j + 1) ;改正：_______________

Next i
For i = 1 To n

List2.AddItem Str(a(i))

同类题4

数组d中存放了一组数据如表所示。采用选择排序对这组数据进行递增次序排序。第二遍加工过程中，进行数据交换的数组元素是( )

d1	d2	d3	d4	d5	d6	d7	d8
90	84	85	72	80	71	66	70

同类题5

数组a中的n个元素经排序生成左右交替上升数据序列的VB程序段如下：
For i = 1 To (1)
For j = (2) To i + 1 Step -1

If d(j) <d(j - 1) Then

t = d(j): d(j) = d(j - 1): d(j - 1) = t

End If

Next j
For j = i + 1 To (3)

If d(j) <d(j + 1) Then

t = d(j): d(j) = d(j + 1): d(j + 1) = t

End If

Next j
Next i
方框中的代码由以下三部分组成：
① n - i + 1 ②n \ 2 ③n - i
代码顺序正确的选项是

相关知识点