1)上靠，例如退的房间号为3，则原来登记的3条记录变成(1，3) ， (6，3)，(10，1)。

2)下靠，例如退的房间号为5，则原来登记的3条记录变成(1，2)，(5，4） ， (10，1)。

3)上下不靠，例如退的房问号为4，则登记的记录数变成4条(1，2)，(4，1) ， (6，3)，(10，1)。

4)上下靠，例如退的房间号为9，则登记的记录数变成2条(1，2)，(6，5）。

小王依据上述描述设计了如下VB程序，请回答下列问题：

Private Sub Command1_Click()

  Dim a As intger, i As intger, s As String

  n = Val(Text1.Text)

  s = ""

  For i = 1 To 2 * n - 1

    If i > n Then          ①          Else          ②            

  Next i

  text2.Text = s

End Sub

为实现以上功能，①②处分别填写（  ）

DIM A（1991 TO 1998） AS INTEGER

FOR I=1 TO 8

   A(I)=I

PRINT A(I)；

       NEXT I

a = 1

For p=1 to 50

   If  p Mod 3 = 0  Then  a = a + 1

Next p