以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。　　Sub RecArea(L，W)　　　Dim S As Double　　　S=L*W　　　MsgBox"Total Area is"& Str(S)　　End Sub　　Private Sub Command1_Click()　　　Dim M，N　　　M=InputBox("What is the L")　　　M=Val(M)　　　【】　　　　N=Val(N)　　　【】　　　End Sub

男性，36岁，急性病毒性心肌炎1月余，住院期间突发高热、咳嗽、呼吸困难，不能平卧，咳泡沫痰。查体：血压140/80mmHg，端坐，烦躁，口唇指甲发绀，两肺中下满布湿啰音，心率138次/分。

该患者心功能(NYHA)应属于

A．心功能工级

B．心功能Ⅱ级

C．心功能Ⅱ～Ⅲ级

D．心功能Ⅳ级