证券交易市场的作用包括( )。

A．为各种类型的证券提供便利而充分的交易条件

B．为各种交易证券提供公开、公平、充分的价格竞争，以发现合理的交易价格

C．实施公开、公正和及时的信息披露

D．为证券交易提供集中登记、存管服务

下列程序的执行结果为
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