1. (2019高三下·临海月考) 执行程序后，a数组各元素是（  ）

Dim a(1 To 7) As Integer

a(1) = 14: a(2) = 15: a(3) = 0: a(4) = 11: a(5) = 13: a(6) = 21: a(7) = 17

i = 6: flag = True

Do While i > 1 And flag

   If a(i) Mod 3 = 0 And a(i) <> 0 Then

     t = a(i): a(i) = a(i + 1): a(i + 1) = t

   ElseIf a(i) = 0 Then

     flag = flase

   ElseIf a(i + 1) Mod 2 = 1 Then

     a(i) = Abs(a(i) - a(i + 1))

   End If

   i = i - 1

Loop