（加试题）有以下VB程序段：
Dim a As String, b As String, p As String, s As String
a = Text1.Text: b = Text2.Text: c = Text3.Text :p = ""
For i = 1 To Len(a)
If b = Mid(a, i, Len(b)) Then
s = s + c
i = i + Len(b) – 1
p = p + Str(i)
Else
s = s + Mid(a, i, 1)
End If
Next i
Label1.Caption = p
若文本框Text1中输入“Hello,world!Hello,Python!”，文本框Text2中输入“Hello”，文本框Text3中输入“你好”运行该段程序后，标签Labele1中显示的是（  ）

A．1 13

B．5 17

C．1 2

D．5 5