有如下VB程序段：

Dim a(1 To 9) As String， k As Integer

Dim s1 As String， s2 As String

s1= Text1.Text：s2 = Text2.Text

For i = 1 To Len(s1)

    k = Val(Mid(s1， i，1))

    a(k) = Mid(s2， i， 1)

Next i

For i=1 To 9

    s=a(i)+s

Next i

Label1.Caption = s

在文本框Text1中输入“52463”，文本框Text2中输入“happy”， 执行该程序段后，标签Label1中显示的内容是（    ）

A、happy

B、yppah

C、phpya

D、Pyhpa