a(i)= Int(Rnd * 20) + 1 Next i

For i= 2 To 5

If i Mod 2 = 1 And a(i-1) < a(i)Then  t=a(i):a(i)=a(i-1):a(i-1)=t

Else

a(i)=a(i)-1 End If

Next i

执行该程序段后，a（1）~ a（5）各元素不可能的值是（  ）

 Dim b(4) As Integer     ‘数组b按位存储二进制数

Private Sub pprint(m As Integer)

‘本过程打印输出十进制数m和对应的二进制数

‘代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer,j As Integer

List1.Clear

List1.AddItem “十进制数 二进制数”

For i = 0 To 4

 b(i)=0

Next i

For i = 0 To 15

 Call pprint(i)     ‘打印输出一行

 j=       ‘①

 b(j)=b(j)+1

 Do While      ‘②

   b(j)=0

  j=j-1

  b(j)=b(j)+1

  Loop

Next i

End Sub

第①处修改为{#blank#}1{#/blank#}; 第②处修改为{#blank#}2{#/blank#}。

奇数阶幻方的构造是所有幻方中最简单的，可以按照如下规则来实现：

⑴将1放在第一行中间一列；(如图2)

⑵从2开始直到n*n为止，各数按下列规则存放：

假设当前要存放的数为k，则k存放在k-1)数的右上方并按照规则

①若(k-1)放在第1行且不是最后一列，则将k存放在n行，(k-1)所在列右侧；(如图3)

②若(k-1)放在第n列且不是第一行，则将k存放在第1列，k-1)的上1行；(如图4)

③若(k-1)即不在第1行也不在最后1列：

若(k-1)右上方有数，则将k放在(k-1)的下1行的同一列。(如图5)

若(k-1)右上方没有数，则将k放在(k-1)的右上方；(如图6)

④若(k-1)在第1行第n列，将k填在(k-1)的正下方(如图7)

For i=1To n＼2   

    k=i

        If a(j) <a(k) Then k=j

    Next j

    If i<>k Then

        t=a(i)：a(i)=a(k)：a(k)=t

    End If

    If  Then

        t=a(j)：a(j)=a(j+1)：a(j+1)=t

      End If

    Next j

Next i

上述程序中方框处可选语句或表达式有：

①For j=i+1 To n-i+ 1    ②For j=i+1 To n-i

③a(j)<a(j+1) ④a(j)>a(j+1)

则(1)、(2)、(3)处语句依次是（  ）