参考答案：D

解析：

临床上因剧烈呕吐导致出血的常见病因是胃、贲门及食管黏膜撕裂。消化性溃疡一般不伴剧烈呕吐，呕吐与出血同时发生。胃炎所致的呕吐很少诱发出血。贲门、食管黏膜撕裂综合征，是指因剧烈呕吐，食管内高压导致的贲门黏膜撕裂引起的出血，出血凶猛，出血量大，剧烈呕吐为主要诱因之一。上消化道出血的病因以胃、十二指肠溃疡、门静脉高压症、应激性溃疡、胃癌、肝内局限性慢性感染、肝肿瘤、肝外伤多见。一些少见或罕见的疾病，如食管裂孔疝、胃多发性息肉、胃和十二指肠良性肿瘤、剧烈呕吐所形成的贲门黏膜撕裂综合征（Mallory-Weiss综合征）及一些血液病等亦可引起上消化道出血。