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

C．fedcba

D．defabc

进入跨度较大的车间扑救火灾时，阵地应转移到大型机器设备作掩体设置，为防止建筑结构倒塌和热辐射的强烈烘烤。