Dim i As Integer, s As Integer

i = 1

s = 0

Do While i <= 5

 s = s + 2

i = i + 1

Loop

问：该程序段运行后，变量s的值为{#blank#}1{#/blank#}，i的值为{#blank#}2{#/blank#}。

长度小于等于 100），在列表框 List1 里输出所有配对括号在表达式中的位置。例如在文本框 Text1 里入：“12*(3-(1+2))*3”，程序运行效果如图所示。

实现上述功能的 VB 代码如下，在划线的地方填入合适代码，完善程序。Private Sub Command1_Click()

Dim s As String

Dim a(1 To 100) As Integer

i = 1 top = 0

Do While i <= Len(s)

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

        top = top + 1

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

     End If

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

        List1.AddItem Str(a(top)) + "    " + Str(i)

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

     End If

     i=i+1 Loop

End Sub

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