单项选择题

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