试题

试题 试卷

logo

题型:填空题 题类:常考题 难易度:困难

浙江省金华市江南中学2019-2020学年高二下学期信息技术3月月考试卷

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

实现上述功能的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

 ② 

举一反三
返回首页

试题篮