下列程序的执行结果为Private Sub Command1_Click() Dim FirStr As String FirSt= abcdef Print Pat(FirStr)End SubPrivate Function Pat(xStr As String)As String Dim tempStr As String，strLen As 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=tempStrEnd Function
A．abcdef
B．afbecd
C．fedcba
D．defabc