下列程序运行时输出的结果是 Private Sub Form_Click() Dim x 　　x=Array("天天向上"，"清华大学"，"天上人间"，"程序设计") 　　For i=LBound(a,1)to UBound(a,1) 　　　　If Left(a(i),1)="天"Then Print a(i)； 　　Next End Sub

A．天天向上

B．天天向上天上人间

C．出错信息

D．天天向上清华大学天上人间程序设计

肝功能不全时，药物的药动学改变不正确的是（）

A.血浆中结合型药物减少，游离型药物增多

B.药物的半衰期缩短

C.药物的生物转化减慢

D.药物排泄减慢

E.药物分布容积增大