【单选题】

下列程序的执行结果为

Private SubCommand1_Click()
Dim FirStrAs String
FtrSt="abcdef"
Print Pat(FirStr)
End Sub
Private Function Pat(xStrAs String)As String
Dim tempStrAs String，strLenAs Integer
tempStr=""
strLen=Len(xStr)
i=1
Do While i＜=Len(xStr)-3
　　tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr，strLen -i+1,1)
　　i=i+1
Loop
Pat=tempStr
End Function
A．abcdef
B．afbecd
C．fedcba
D．defabc