2007年1月5日，甲公司以银行存款1 200万元取得对乙公司的长期股权投资，所持有的股份占乙公司有表决权股份的5%，另支付相关税费5万元。甲公司对乙公司不具有共同控制或重大影响，且该长期股权投资在活跃市场中没有报价、公允价值不能可靠计量。甲公司采用成本法核算该长期股权投资。2007年3月10日，乙公司宣告发放2006年度现金股利共200万元。假设不考虑其他因素，甲公司2007年3月末该项长期股权投资的账面余额为( )万元。

A．1 000
B．1 195
C．1 200
D．1 205

下列程序的执行结果为
Private Sub Command1_Click( )
Dim FirStr As String
FirSt = "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