Dim s(1 To 6) As String

Text1.Text = ""

For i = 1 To 5

   For j = i + 1 To 6

       If s(i) + s(j) < s(j) + s(i) Then

        t = s(j): s(j) = s(i): s(i) = t

       End If

    Next j

Next i

For i = 1 To 6

  Text1.Text = Text1.Text + s(i)

Next i

如果程序运行，一开始当数组元素s(1)到s(6)的值依次为“4”、“343”、“312”、“12”、“246”、“121”，运行该段代码后，文本框Text1中显示的内容为（   ）

Private Sub Command1_Click()

    Dim n As Integer, i As Integer, s As String

    n = Val(Text1.Text)

    s = ""

    For i = 1 To 2 * n - 1

        If i <= n Then  ① Else  ②  

Next i

    Label1.Caption = s

End Sub

为实现以上功能，划线①②处应分别填写

   Dim A(10)，B(5)

   For i = 1 To 10

       A(i) = i

       Next i

   For j = 1 To 5

       B(j) = j * 20

   Next j

   A(5) = B(2)

   Print "A(5)=";A(5)