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 a(1 to 20) As Integer

For i=2 to 10

For j=2 to 20\i

a(i*j)=a(i*j) +1

Next j

Next i

该程序段运行后，数组a中元素值为0的个数是（  ）

Const n = 15

Private Sub Command1_Click()

  Dim a(1 To n) As Integer  '数组a存放不同颜色袜子的数量，默认值为0

  Dim s As String, ch As String

  Dim c As Integer, i As Integer, t As Integer

    List1.Clear

    s = Text1.Text

    t = 0 ：c = 0 : i = 1

    Do While i <= Len(s)

        ch = Mid(s, i, 1)

        If ch >= "0" And ch <= "9" Then

            t = t * 10 + Val(ch)

        Else

            a(t) =   ①  

            t = 0

        End If

        i = i + 1

    Loop

    For i = 1 To n

        If   ②    Then List1.AddItem "落单袜子的颜色为" + Str(i)

        c =

    Next i

    Label1.Caption = "能配对的袜子有" + Str(c) + "双"

End Sub

请回答下列问题：