星星设计了10*10的矩阵，如图所示，实现此功能的VB程序段如下，已知程序中两处标记①的位置表达式相同，程序中①、②两处表达式为（　　）

Dim a(1 To 100)As String

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( ① ) ="O"

        End lf

    Next j

Next i

For i= 1 To 100

    s=s +a(i)

    lf  ②  Then

        List1.Addltem s

        s = ""

    End lf

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