下列程序运行时输出的结果是( )。
Private Sub Form_Click()
Dima
a=Array("天天向上"，"清华大学"，"天上人间"，"程序设计")
forI=Lbound(a，1) to Ubound(a，1)
ifleft(a(i)，1)="天"then print a(i)；
nextI
End Sub

A．天天向上

B．天天向上天上人间

C．出错信息

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