心肌收缩力加强导致静脉回心血量增加的机制是

A．动脉血压升高

B．收缩期室内压较低

C．血流速度快

D．舒张期室内压较低

E．静脉血流阻力下降

阅读下面程序。
Private Function a(load As Integer) As Single
If load ＜ 20 then
money=load / 2
else
money=20+load
end if
a=money
End Function
Private Sub Form Click()
Dim load As Integer，fee As Single
Load=InputBox("请输入一个数：")
Fee=a(load)
Print fee
End Sub
输入20，运行后的输出结果是 【13】 。