指令1（删除）：给出一个字符串S1，在字符串S中找到最左边的一个字符串S1，将其删除，若在S中不存在字符串S1，则字符串S不变。

例如：S=“China is a big family,it is big”   S1=“big”

      则执行指令1后，S=“China is a family,it is big”

      若S1=“small”，则S不变。

指令2（插入）：给出一个字符串S2，和一个整数w，将S2插入到S中以w开始的位置。

例如：S=“a big family”   S2=“very ”   w=3

     则执行指令2后，S=“a very big family”

     注意S中“a”后有一个空格，S2中“y”后有一个空格

实现上述功能的VB程序如下。请在划线处填入合适代码。

Dim S As String

Private Sub Command1_Click()   ’单击Command1实现删除指令

Dim S1 As String

S = Text1.Text

S1 = Text2. Text

S = del(S1)

Text5.Text = S

End Sub

Private Sub Command2_Click()   ’单击Command2实现插入指令

Dim S2 As String, W As Integer

S = Text1.Text

S2 = Text2.Text

W = Val(Text4.Text)

S = {#blank#}1{#/blank#}      ’调用函数，实现插入指令

Text5.Text = S

End Sub

Function del(S1 As String) As String   ’在字符串S中查找并删除S1

Dim S3 As String

For i = 1 To Len(S) - Len(S1) + 1

  S3 = ""                    ’S3表示从位置i开始，取出长度和S1相同的字符串

  For j = i To i + Len(S1) - 1

    S3 = S3 + Mid(S, j, 1)

  Next j

  If {#blank#}2{#/blank#} Then     ’如果找到S1，则将S1删除

S = Mid(S, 1, i - 1) + Mid(S, i + Len(S1), Len(S) - Len(S1) - i+ 2)

del = S

    Exit Function     ’删除左边的第一个S1后，退出函数，以保证只删除一次

  End If

Next i

End Function

Function add(S2 As String, W As Integer) As String

  S =  Mid(S, 1, W - 1) + S2 + {#blank#}3{#/blank#}   ’将S2插入W开始的位置

  add = S

End Function

对于一个轮转后有序数组arr也可以进行二分查找，算法思路如下（以升序为例）：每次根据查找的左侧位置L和右侧位置 R 求出中间位置M后，M左边[L，M]和右边

[M+1，R]这两部分中至少一个是有序的（可根据中间位置数据和边界数据的大小关系判 断）。

arr[M]和待查找数据key比较

⑴arr[M]=key，返回M的值；

⑵若M位置右侧有序，当待查找数据在右侧，则下次在右侧查找，否则在M左侧查找。

⑶若M位置左侧有序，当待查找数据在左侧，则下次在左侧查找，否则在M右侧查找。

问题：

i=l:j=9:n=0

key=Val(Text1,Text)

Do While i<=j

  n=n+1

  m=Fix((i+j) / 2)

  If key=d(m) Then Exit Do            ‘Exit Do表示退出循环

  If key<d(m) Then j=m-1 Else i=m+1

Loop

数组元素d(1)到d(9)的值依次为“7,12,18,25,39,58,61,72,86”｡若该程序段运行结束后，n的值为2，则key的值是（  ）

注：文中圆括号成对出现，圆括号内不会再套圆括号。

程序运行界面如图所示。