肺结核大咯血的原因是