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

图a

图b

    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的值是（  ）