阅读下列FORTRAN77程序： PI＝3.14159265 WRITE(*，‘(F7.4)’)PI END 程序运行后输出结果是( )。

A．( 3.142

B．( 3.1415

C．( 0.31416

D．( 3.1416

下列程序代码段中，在单击命令按钮调用SelMid函数时，其运行结果为( )。
Private Function SelMid(aStr As String)As String
Dim temp As String
Dim sLen As Integer
temp=""
sLen=Len(aStr)
i=1
Do While i＜=sLen/2
temp=temp+Mid(aStr,i,1)+Mid(aStr,sLen-i+1,1)
i=i+1
Loop
SelMid=temp
End Function
Private Sub Command1_Click()
Dim Str As String
Str="abcdef":Print SelMid(Str)
End Sub

A．abcdef

B．afbecd

C．fedcba

D．defabe