Dim m As Integer  'm 为模块级变量，用于记录随机数个数

Private Sub Command1Click()

Randomize

Timer1.Enabled = True

End Sub

Private Sub Timer1Timer()

Dim n As Integer

        ①      

If      ②      Then  

     List1.AddItem n

Else

     List2.AddItem n  

End If

m = m + 1          

If m = 20 Then       ③       

End Sub

在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:

程序中①划线处应填入{#blank#}1{#/blank#}。

程序中②划线处应填入{#blank#}2{#/blank#}。

程序中③划线处应填入{#blank#}3{#/blank#}。

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程序，请回答下列问题：

    Dim c(1 To 26) As Integer

    s = Text1.Text

    For i = 1 To Len(s)

        x = Mid(s, i, 1)

        If x >= "a" Then

            t = Asc(x) - Asc("a") + 1

        Else

            t = Asc(x) - Asc("A") + 1

        End If

        _______①_________

        If c(t) >= Max Then Max = c(t): _____②______

    Next i

    Text2.Text = Chr(f + Asc("A"))

划线处应该填入的正确语句是（  ）

Dim a (1 To 6) As Integer

Randomize

a(1) = Int (Rnd*2) + 1

For i = 2 To 6

  a(j) = Int (Rnd*i) *2 + 1

  If a(i) < a(i-1) Then

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

  End If

Next i

执行该程序段后，数组元素a(1)到a(6)的值可能是（  ）