单项选择题

下列程序运行时输出的结果是( )。
Private Sub Form_Click()
Dim a()
a=Array(“天天向上”，“清华大学”，“天长地久”，“程序设计”)
for I=Lbound(a,1) to Ubound(a,1)
if ieft(a(I),1)="天”then print a(I);
next I
End Sub