Private sub Command1_Click()

        Dim a As Single

        Dim py As String

             a= Val (Text1)  （1）

           If a>0 Then py =”正数”

           If a=0 Then py=”零”

           If a<0 Then py=”负数”

              Label3.Caption=a（2）

     End Sub

Dim i As Integer, s As String, flag As Boolean

s = Text1.Text

flag = True:      ⑴     

Do While i <= Len(s) And flag = True

  If    ⑵      Then  flag = False

i = i + 1 

Loop

If    ⑶      Then

  Label2.Caption = s + "满足条件！"

Else

Label2.Caption = s + "不满足条件！"

End If

填空处的代码由以下三部分组成：

①flag = True                             ②i=2

③Mid(s, i, 1) < Mid(s, i - 1, 1)         ④i=1       ⑤flag = False

代码顺序正确的选项是（   ）

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

    List 1.Additem Str(b(i) )

Next i

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