某产妇，足月分娩一重度窒息男婴，经抢救后复苏。胎盘娩出后， * * 出血约550ml，呈间歇性。检查：子宫软，按摩后子宫变硬， * * 出血量明显减少。

该产妇产后出血的主要原因是（）。

A.胎盘胎膜滞留

B.凝血功能障碍

C.产后宫缩乏力

D.会阴、 * * 裂伤

E.宫颈裂伤

编程实现加法运算，在两个文本框中输入加数，用标签表示结果，单击按钮进行计算，完成下列计算过程。
Private Sub Command1_Click()
Dim AAs Integer,B As Integer
A= (6)
B=Val(Text2.Text)
(7) =A+B
End Sub