男性，55岁，间断咳嗽、憋气10年，间断下肢水肿1年。胸片示肺纹理增重，心脏扩大。下列哪项病史对诊断肺心病意义不大（）

A.长期大量吸烟史

B.肺结核病史

C.支气管扩张病史

D.长期粉尘接触史

E.动脉导管未闭病史

编写如下通用过程：
Sub proc(By Val Rum As Long，ByRef ren As Long)
Dim k As Long
K=1
hum=Abs(NUN)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
ren=k
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim m As Long, r As Long
n=InputBox("请输入一个整数")
n=CLng(n)
proc n, r
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中345，输出结果是______。