肾功能不全者药物排泄减少的机制是

A．肾小管分泌减少

B．肾小球滤过减少

C．肾小球滤过增加

D．肾小管重吸收减少

E．肾小管重吸收增加

在窗体上有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click()
Dim a(10)，p(3)As Integer
k=5
For i=1 To 10
a(i)=i*i
Next i
For i=1 To 3
P(i)a(i*1)
Next i
For i=1 To 3
K=k+p(i)*2
Next i
MsgBox k
End sub
打开窗体运行后，单击命令按钮，消息框中输出的结果是______。