实现上述功能的VB程序如下，请回答下列问题：

Private Sub Command1_Click()

Dim a(20) As Long

Dim i As Integer, j As Integer, s As String List1.Clear

n = Val(Text1.Text)

a(1) = 1

List1.AddItem Str(a(1)) For i = 2 To n

    s = ""

    For j = Step -1  

        a(j) =    ①     

        s = s + Str(a(j))

    Next j

           ②        Next i

Private Sub Command1_Click()

 i＝1

 j＝7

 Do While ____①____

i＝____②____

j＝____③____

 Loop

 Text1.Text＝Str(i)

 Text2.Text＝Str(j)

End Sub

则下列说法正确的是（  ）

If a>b Then t=a:a=b:b=t s=a+b

a=s-a b=s-b

已知变量a和b中的值均为正整数，且a的值大于b的值，执行该程序段后，值最终未发生改变的变量是（  ）

 s = "Hello World"

 s1 = ""

 n = Len(s)

 For i = 1 To n \ 2

   If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then

     s1 = s1 + Mid(s, i, 1)

   Else

     s1 = Mid(s, n - i + 1, 1) + s1

   End If

 Next i

 Text1.Text = s1

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