程序代码中,语句加框处有错，请改正。

Private Sub Command1_Click()

Dim s As String, sum As Integer

Dim i As Integer, j As Integer

List1.Clear

s = Text1.Text

n = len(s)

                               ’（1）

For i = 1 To n

  For j = 1 To n-i+1

     List1.AddItem        ’（2）

     sum = sum + 1

  Next j

Next i

List1.AddItem "总共有" + Str(sum)  + "个子串"

End Sub

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

第一步：区间中点m＝ 。

第二步：若f(a)·f(m)<0，则含零点的区间为[a，m]；否则，含零点的区间为[m，b），将新得到的含零点的区间仍记为[a，b]。

第三步：判断[a，b）的长度是否小于一个足够小的值d。若是，则m是方程的近似解；否则，返回第一步。

于是我们设计函数f(x)＝x²－c，用此算法求出任意非负常数c的非负平方根。程序运行效果如下图所示，程序中还输出了区间的左右端点和区间长度值。

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

Const min As Single = 0.00005

Dim c As Single

Function fn（x As Single）As single

   fn = x*x - c

End Function

Private Sub Command1_Click()  '按钮上的程序

Dim a , b , m As Single

c = Val(Text1.Text)

a = 0  : b = c

Do While b-a > min

     ‘(1)

List1.AddItem Str(a)&"    "&Str(b)&"    "&Str(b－a)

If     Then      ‘(2)

         b = m

Else

         a = m

End If

Loop

Label2.Caption = Str（m）

End Sub

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

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

For i=1 To 6

 j=7

 Do While j > i

  If a(j)>a(j-1) Then

   a(j)=a(j)+a(j-1)

   a(j-1)=a(j)-a(j–1)

   a(j)=a(j)-a(j-1)

  End If

  j=j-1

 Loop

Next i

For i=3 To 6

 s=s+a(i)

Next i

Label1. Caption=Str(s)

已知数组元素a(1)到a(7)的值依次为“8, 2, 3, 7, 10, 6, 5”，则执行该程序段后，标签Label1中显示的是（  ）

For i=1 To 3

 For j=i To 5

  If a(j) > a(j+1) Then

   t=a(j): a(j)=a(j+1): a(j+1)=t

  End If

 Next j

 List1.AdcIItem Str(a(i))

Next i

a(1)到a(6)的初始值依次为“8 6 5 7 9 3 ”，经过该程序段“加工”后，列表框List1中显示的是（  ）

        PRIVATE SUB FORM_CLICK

        DIM A（4，4） AS INTEGER

        FOR I = 1 TO 4

           FOR J= 1 TO 4

              IF {#blank#}1{#/blank#}

                A（I，J）=1

              {#blank#}2{#/blank#}

               A（I，J）=0

              END IF

              PRINT A（I，j）;

              {#blank#}3{#/blank#}

            PRINT

              {#blank#}4{#/blank#}

        END SUB