1. (2020高二下·金华期末) 星星设计了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