Private Sub Command1_Click()

 Dim n As Integer, s As Integer

 n = 10

 s = 10 ︿ n

 Text1.Text = Str(s)

End Sub

运行程序时，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的原因是（   ）

  ⑴用户通过输入n，点击按钮Command2生成规模为n×n的数字矩阵；

  ⑵矩阵元素随机生成，并按数组顺序保存，如规模为3×3的矩阵，元素对应数组的排列方式如图a所示；

  ⑶点击按钮Command1后输出主对角线上的元素以及其元素之和。

程序界面如图b所示，程序代码如下：

Dim a(100)As Integer，n As Integer

Private Sub Command1_Click()    ‘输出主对角线数据及其之和

  Dim i As Integer，j As Integer，t As Integer，sum As Integer

  t=1：sum=0

  For i=1 To n

    For i= 1 To n

      If    ①    Then

      List2．AddItem Str(a(t))

      sum=sum+a(t)

    End If

    Next i

    ②   

  Next i

  List2．Addltem“和：  ”+Str(sum)

End Sub

Private Sub Command2_Click()        ‘生成数组矩阵

  Dim i As Integer，s As String

  n=Val(Text1．Text)            ‘获取矩阵规模

  List1．Clear：List2．Clear

  Randomize

  For i=1 To n2

    a(i)=99-Int(Rnd*90)

    s=s+Str(a(i))

    If   ③    Then

    List1．AddItem s

    s=“”

    End If

  Next i

End Sub

若流程执行时，输入x的值为13，那么输出的依次是（  ）

①全0块“0000”，可以化简为“0”

②连续多个全0块，可以化简为“：：”

③一个IPv6地址中只能出现一个“：：”，出现多个全0块时，“：：”要化简最长的一段，没有最长的就将最左侧的一段化简为“：：”

④“：：”可以出现在地址开头或结尾

具体示例如下：

程序界面如图所示：

实现上述功能的VB程序如下，请回答下列问题：