【单选题】

下列程序的执行结果为()。

Private SubCommand1_Click()
Dim s1As String,s2As String
s1="abcdef"
Call Invert(s1,s2)
Print s2
End Sub
Private Sub InvertByVal xstrAs String,ystrAs String)
Dim tempstrAs String
i=Len(xstr)
Do While i＞=1
　tempstr=tempstr+Mid(xstr,i,1)
　i=i-1
Loop
ystr=tempstr
End Sub
A．fedcba
B．abcdef
C．afbecd
D．defabc