Dim n As Integer，a(100)As Integer，max As Integer

  Private Sub Form_Load()      ‘读取原始数据

    Dim conn As New ADODB．Connection．rs As New ADODB．Recordset

    Dim i As Integer

  conn．ConnectionString=”Provider=Microsoft．ACE．OLEDB．12．0；Data

  Source=”&App．Path&。”＼student．accdb”

    conn．Open

    Set rs．ActiveConnection=conn

    rs．Open“SELECT*FROM DF”

    i=0：max=0

    Do While Not rs．EOF

      i=i+1：n=i

      a(i)=         ‘①

      If a(i)>max Then max=a(i)

      rs．MoveNext

    Loop

    rs．Close：conn．Close

  End Sub

  Private Sub Command1_Click()         ‘去重复值排序

    Const t=max

    Dim i As Integer，b(t)As Integer

    For i=1 To n

      B(a(i))=b(a(i))+1

    Next i

    For i=1 To t

       If  Then List1．AddItem Str(t-i+1)       ‘②

    Next i

  End Sub

⑴每个回文都有一个“中心”，当回文字符数为奇数时，中间的那个字符就是回文中心；但是当回文的字符数为偶数时，回文的中心是最中间的那两个字符，且这两个字符相同。

⑵对任意一个字符或者相同的两个连续字符，我们都可以假设它为回文的“中心”，向它的左右两边扩展出尽可能长的回文。对于每种假设，我们都能得到一个回文，而最长回文必定由其中的某个假设中得到！

现编写一个VB程序，在Text1中输入一串字符，单击“统计”按钮，在Text2中显示该字符串中的最大的回文子串（长度相同时，输出最左边的子串）。请回答下列问题：

同时，对于多个地址块为 0 的情况时，可以使用“::”号，进行化简。化简原则：

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

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

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

④“::”可以出现在地址开头或结尾具体示例如下：

程序界面如图所示：

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