世界卫生组织对老年人的流行病学调查中发现患病最多的疾病是

A．高血压

B．肺心病

C．冠心病

D．牙科疾病

E．慢性支气管炎

有如下的程序：　　Private Sub Command1_Click( )　　　Dim k As Integer，m As Integer　　　Dim P As Integer　　　k=4：m=1　　　P=Pid(k，m) ：Print P；　　　P=Pid(k，m) ：Print P　　End Sub　　Private Function Pid(a As Integer，b As Integer)　　　Static m As Integer，i As Integer　　　m=5：i=2　　　i=i + m + 1　　　m=i + a + b　　　Pid=m\2　　End Function　　单击命令按钮后，输出结果为（ ）。

A． 2 2

B． 4 4

C． 5 5

D． 6 6