Private Sub Command1_Click()

Dim i As Integer, c As Integer, n As Integer

n = Val(Text1.Text)

c = 0

For i = 1 To n

If i Mod 3 = 0 Then c = c + 1

Next i

Label1.Caption = Str(c)

End Sub

运行该程序，在文本框Text1中输入20，单击命令按钮Command1，在标签Label1中显示的是{#blank#}1{#/blank#}。

s = 0: i = 1

n = Val(Text1.Text)

Do While i < n

   s = s + i

   i = i + 1

Label1.Caption = Str(s)

第一步：区间中点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=1To n＼2   

    k=i

        If a(j) <a(k) Then k=j

    Next j

    If i<>k Then

        t=a(i)：a(i)=a(k)：a(k)=t

    End If

    If  Then

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

      End If

    Next j

Next i

上述程序中方框处可选语句或表达式有：

①For j=i+1 To n-i+ 1    ②For j=i+1 To n-i

③a(j)<a(j+1) ④a(j)>a(j+1)

则(1)、(2)、(3)处语句依次是（  ）