字符的查找替换。以下VB程序段的功能是：在字符串s中查找字符s1，并将其替换成字符s2。

s=Text1.Text

s1=Text2.Text

s2=Text3.Text

i=1

Do While i<=Len(s)

  If Mid(s, i, Len(s1))=s1Then

   

   

  Else

   

  EndIf

Loop

Label1.Caption=s

方框中的代码由以下三部分组成：

①i=i+1   ②s=Mid(s,1,i-1)+s2+Mid(s,i+Len(s1))   ③i=i+Len(s2)

下列选项中，代码顺序正确的是（     ）

A、①②③

B、②①③

C、②③①

D、③②①