星星设计了10*10的矩阵，如下图所示：

实现此功能的VB程序段如下，已知程序中两处标记①的位置表达式相同，程序中①、②两处表达式为（　　）
Dim a(1 To 100) As Sting

For i= 1 To 10

    For j=1 To 10

        If i=j Or i Mod 10=0 Or i Mod 10= 1

        Then

            a(  ① )="●"

        Else

            a(  ① )="○"

        EndIf

    Next j

Next i

For i= 1 To 100

    s=s+ a(i)

    If  ②   Then

        List1.Addltem s

    End If

Next i

A、①（j-1）*10+i                     ②i mod 10=1

B、①（i-1）*10+ j                    ②i mod 10=1

C、①（j-1）*10+ i                   ②i mod 10=0

D、①（i- 1）*10+j                    ②i mod 10=0