Private Sub Command1_Click()

Dim s As Integer

Dim n As Integer

Dim i As Integer

n = Val(Text1.Text)

s = 1

For i = 2 To n

  s = s * i

Next i

Label1.Caption = Str(n) + "!=" + Str(s)

End Sub

Private Sub Command1_C1ick ( )

Dim a(9) As Integer

a(9)=Val(Text1.text)

For i=8 to 1 step -2

a(i)=a(i+1)/2

Next i

Text2.text=str(a(i))

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

For i = 1 To 6

a(i) = Int(Rnd * 10) + 1

Next i

For i = 2 To 6

If i Mod 2 = 0 And a(i)>a(i-1) Then

t=a(i)：a(i)=a(i-1)：a(i-1)=t

Else

a(i)=a(i)-1

End If

Next i

执行程序后，数组元素a(1)到a(6)的值可能是(  )