Dim  r  As  Double,  s  As  Double

r=Val(text1.text)

s=                         

Text2.Text=Str(s)

加密算法如下：

1)将明码中每个字符的八位二进制ASCII码(不足八位的左端补0，凑足八位)分成两段(左4位一段，右4位为另一段)，如字符“C”的二进制ASCII值为01000011，分段后为0100，0011；

2)将高位段(左边4位)左移一位，并将原第一位数码移到第4位(如0100转化为1000)，再转化为十六进制数(如1000化为8)；

3)对另一段(右4位)执行2)所示算法，如0011→0110→6；

4)顺次连接两位十六进制数，得到该字符的暗码，如“C”的暗码为“86”；

5)将每个字符的暗码按照明码的顺序连接。

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

i=1：n=5

Do while i<=n

   x=Int(Rnd*9)+1

    If x Mod 2=1 Then

        a(i)=x

    Else

        a(n)=x:n=n+1

    End If

   i=i+1 Loop

数组元素的初值均为0，执行该程序段后，a(1)至a(5)的值可能是（ ）

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