Private sub Command1_click()

Dim s1 As String, s2 As String, t As String, ch As String

Dim i As Integer

s1 = Text1.Text

i = Len(s1)

t = "": s2 = ""

Do While i > 0

    ch = Mid(s1, i, 1)

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

        t = ch + t

    Else

    s2 = s2 + t +，   ①

    t = ""

End If

i = i + 1    ②

Loop

s2 = s2 + t

Text2.Text = s2

End sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

a=5

b=3

If a>b Then

a=b

End lf

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

i = 1

Do While i<=6

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

    If a(i) Mod 2 = i Mod 2 Then 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)各元素值可能的是（  ）