【单选题】

单击命令按钮时，下列程序段的执行结果为()。

Private SubCommand1_Click()
Dim FirstStrAs String
FirstStr="abcdef"
Print PickMid(FirstStr)
End Sub
Private Function PickMid(xStrAs String)As String
Dim tempStrAs String,strLenAs Integer
TempStr=" "
strLen=Len(xStr)
i=1
Do While i＜=strLen/2
tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1)
i=i+1
Loop
PickMid=tempStr
End Funcfion
A．abcdef
B．fed
C．fedcba
D．defabc