指令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

Dim a(5) As Integer

Dim i As Integer, j As Integer, t As Integer

a(1) = 52: a(2) = 15: a(3) = 37: a(4) = 22: a(5) = 35

i = 1

Do While i < 5

    t = i: j = i + 1

    Do While j <= 5

        If a(j) > a(t) Then t = j

        j = j + 1

    Loop

    x = a(t): a(t) = a(i): a(i) = x

    i = i + 1

Loop

Text1.Text = Str(a(2))

运行该段代码后，文本框Text1中显示的内容为（   ）

为此，编写了一个 VB 程序，功能如下：运行程序，窗体加载时随机产生 10 个随机整数，并在列表框 List1 中依次显示排序前数据，单击“排序”按钮 Command1，在列表框 List2 中

显示经过上述排序算法后的数据，运行结果如图 b 所示。实现上述功能的 VB 代码如下，但加框处代码有错，请改正。

Const n = 10

Dim a(1 To n) As Integer        '生成 n 个随机数，存储在 a 数组，代码略

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t As Integer

For i = 2 To n

t = a(i)  :   j = i - 1

Do  While  t < a(j)

 a(j + 1) = a(j) j = j – 1

If     Then Exit Do  ①

Loop

       ②

Next i

For i = 1 To n

 List2.AddItem Str(a(i))

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

i = 1: j = 6: c = 0: f = False

key = Val(Text1.Text)

Do While i<= j And Not f

  c = c + 1

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

  If key = a(m) Then f = True

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

Loop

数组元素a(1)到a(6)依次为“8,23,25,32,46,57”，文本框Text1的内容为“32”。执行程序后，下列说法不正确的是（   ）

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 20) As Integer ’用于保存n(n<=20)个按从小到大顺序排列的整数

‘Form_Load事件过程产生n个整数，按升序保存在数组a中，并在Text1中显示

Private Sub Form_Load()

‘代码略

End Sub

Private Sub Command1_Click()

Dim i , j , m , k As Integer

Dim x As Integer，f As Boolean  ’变量f用于标记是否在数组中找到x

x = Val(Text2.Text)

i=1 ：j=n  : f=False

Do While  i<=j And  f=False

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

 If a(m)=x Then f=True

 If  Then i=m＋1 Else j=m－1    ‘(1)

Loop

If f = True Then

 For k = m To n-1

         ‘(2)

 Next k

n = n - 1

 Text3.Text = ""

 For k = 1 To n

Text3.Text = Text3.Text＋Str(a(k))＋","

 Next k

Else

 Text3.Text = "该数没有找到!"

End If

End Sub

以上程序段运行时，为了实现上述功能，加框处代码应改正为：

⑴{#blank#}1{#/blank#}；⑵{#blank#}2{#/blank#}。