有如下VB程序段：

result = ""

s1 = Text1.Text

s2 = Text2.Text

i = 1

Do While i <= Len(s1)

    If Mid(s1,i,Len(s2)) <> s2 Then

        result = result + Mid(s1, i, 1)

        i = i + 1

    Else

        i = i + Len(s2)

    End If

Loop

在文本框Text1和Text2中分别输入“Pyyesthon”和“yes”，执行该程序段后，变量result的值是（   ）

A、"Pythonyes "

B、"yesPython "

C、"Pyyesthon "

D、"Python "