⑴用数组b存储最小下降数列中最小的元素(查找过程中的最小值)，b(1)为数组a第1个元素。

⑵加入方法：将a(i)与数组b中的每个元素依次逐个比较：

若a(i)比b(j)小就用a(i)替换b(j)中的值，将a(i)添加到第j个下降数列中，并存储在c数组的c(j)中。

若a(i)比b(j)都大，则在数组b最后添加a(i)新的元素，将a(i)添加到第j个下降数列中，并存储在c数组的c(j)中。

⑶若数组a各元素的值为34，54，3，76，2，3时，则3个下降数列分别为“34，3，2”“54，3”“76”

程序运行界面如图所示。

小明依据上述描述设计了如下VB程序。请回答下列问题：

实现上述功能的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

min=100：x=0

Do While x < =16

    d1=Sqr(9+(x-4)*(x-4))

    d2=Sqr(36+(16-x)*(16-x))

    If d1+d2<min Then min=d1+d2

    x=x+0.1

Loop

Text1.Text=St(min)

该程序段运行后，文本框Text1中显示的内容是（  ）

Dim a(1 To 100) As Integer

Dim b(1 To 100) As Integer

Dim c As Integer

a(1) = 0: a(2) = 2: b(1) = 1: b(2) = 2: c = 0

For i = 2 To 6

  a(i + 1) = 2 * a(i) - a(i - 1)

  b(i + 1) = b(i) ^ 2 / b(i - 1)

c = c + a(i + 1) + b(i + 1)

Next i

Label1.Caption = Str(c)

该程序运行后，Label1中显示的内容是（  ）