一个DNA分子上只有一个基因

下列程序运行时输出的结果是( )。
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

A) 天天向上
B) 天天向上天长地久
C) 出错信息
D) 天天向上清华大学天长地久程序设计