题目

【加试题】有一组正整数，要求仅对其中的偶数进行降序排序。排序后偶数在前，奇数在后。排序示例如下。 实现上述功能的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       If a(i) Mod 2 = 1 And a(k) Mod 2 = 0 Then    '①           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    i = i + k            '② Loop '依次输出排序后的数据。代码略 End Sub ① ②  答案：【1】a(k) Mod 2＝1 And a(j) Mod 2＝0【2】i＝i+1

查看本题答案和解析