【单选题】

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

Ptivate SubCommand_Click()
DimFirStrAs String
FirStr="abcdef"
PrintPat(FirSb)
End Sub
PrivateFunctionPat(xStrAs String)As String
DimtempStrAs String，strLenAs Integer
tempStr=""
strLen=Len(xStr)
i=1
DoWhile i＜=Len(xStr)-3
tempStr=tempSlx+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