①共八位字符，前两位为字母“zj”，后六位是数字，并以66开头（即密码格式为zj66****）；

②最后两位数字相同；

③后六位数能被16和46同时整除。

单击“找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

Private Sub Command1Click()

Dim s As Long , a As Integer, b As Integer, c As Integer, i As Integer

For i = 0 To 9999

  s = 660000 + i

  If        ①      And s Mod 46 = 0 Then 

'（选填字母，从下列A、B 、C、D四个选项中选取一项）

  a = s Mod 10         

  b = (s Mod 100) \ 10

     If        ②       Then  '（选填字母，从下列A、B 、C、D四个选项中选取一项）

     List1.AddItem ("zj" + Str(s))

     c =       ③                '（填程序代码）

     End If

  End If

Next i

Label1.Caption = "共有" + Str(c) + "个"

End Sub

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

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

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

    s = Text1.Text: sum = 0: t = 0: cnt = 1

    For i = 1 To Len(s)

      c = Mid(s, i, 1)

      If c >= "0" And c <= "9" Then

        j=j+1

      Else

        If cnt Mod 2 = 1 Then sum = sum + val(mid(s,i-j,j))

        j= 0：cnt = cnt + 1

      End If

    Next i

在文本框text1输入“12d6a3c4f20”，程序运行后sum的值是（  ）

s=input()

t=0

mw=''

for i in range(len(s)):

    ch=s[i]

    if '0'<=ch<='9':

        t=t*10+int(ch)

    elif ch=='-':

        mw+=chr(t%26+ord('A'))

        t=0

    else:

        mw+=ch

print(mw)

执行该程序段输入“29-052-24!”（不包括双引号），则输出的结果是（   ）