何必发在spss版呢 呵呵 可以发到爱问频道哈

发到matlab专区，很快

用Mathematica很容易得到（假设a>0）
-(a^2/2) + I a \[Pi] - \[Pi]^2/6 + a Log[-1 + E^a] + PolyLog[2, E^a]
但PolyLog并非常见函数，将就用吧。
如果能指定a，则跟更容易一些，如a=5则
-25 + \[Pi]^2/6 + 5 Log[-1 + E^5] - PolyLog[2, 1/E^5]=1.60438

或者用数值积分得到结果