发生危险化学品事故，事故单位应当立即按照应急预案组织救援，并向当地相关部门报告。请问可以不向以下哪个部门报告？（ ）

A．安监部门、环境保护部门

B．公安机关、卫生行政部门

C．市政管理部门、综治办

下列程序的执行结果为( )。
Private Sub Command1_Click()
Dim FirStr As String
FirStr="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 -1+1,1)
i=i+1
Loop
Pat=tempStr
End Function

A) abcdef
B) afbecd
C) fedcba
D) defabc