Dim x As Integer, result As String,p As String, k As String result = "":p = Text1.Text:k = Text2.Text
For x = 1 To Len(p) -Len(k) + 1
If ⑴ Then
result = result + Mid(p, x, 1)
Else
⑵
End If
Next x
Text3.Text = ⑶
上述程序段中横线处可选语句为:
① Mid(s, x, Len(k)) = k
② Mid(s, x, Len(k)) <>k
③ x = x +Len(k) – 1
④ x = x + Len(k)
⑤ result + Mid(p, x)
⑥ result
则(1)(2)(3)处填入的语句依次为( )