s=“7218634594” : n=Len(s): c=0

For i=1 To n-1

  a(i)=Val(Mid(s, i, 2))

Next i

For i=1 To n-2 Step 2

  k=i

  For j=i+2 To n-1 Step 2

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

  Next j

 If k <> i Then

   t=a(i): a(i)=a(k): a(k)=t: c=c+1

 End If

Next i

Text1.Text=Str(c)

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

Dim c(1 To 100) As Integer, h(1 To 100) As Integer, d(1 To 100) As Integer

Dim n As Integer

Private Sub Form_Load()

     ‘从数据库中读取n个苹果的摘取所需力气和高度存放在数组c和h中,并显示在List1中,代码略

End Sub

Private Sub Command1_Click()

Dim a As Integer, b As Integer, s As Integer, i As Integer, j As Integer, m As Integer

a = Val(Text1.Text)     ‘梯子高度

b = Val(Text2.Text)     ‘手伸直高度

s = Val(Text3.Text)     ‘可用力气

m = 0

For i = 1 To n     ‘将所有能够摘得的苹果所需力气存储到数组d中

  If{#blank#}1{#/blank#}Then

m = m + 1

d(m) = c(i)

  End If

Next

For i = 1 To m - 1

  k = i

  For j = i + 1 To m

If{#blank#}2{#/blank#}Then k = j

  Next

  If k <> i Then

t = d(k): d(k) = d(i): d(i) = t

  End If

Next

ans = 0     ‘用剩余的力气去摘最多的苹果

For i = 1 To m

  If s >= d(i) Then

{#blank#}3{#/blank#}

ans = ans + 1

  End If

Next

Text4.Text = Str(ans)
End Sub

c = 1: s = 10

Do While c <= s

    For i = s To c + 1 Step -1
        If      Then

            t = a(i - 1): a(i - 1) = a(i): a(i) = t
        End If

    Next i
    For i=

        If     Then

            t = a(i + 1): a(i + 1) = a(i): a(i) = t
        End If

    Next i

    c = c + 1
    s = s - 1

Loop

上述程序段三个方框处的语句分别为（  ）

Const n = 6

Dim a(1 To n) As Integer, f(1 To 10) As Boolean

Dim tmp As Integer, i As Integer, j As Integer, t As Integer

‘f数组各元素的初值置为False，代码略

For i = 1 To   ⑴ 

    t = Int(1 + Rnd * 10)

    If Not f(t) Then

        a(i) = t : f(t) = True

        For j =   ⑵ 

            If a(j) < a(j - 1) Then

                tmp = a(j): a(j) = a(j - 1): a(j - 1) = tmp

            End If

        Next j

    Else

      ⑶ 

    End If

Next i

上述程序段3个方框处的表达式分别为(   )

i=1

Do While <=6

    t= Int(Rnd*10)+1

    If t Mod 2=i Mod 2 Then a(i)=t: i=i+1

Loop

For i=1 To 2

    k=1

    For j=1 To 6-i*2

        If a(j)*k>a(j +2)*k Then

            t=a(j): a(j)=a(j+2): a(j+2)=t

        End If

        k=-k

    Next j

Next i

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