在字符串s中查找是否存在字符子串s1，若有则返回第一个s1的起始位置，若没有则返回-1，实现该功能的VB程序段如下：

    ⑴   : i = 1

n = Len(s): t = Len(s1)

Do While i < n - t And p = -1

    If    ⑵     Then p = i

        ⑶   

Loop

Label1.Caption = p

代码中划线部分由下列代码组成：

①p=1

②s1 = Mid(s, i, t)

③p=-1

④s1 = Mid(s, i, 1)

⑤i = i + 1

⑥i = i + t

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

A、③②⑥

B、①④⑥

C、③②⑤

D、③④⑤