m=1：k=1

    For i=2 To 10

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

    k=k+1

         If k>m Then m=k

       Else

         k=1

       End If

    Next i

    Text1．Text=Str(m)

  End Sub

执行该程序段，文本框Text1中显示的是 （  ）

Private Sub Command1_Click()

Dim s As String, a As String, t As String

s = Text1.Text: t = ""

For i = 1 To Len(s)

    a = Mid(s, i, 1)

    If a >= "0" And a <= "9" Then

        t = t + a

    ElseIf a = "!" Then

        t = ""

    ElseIf t <> "" Then

        List1.AddItem t

    End If

Next i

End Sub

执行程序时，在文本框 Text1 中输入“12+34=46!789ok”（不包括双引号），单击按钮Command1后，在列表框List1中显示的结果是（  ）

请回答以下问题。

Dim a (1 To 6) As Integer

Randomize

a(1) = Int (Rnd*2) + 1

For i = 2 To 6

  a(j) = Int (Rnd*i) *2 + 1

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

    a(i) = a(i) + a(i-1)

  End If

Next i

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