下列程序的执行结果为
Private Sub Command1_Click()
Dim FirStr As String
　　FtrSt="abcdef"
　　Print Pat(FirStr)
End Sub
Private 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=tempStr
End Function

A．abcdef

B．afbecd

C．fedcba

D．defabc

根据以下材料，回答26~35题。　　求助者：男性，18岁，某部新兵。　　案例介绍：求助者入伍一个多月来，每日的训练很紧张，很辛苦，有些手忙脚乱，感到疲惫。求助者不适应部队驻地的饮食习惯，常常听不懂战友们的方言，也不知道该和战友们讲些什么。在部队很难听到自己家乡的口音，感觉自己是个外乡人，感到孤独，想家。新兵连规定每人每周只能与家里通一次电话。为此，心情不好，苦闷，有时因想家睡不着。训练时出现走神，效率不高，无心参加连里的集体活动，就盼着早点回家。经指导员做工作后，没有明显的好转，自己来心理咨询。　　心理咨询师观察、了解到的情况：求助者是独生子，自幼没有单独离开过家，生活上娇生惯养，入伍前生活上的琐事基本都由父母料理，自己连衣服、鞋袜都不用洗，认为只有家里才是最幸福的。

在本案例中，咨询方案应包括（　　）。

A．咨询目标

B．咨询地点

C．咨询方法

D．咨询时间