For i=1 to 10

    b(i)=0

    Next i

For i=1 To 5

  For j=1 To 10

    If b(i)<a(j)Then

    b(i)=a(j)

    t=j

    End If

    Next j

    a(t)=0

    List1．AddI tem Str(b(i))

Next i

其中数组元素a(1)到a(10)的值依次为“25，42，53，66，77，83，98，14，38，99”，执行程序后，在列表框List1中依次输出的数据是（  ）

i = 1

 Do While i <= 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)的值可能是（  ）

请回答下列问题：

Private Sub Command1_Click()

Dim i As Integer, j As Integer, sum As Integer

Dim n As Integer, k As Integer, tmp As String

n = Val (Text1.Text)

sum = 0:List1.Clear

For i = 1 To n-1

 j=i

 Do While sum < n

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

 j = j + 1

 Loop

 If sum = n Then

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

  For k=i+1 To j-1

   tmp = tmp + “+” + Str(k)

  Next k

  List1.AddItem tmp +“=”+ Str(n)

  End If

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

 Next i

 End Sub

Private Sub Command1_Click()

Dim i As Integer, n As Integer

Dim s1 As String, s2 As String, c As String

s1=Text1.Text

s2=” ”

n=Len(s1)

For i=1 To n

c=Mid(s1,i,1)

s2=c+s2

Next i

Text2.Text=s2

End Sub