Dim a(1 To 10)As Integer

    Dim i As Integer，j As Integer，m As Integer，flag As Boolean

    Dim key As Integer，n As Integer，C As Integer，d As Integer

    i=1：J=10：m=0：flag=False

    key=Val(Text1．Text)

    Do While i<=J And Not flag

        If key<a(i)Or key>a(j)Then n=-1：Exit Do  未找到退出

        If a(i) ＜＞a(j) Then

            c=key-a(i)：d=a(j)一a(i)

            m=i+Int(c*(j-i)／d)

        Else

            m=i

        End If

        If key=a(m)Then flag=True：n=m

        If key>a(m)Then i=m+1

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

    Loop

    If flag=False Then n=-1

其中数组元素a(1)到a(10)分别为“15，25，37，40，63，70，87，90，92，96”，下列说法错误的是（  ）

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

Private Sub Command1_Click()

  Dim i As Integer, n As Integer

  Dim x As Single, y As Single, x1 As Single, y1 As Single

  Dim d As Single, min As Single

  Dim s As String, t As String

  s = Text1.Text:   x = 25: y = 35                       'A点坐标

  n = 0: min = -1: t = ""

  For i = 1 To {#blank#}1{#/blank#}

    If Mid(s, i, 1) = "," Then

      n = n + 1

      If {#blank#}2{#/blank#} Then

         x1 = Val(t)

      Else

         y1 = Val(t)

         d = {#blank#}3{#/blank#}

         If min = -1 Then min = d

         If d < min Then min = d

      End If

      t = ""

    Else

      t = t + Mid(s, i, 1)

    End If

  Next i

  Label3.Caption = Str(min)

End Sub