n=Len(Text1.Text)：c=1

  For i=1 To n

    s=Mid(Text1.Text，i，1)

    If s>=“0”And s<=“9”Then

        a(c)=a(c)*10+Val(s)

    Else

        If a(c)>0 Then c=c+1

    End If

 Next i

在文本框Text1中输人“No1：X：123：Y：680：End”。执行该程序段后，数组a(2)的值为（  ）

鞋子尺码换算：常用的两种鞋码一种是欧制的码m，而我国采用的标准为厘米数g，鞋子尺码的换算公式：欧制m=中国制g*2-10。例如25是我国采用的厘米数，换算成欧制的码为25*2-10=40(码)。

请回答下列问题：

Dim strA As String, strB As String

strA = "hongda"：strB = ""

For i = 1 To Len(strA) * 2

If i / 2 = Int(i / 2) Then

strB = strB + Chr(Asc(Mid(strA, (i - 1) Mod Len(strA) + 1, 1)) + 2)

End If

Next i

该程序段运行后，变量strB的值是（  ）