s=Text.Text
c=0
For i=1 To 26
⑴
Next
For i=1 To Len(s)
⑵
IF d(t)=0 Then d(t)=i
⑶
Next
Text2 Text=Str(c)
填空处的代码可由以下部分组成
①d(i)=0 ②=val(Mid(si, 1) ③IFd(t)<>0Andi-d(t)> c Then c=i-d(t)
④d(i)=1 ⑤t=Asc(Mid(s, i, 1)-Asc("a")+1 ⑥fi-d(t)> c Then c=i-d(t)
代码顺序正确的是( )