慢性龈缘炎

A．牙菌斑
B．服用药物
C．内分泌导致的激素变化
D．遗传因素
E．全身疾病 下列疾病的直接病因是

执行下面的程序，消息框的输出结果是 【15】 。Option Base1Private Sub Command1_Click( ) Dim a(10)，P(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 P(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i MsgBox kEnd sub