男，28岁，间断咳血3年，本次因抬重物后突然出现咯血200ml。查体双下肺湿啰音，胸片检查双下肺纹理增多、粗乱，提示最可能的病因是（）.

A.慢性支气管炎

B.肺脓肿

C.肺结核

D.支气管扩张

E.肺癌

有如下Sub过程：
Sub Sun(x As Single, y As Single)
t=x
x=t/y
y=t Mod y
End Sub
在窗体上的命令按钮Command1中，编写如下事件过程，执行该事件过程调用Sun过程，结果为( )。
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=5
b=4
Sun a, b
Print a; b
End Sub

A．1.25 1

B．5 4

C．4 5

D．1 1.25